## Not run:
# data (SxM_geno)
# data (SxM_map)
# data (SxMxE_pheno)
#
# P.data <- SxMxE_pheno
# G.data <- SxM_geno
# map.data <- SxM_map
#
# cross.data <- qtl.cross (P.data, G.data, map.data, cross='dh',
# heterozygotes=FALSE)
#
# summary (cross.data)
#
# ## Pheno Quality
# pq.diagnostics (crossobj=cross.data, boxplot =FALSE)
#
# ## Marker Quality
# mq.diagnostics (crossobj=cross.data,I.threshold=0.1,
# p.val=0.01,na.cutoff=0.1)
#
# # QTL_SIM
# QTL.result <- qtl.memq (crossobj = cross.data, P.data = P.data,
# env.label = c('ID91','ID92','MAN92','MTd91',
# 'MTd92','MTi91','MTi92','SKs92','WA91','WA92'),
# trait = 'yield', step = 10, method = 'SIM',
# threshold = 'Li&Ji', distance = 50, cofactors = NULL,
# window.size = 50)
#
# ## QTL_CIM
# QTL.result <- qtl.memq (crossobj = cross.data, P.data = P.data,
# env.label = c('ID91','ID92','MAN92','MTd91','MTd92',
# 'MTi91','MTi92','SKs92','WA91','WA92'),
# trait = 'yield', step = 10, method = 'CIM',
# threshold = 'Li&Ji', distance = 50,
# cofactors = QTL.result$selected$marker, window.size = 50)
# ## End(Not run)
Run the code above in your browser using DataLab