powered by
cov.x(X)
data <- gen.data(n=100) x.cov <- cov.x(data$X)
Run the code above in your browser using DataLab