d1 = sim_data(n=100, k=5, seed=1)
cor_net(d1)
d2 = sim_data(n=100, k=5, cor=0.2, seed=1)
cor_net(d2)
cor.mat = cor_matrix(
1.0, 0.7, 0.3,
0.7, 1.0, 0.5,
0.3, 0.5, 1.0
)
d3 = sim_data(n=100, cor=cor.mat, seed=1)
cor_net(d3)
Run the code above in your browser using DataLab