# NOT RUN {
# The argument 'overwrite' is set to TRUE!
examples.dir <- system.file( "extdata", package = "Haplin" )
# ped format:
example.file2 <- file.path( examples.dir, "exmpl_data.ped" )
ped.data.read <- genDataRead( example.file2, file.out = "exmpl_ped_data",
dir.out = tempdir( check = TRUE ), format = "ped", overwrite = TRUE )
ped.data.read
# haplin format:
example.file1 <- file.path( examples.dir, "HAPLIN.trialdata2.txt" )
haplin.data.read <- genDataRead( file.in = example.file1,
file.out = "exmpl_haplin_data", format = "haplin", allele.sep = "", n.vars = 2,
cov.header = c( "smoking", "sex" ), overwrite = TRUE,
dir.out = tempdir( check = TRUE ) )
haplin.data.read
# }
Run the code above in your browser using DataLab