TP 1
save <- a a <- b b <- save
bmi <- function(weight,height) {
weight/(height*height)
}
far2cel <- function(far) {
(far-32)*(5/9)
}
distance <- function(x1,y1,x2,y2) {
sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
}
DAT[POS]
scalprod <- function(u,v) {
sum(u*v)
}