【R言語】統計解析フリーソフトＲ 第４章【GNU R】

69 名前：１３２人目の素数さん mailto:sage [2011/05/25(水) 09:29:38.65 ] >>68 とりあえず、たたき台を示すので、データ数が20で割り切れないをどうするのかを 考えて、その処理を入れて、その他のエラー処理を入れたら完成だと思う。 statsample <- function(x){ n <- length(x) m <- floor(n/20) for (i in 0:(m-1)){ print(paste("平均値:",mean(x[(1+i*20):((i+1)*20)]),"標準偏差",sd(x[(1+i*20):((i+1)*20)]))) } } > statsample(runif(100)) [1] "平均値: 0.409618140733801 標準偏差 0.284202820077949" [1] "平均値: 0.449437574110925 標準偏差 0.286492195081962" [1] "平均値: 0.555866089393385 標準偏差 0.26665116632303" [1] "平均値: 0.28123870670097 標準偏差 0.226341301484355" [1] "平均値: 0.503801094950177 標準偏差 0.282596081360767"

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef