###############################
# Simulate data
###############################
simulation <- simulateData(G = 100, etaA = 0.02, n = 50, r = 10)
dat <- simulation$data[[1L]]
correlation <- scaledMat(x = stats::cov(dat))
Run the code above in your browser using DataLab