path <- system.file("extdata", package="MinimumDistance")
load(file.path(path, "logRratio.rda"))
load(file.path(path, "baf.rda"))
load(file.path(path, "pedigreeInfo.rda"))
trioSet <- TrioSet(lrr=logRratio,
baf=baf,
pedigree=Pedigree(pedigreeInfo),
cdfname="human610quadv1bCrlmm",
genome="hg18")
Run the code above in your browser using DataLab