# NOT RUN {
GenoS <- SimGeno(Ped.griffin, nSnp=400, ParMis=0.4)
griffin.sex <- sapply(as.character(Ped_griffin$id), function(x)
substr(x, start=nchar(x), stop=nchar(x)))
LH.griffin <- data.frame(ID = Ped_griffin$id,
Sex = ifelse(griffin.sex=="F", 1, 2),
BirthYear = Ped_griffin$birthyear)
SeqOUT.GX <- sequoia(GenoS, LH.griffin,
Module = "ped",
args.AP = list(Smooth = FALSE))
# }
Run the code above in your browser using DataLab