Update sim.pheno.qtl.R