set.seed(1)
h2_0 = .5; m = 200; n = 1000; r =.5
## simulate genotype/phenotype data
sim_dat <- am_simulate(h2_0, r, m, n)
str(sim_dat)
## empirical h2 vs expected equilibrium h2
(emp_h2 <- var(sim_dat$g)/var(sim_dat$y))
h2_eq(r, h2_0)
Run the code above in your browser using DataLab