# NOT RUN {
sample.ped.geno <- process_data()
## The function is currently defined as
function(Data = read.table(system.file("extdata", "data",
package = "famSKATRC"), header = TRUE))
{
Data[ , "IID"] = paste(Data[ , "FID"] , Data[ , "IID"] ,sep=".")
Data[Data[,"FA"]!=0 , "FA"] = paste(Data[Data[,"FA"]!=0 , "FID"], Data[Data[,"FA"]!=0,
"FA"] ,sep=".")
Data[Data[,"FA"]!=0 , "MO"] = paste(Data[Data[,"FA"]!=0 , "FID"], Data[Data[,"FA"]!=0,
"MO"] ,sep=".")
return(Data)
}
# }
Run the code above in your browser using DataCamp Workspace