### load phenotype data
data(dat30)
### load marker data
mibddir <- system.file('extdata', 'solarOutput',
'solarMibdsCsv', package = 'solarius')
list.files(mibddir)
## Not run:
# ### basic (univariate) linkage model
# mod <- solarMultipoint(trait1 ~ 1, dat30,
# mibddir = mibddir, chr = 5)
# mod$lodf # table of results (LOD scores) (the highest 3.56)
#
# ### basic (bivariate) linkage model
# mod <- solarMultipoint(trait1 + trait2 ~ 1, dat30,
# mibddir = mibddir, chr = 5)
# mod$lodf # table of results (LOD scores) (the highest 2.74)
#
# ### two-pass linkage model
# mod <- solarMultipoint(trait1 ~ 1, dat30,
# mibddir = mibddir, chr = 5,
# multipoint.options = "3")
# mod$lodf # table of results (LOD scores, 1 pass) (the highest 2.74)
# mod$lodf2 # table of results (LOD scores, 2 pass) (all nearly zero LOD scores)
#
# ## End(Not run)
Run the code above in your browser using DataLab