# Create example data frame
df <- data.frame(
ID = 1:2,
PedigreeID = c(1,1),
Sex = c(0,1),
MotherID = c(NA,1),
FatherID = c(NA,NA),
isProband = c(1,0),
CurAge = c(45,20),
isAff = c(1,0),
Age = c(40,NA),
Geno = c(1,0)
)
# Transform the data frame
transformed_df <- transformDF(df)
Run the code above in your browser using DataLab