Sample mean and sample variance is independent for normal distribution

[GaryBAYLOR]

mean_var_indep <- function(n) {
    m <- v <- numeric(n)
    for (i in 1:n) {
        temp <- rnorm(n)
        m[i] <- mean(temp)
        v[i] <- var(temp)       
    }
    res <- cor(m, v)
    return(res)
}