# create a dummy kinship matrix
# make sure it is positive definite!
kinship <- matrix(
data = c(
0.6, 0.1, 0.0,
0.1, 0.5, 0.0,
0.0, 0.0, 0.5
),
nrow = 3
)
# draw simulated traits (matrix)
traits <- sim_trait_mvn( rep = 10, kinship = kinship, herit = 0.8 )
traits
Run the code above in your browser using DataLab