第５回MIKU勉強会 - MIKU勉強会の続き①について x<- c(165,170,172,175,170,172,183,187,180,185) y<- c(50,60,65,65,70,75,80,85,90,95) X<- sum(x) Y<- sum(y) S<- rep(0,100) a<- 1:10 b<- 1:10 A<- as.matrix(expand.grid(a,b)) #(a,b)は1~10までの整数…

BMI - MIKU勉強会の続き①の場合(簡単のため、点と直線のｙ座標の差を足して最もゼロに近いものを考える) x<- c(165,170,172,175,170,172,183,187,180,185) y<- c(50,60,65,65,70,75,80,85,90,95) # y=ax+b a<- c(1:10) b<- c(1:10) # この中で最も回帰直線に…

BMI - MIKU勉強会の続き身長と体重の値をプロットしたグラフに対して、回帰直線を引きたい。回帰直線(プロットに一番近い直線)の定義の仕方。①点と直線のｙ座標の差の２乗の和が最も小さい ②点と直線の距離の２乗の和が最も小さい ③ｘ座標の順に点を結んだ線…

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<…