代替機
J-T08にいろいろと不具合が出てきたので，J-PHONEショップに持って行って修理してもらうことにしました．
その間の代替機は
J-T05!
さすがに古い．メールの入力が一苦労．
[xyzzy]バッファの移動
xyzzyでMDI方式で複数のファイルを開いたときのファイル間（バッファ間）の移動をキーボード上で行う場合，[F2]を押してバッファ選択をする必要があったが，takeshouさんのページで，'next-buffer, 'previous-bufferで可能であることがわかったので，takeshouさんの.xyzzyファイルを拝借して，Alt-Right, Alt-Leftに割り当てる．
(setq *next-buffer-in-tab-order* t) ; バッファ移動をタブ順に
(global-set-key #\M-Right 'next-buffer) ; 前のバッファに移動
(global-set-key #\M-Left 'previous-buffer) ; 後のバッファに移動
[R]重回帰分析
元のデータファイルが，data1.datで，列ラベルとして，y,x1,x2を割り当てているとする．
file:data1.dat （Rの実行パスに保存されているとする）
y x1 x2
1 -2.303479 -1.463921 -0.005847713
2 -2.967771 -2.238727 -0.624911127
3 -2.155763 -1.581762 -0.004359690
4 -2.635262 -1.814421 0.018734227
5 -2.911269 -2.259972 -0.119139796
6 -3.136677 -2.193710 -0.096041322
7 -2.910240 -2.094492 -0.154731200
8 -3.166208 -2.293239 0.208418291
9 -3.199266 -2.665437 -0.021222318
10 -3.490062 -2.846533 0.096669671
11 -3.504970 -2.709331 -0.014159035
12 -3.522615 -2.975871 -0.350557135
13 -3.920332 -3.550770 -0.164816594
14 -3.638919 -3.084025 -0.098129576
15 -2.564776 -1.864785 -0.318246491
16 -2.798939 -2.283770 0.070953485
17 -3.154007 -2.103196 0.260975373
あとはRを起動して
> d <- read.table("data1.dat")
> fx <- lm(d$y~d$x1+d$x2)
> fx
Call:
lm(formula = d$y ~ d$x1 + d$x2)
Coefficients:
(Intercept) d$x1 d$x2 ＃Interceptは定数項のことである．
-1.1202 0.8295 -0.2009
> summary(fx)
Call:
lm(formula = d$y ~ d$x1 + d$x2)
Residuals:
Min 1Q Median 3Q Max
- 0.23669 -0.10180 0.01086 0.05975 0.27572
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.12025 0.16404 -6.829 8.2e-06 ***
d$x1 0.82952 0.06842 12.123 8.2e-09 ***
d$x2 -0.20086 0.17845 -1.126 0.279
-
- -
Signif. codes: 0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1
Residual standard error: 0.1506 on 14 degrees of freedom
Multiple R-Squared: 0.9131, Adjusted R-squared: 0.9007
F-statistic: 73.58 on 2 and 14 DF, p-value: 3.734e-08
