01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
abs.lm <- function(x){
if(!class(x)=="lm" & !class(x)=="summary.lm") { # lmかsummary.lmかの確認
paste(x, "はlmでもsummary.lmでもありません", sep="")
} else {
if(class(x)=="lm") x <- summary(x) # lmをsummary.lmに変換
coef <- x$coefficients[,c(1,4)] # 推定値と有意水準
coef[,2] <- as.character(cut(coef[,2], breaks=c(0,0.001,0.01,0.05,1), # 有意水準を記号に変換
labels=c("***","**","*","n.s."),right=F))
coefficients <- data.frame(0) # 結果の入れ物を用意
for(i in 1:nrow(coef)){ # 行ごとに
coefficients <- cbind(coefficients, # 推定値と有意水準を結合
as.data.frame(paste(coef[i,1], coef[i,2], sep=" ")))
}
coefficients <- coefficients[-1] # 始めのデータを削除
colnames(coefficients) <- rownames(coef) # 列名を設定
coefficients <- cbind(coefficients, # 決定係数・データ数を追加
data.frame(r.squared=x$r.squared, adj.r.squared=x$adj.r.squared, n=length(x$residuals)))
coefficients
}
}
# 使用例
data(cars)
lm(cars$dist ~ cars$speed)
summary(lm(cars$dist ~ cars$speed))
abs.lm(lm(cars$dist ~ cars$speed))
- latex-beamer-3.06.tar.gz, xcolor-2.00.tar.gz, pgf-1.01.tar.gzの3つをダウンロードして解凍
それぞれ/tex/share/texmf/tex/latex/latex-beamer, /tex/share/texmf/tex/latex/pgf, /tex/share/texmf/tex/latex/に移動
extsizes.zipをダウンロードして解凍
/tex/share/texmf/tex/latex/base/に移動
/tex/bin/mktexlsr.exeを実行
参考にしたページ
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2009-12-01 22:42