regresja

elastic.lm <- lm(distance ~ stretch, data=elasticband) 
summary(elastic.lm)
Diana H