data(mppData_GE)
cofactors <- mppData_GE$map$mk.names[c(35, 61)]
CIM <- mppGE_CIM(mppData = mppData_GE, trait = c('DMY_CIAM', 'DMY_TUM'),
cofactors = cofactors, window = 20)
Qpos <- QTL_select(CIM)
plot(CIM)
plot_allele_eff_GE(mppData = mppData_GE, nEnv = 2, EnvNames = c('CIAM', 'TUM'),
Qprof = CIM, Q.eff = 'par', QTL = Qpos, text.size = 14)
Run the code above in your browser using DataLab