regresja

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