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) # 平均の位置


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:17