setwd("d:/r")
x <- c(10,8,13,9,11,14,6,4,12,7,5)
x
y <- c(8.04,6.95,7.58,8.81,8.33,9.96,7.24,4.26,10.84,4.82,5.68)
y
mydata <- lm(y~x)
summary(mydata)
# -------------- •Ê‚Ì•\Œ» -------------
setwd("d:/r")
xy <- read.csv("anscomb.csv", header=T)
xy
x <- xy[,1]
y <- xy[,2]
mydata <- lm(y~x)
summary(mydata)