variance:rs2
This is an old revision of the document!
rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) }
set.seed(1)
a <- rnorm2(100000000, 100, 10)
head(a)
tail(a,20)
m.a <- mean(a)
sse.a <- sum((a-m.a)^2)
n.a <- length(a)
df.a <- n.a - 1
sse.a / n.a
sse.a/ df.a
variance/rs2.1773184788.txt.gz · Last modified: by hkimscil