重回帰分析 > x [1] 1 2 3 4 5 6 > q1<-cbind(rep(1,6),x) > q1 x [1,] 1 1 [2,] 1 2 [3,] 1 3 [4,] 1 4 [5,] 1 5 [6,] 1 6 > solve(t(q1)%*%q1) x 0.8666667 -0.20000000 x -0.2000000 0.05714286 >|sh| [,1] [1,] 0.0616738 > > q2 > 0.258^2*solve(t(q2)%…

単回帰の係数の標準偏差は， y=bx+f 平均値は， bcov(x,y)/var(x) で推定できる． 誤差：y-bxは， sd な感じ（本当は不偏推定量を使うべき）． sd_b で与えられる sdは，誤差の推定値.チェック summary(lm(y~x)) http://www.ic.daito.ac.jp/~tkadoda/2005/ec…