# The argument 'overwrite' is set to TRUE!
# First, read the data:
examples.dir <- system.file( "extdata", package = "Haplin" )
example.file <- file.path( examples.dir, "exmpl_data.ped" )
ped.data.read <- genDataRead( example.file, file.out = "exmpl_ped_data",
dir.out = tempdir( check = TRUE ), format = "ped", overwrite = TRUE )
ped.data.read
# Take only part of the data (if needed)
ped.data.part <- genDataGetPart( ped.data.read, design = "triad", markers = 10:12,
dir.out = tempdir( check = TRUE ), file.out = "exmpl_ped_data_part", overwrite = TRUE )
# Preprocess as "triad" data:
ped.data.preproc <- genDataPreprocess( ped.data.part, design = "triad",
dir.out = tempdir( check = TRUE ), file.out = "exmpl_data_preproc", overwrite = TRUE )
ped.data.preproc
Run the code above in your browser using DataLab