data(mppData)
QTLmatCr <- inc_mat_QTL(x = 2, mppData = mppData, Q.eff = "cr")
QTLmatPar <- inc_mat_QTL(x = 2, mppData = mppData, Q.eff = "par")
QTLmatAnc <- inc_mat_QTL(x = 2, mppData = mppData, Q.eff = "anc")
QTLmatBi <- inc_mat_QTL(x = 2, mppData = mppData, Q.eff = "biall")
Run the code above in your browser using DataLab