第５回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)

# y=ax+b
a<- c(1:10)
b<- c(1:10)
# この中で最も回帰直線に近いものを見つける。

A1<-matrix(a,10,10)
ax<-A1%*%x
ax

X1<- matrix(ax,10,10)
X1

X3<- matrix(c(1:10),10,10)
X3

B1<- t(X3)
B1

B2<- 55*B1
B2

Y1<- X2-B2
Y1

Y2<- sum(y)
Y2

W<- Y2-Y1
W

#この中で一番０に近いのはa=1,b=10のとき。