Rweb
の編集
http://www.okadajp.org/RWiki/?Rweb
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
[[R-Online]] x <- c( 9.3, 9.1, 7.0, 11.8, 9.4, 6.7, 1.5, 3.3, 12.3, 8.8, 0.5, 2.8, 3.1, 10.0, 10.9, 0.5, 10.2, 8.2, 8.0, 8.2, 10.9, 3.2, 1.3, 9.1, 10.1, 2.7, 3.3, 9.2, 6.8, 7.8, 7.8, 3.0, 8.8, 8.0, 3.0, 2.4, 9.5, 3.1, 8.8, 3.5, 8.1, 9.2, 7.5, 2.0, 4.4, 7.5, 8.0, 1.8, 3.4, 9.2, 8.5, 9.2, 2.1, 1.2, 3.5, 8.8, 7.5, 7.7, 10.5, 9.2, 3.5, 9.3, 3.7, 3.4, 10.0, 7.2, 1.5, 1.9, 1.7, 9.9, 6.0, 10.0, 7.5, 3.2, 4.0, 4.2, 2.3, 7.7, 8.5, 10.0, 4.2, 7.3, 8.7, 3.2, 3.9, 4.1, 7.2, 7.0, 7.7, 7.0, 8.0, 7.0, 8.8, 1.4, 2.5, 7.5, 10.2, 10.0, 7.0, 7.5, 9.7, 3.4, 7.2, 3.2, 1.8, 8.3, 9.0, 8.5, 7.7, 7.3, 3.5, 11.4, 4.8, 7.7, 7.0, 9.0, 8.2, 0.7, 9.0, 7.5, 2.1, 6.1, 8.5, 7.0, 9.3, 2.0, 8.3, 3.3, 9.9, 2.1, 8.8, 2.8, 2.0, 10.0, 2.0, 2.7, 8.0, 7.0, 3.1, 11.5, 3.8, 3.3, 7.3, 3.4, 6.9, 3.4, 11.3, 2.6, 7.1, 6.7, 3.3 ) data2 <- data.frame(edge=x) # data2 length(data2$edge) m<-mean(data2$edge);m summary(data2$edge) # hist(data2$edge, breaks=c(0,3,6,9,12,15)) # abline(v=m, col="red", lwd=2) # 平均の位置
タイムスタンプを変更しない
[[R-Online]] x <- c( 9.3, 9.1, 7.0, 11.8, 9.4, 6.7, 1.5, 3.3, 12.3, 8.8, 0.5, 2.8, 3.1, 10.0, 10.9, 0.5, 10.2, 8.2, 8.0, 8.2, 10.9, 3.2, 1.3, 9.1, 10.1, 2.7, 3.3, 9.2, 6.8, 7.8, 7.8, 3.0, 8.8, 8.0, 3.0, 2.4, 9.5, 3.1, 8.8, 3.5, 8.1, 9.2, 7.5, 2.0, 4.4, 7.5, 8.0, 1.8, 3.4, 9.2, 8.5, 9.2, 2.1, 1.2, 3.5, 8.8, 7.5, 7.7, 10.5, 9.2, 3.5, 9.3, 3.7, 3.4, 10.0, 7.2, 1.5, 1.9, 1.7, 9.9, 6.0, 10.0, 7.5, 3.2, 4.0, 4.2, 2.3, 7.7, 8.5, 10.0, 4.2, 7.3, 8.7, 3.2, 3.9, 4.1, 7.2, 7.0, 7.7, 7.0, 8.0, 7.0, 8.8, 1.4, 2.5, 7.5, 10.2, 10.0, 7.0, 7.5, 9.7, 3.4, 7.2, 3.2, 1.8, 8.3, 9.0, 8.5, 7.7, 7.3, 3.5, 11.4, 4.8, 7.7, 7.0, 9.0, 8.2, 0.7, 9.0, 7.5, 2.1, 6.1, 8.5, 7.0, 9.3, 2.0, 8.3, 3.3, 9.9, 2.1, 8.8, 2.8, 2.0, 10.0, 2.0, 2.7, 8.0, 7.0, 3.1, 11.5, 3.8, 3.3, 7.3, 3.4, 6.9, 3.4, 11.3, 2.6, 7.1, 6.7, 3.3 ) data2 <- data.frame(edge=x) # data2 length(data2$edge) m<-mean(data2$edge);m summary(data2$edge) # hist(data2$edge, breaks=c(0,3,6,9,12,15)) # abline(v=m, col="red", lwd=2) # 平均の位置
テキスト整形のルールを表示する
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
