demo/ex13.03.R

str(ex13.03)

colMeans(ex13.03)
apply(ex13.03, 2, var)

x <- sqrt(ex13.03 + 0.5)
x

colMeans(x)
apply(x, 2, var)
apply(x, 2, FUN = function(x) sd(x)/sqrt(length(x)))

colMeans(x)^2 - 0.5
kmiddleton/Zar5 documentation built on April 3, 2018, 11:06 a.m.