ダメ出し：当たり前のことが当たり前にできるように

「幾何平均」にて

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))

と書くようにしたいものだ。