## Not run:
# data (SxM_geno)
# data (SxM_map)
# data (SxM_pheno)
#
# P.data <- SxM_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)
# jittermap (cross.data)
#
# Pheno Quality
# pq.diagnostics (crossobj=cross.data)
# ## End(Not run)
Run the code above in your browser using DataLab