Trinker はおそらく私がこれに答えたことを嫌うでしょうが、ここに多くの仮定を含む大雑把な例を示します。
sample.max <- 20000
sample.sizes <- seq(1, sample.max, by=10)
myfun <- function (x){
var(sample(1:20, x, replace=TRUE))
}
variances <- sapply(sample.sizes, myfun)
plot(sample.sizes, variances, t='l')