powered by
random.pm(n, values = n*diff(seq(0,1,length=n+1)**0.75))
values
lmm.simu
eigen
# generate a random positive matrix set.seed(1) R <- random.pm(503) str(R)
Run the code above in your browser using DataLab