# Cross-specific effect model
#############################
data(mppData)
SIM <- mpp_SIM(mppData = mppData, Q.eff = "cr")
cofactors <- QTL_select(Qprof = SIM, threshold = 3, window = 20)
CIM <- mpp_CIM(mppData = mppData, Q.eff = "cr", cofactors = cofactors,
window = 20, plot.gen.eff = TRUE)
plot(x = CIM)
plot(x = CIM, gen.eff = TRUE, mppData = mppData, Q.eff = "cr")
# Bi-allelic model
##################
cofactors <- mppData$map[c(15, 63), 1]
CIM <- mpp_CIM(mppData = mppData, Q.eff = "biall", cofactors = cofactors,
window = 20)
plot(x = CIM, type = "h")
Run the code above in your browser using DataLab