#author("2022-05-04T21:01:42+09:00","","")
#author("2022-05-04T21:04:31+09:00","","")
[[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
# 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) # 平均の位置
# hist(data2$edge, breaks=c(0,3,6,9,12,15))
# abline(v=m, col="red", lwd=2) # 平均の位置



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS