light.depth <- read.table(file="lab6/light-depth.csv",sep=",",header=TRUE)
attach(light.depth)
light.lm <- lm(Light ~ Depth)
par(mfrow=c(2,1))
plot(Depth, Light)
abline(light.lm$coef)
conf.int.lm(light.lm, 0.05)
Run the code above in your browser using DataLab