BMI

http://mjin.doshisha.ac.jp/R/13.pdf
Rと回帰分析

taikei<- matrix(0,10,2)
taikei[,1]<- c(165,170,172,175,170,172,183,187,180,185)
taikei[,2]<- c(50,60,65,65,70,75,80,85,90,95)
colnames(taikei)<- c("身長","体重")
taikei
plot(taikei)
taikei.F<- data.frame(taikei)
taikei.lm<- lm(体重~身長,data=taikei.F)
summary(taikei.lm)
residuals(taikei.lm)
plot(taikei.lm)

plotするといろんな直線、折れ線が出てきました。。
lmで作られる回帰直線は１通りではない？