x<-c(3,5,7,9,11,15) y<-c(9,12,16,14,15,66) print(lm(y~x)) plot(x,y,main="the linear regression",abline(lm(y~x)))
To embed this program on your website, copy the following code and paste it into your website's HTML: