「幾何平均」にて
max.g <- 0
min.g <- 0
for(i in 1:n.m){
max.g <- max.g + max(D[[i]])
min.g <- min.g + min(D[[i]])
}
max.g
min.g
当たり前に,
max.g <- sum(sapply(D, max))
min.g <- sum(sapply(D, min))
と書くようにしたいものだ。
「幾何平均」にて
max.g <- 0
min.g <- 0
for(i in 1:n.m){
max.g <- max.g + max(D[[i]])
min.g <- min.g + min(D[[i]])
}
max.g
min.g
当たり前に,
max.g <- sum(sapply(D, max))
min.g <- sum(sapply(D, min))
と書くようにしたいものだ。