c(62.051
63.787
65.526
62.051
63.787
65.526
67.273
data <- c(65.526,62.051, 63.787,65.526,67.273,69.015,80.751,88.486,84.225,85.967,87.700,89.444,91.183,92.919,94.657,96.393,98.132,99.876,101.615,103.354,105.089)
data
plot(data)
data <- c(62.051,63.787,65.526,67.273,69.015,80.751,88.486,84.225,85.967,87.700,89.444,91.183,92.919,94.657,96.393,98.132,99.876,101.615,103.354,105.089)
plot(data)
data <- c(72.051,73.787,75.526,77.273,79.015,80.751,88.486,84.225,85.967,87.700,89.444,91.183,92.919,94.657,96.393,98.132,99.876,101.615,103.354,105.089)
plot(data)
data <- c(72.051,73.787,75.526,77.273,79.015,80.751,82.486,84.225,85.967,87.700,89.444,91.183,92.919,94.657,96.393,98.132,99.876,101.615,103.354,105.089)
plot(data)
length(data)
range <- c(0:19)
plot(data)
abline(lm(range ~ data))
abline(range ~ data)
abline(data ~ range)
abline(lm(data ~ range))
range <- c(1:20)
abline(lm(data ~ range))
lm(data ~ range)
lm(range ~ data)
lm(data ~ range)
q()
ls()
data
lm(data ~ range)
range
q()
