## Not run: ------------------------------------
# library(synbreedData)
# # from gpData to cross
# data(maize)
# maizeC <- codeGeno(maize)
# maize.cross <- gpData2cross(maizeC)
# # descriptive statistics
# summary(maize.cross)
# plot(maize.cross)
#
# # use function scanone
# maize.cross <- calc.genoprob(maize.cross, step=2.5)
# result <- scanone(maize.cross, pheno.col=1, method="em")
# # display of LOD curve along the chromosome
# plot(result)
#
#
# # from cross to gpData
# data(fake.f2)
# fake.f2.gpData <- cross2gpData(fake.f2)
# summary(fake.f2.gpData)
## ---------------------------------------------
Run the code above in your browser using DataCamp Workspace