# An example based on GENEHUNTER version 2.1, with quantitative trait data in file "pheno.dat"
# generated from the standard normal distribution. The following exmaple shows that it is
# possible to automatically call GENEHUNTER using R function "system".
cwd <- getwd()
cs.dir <- file.path(.path.package("gap"),"comp.score")
setwd(cs.dir)
dir()
# system("gh < gh.inp")
cs.default <- comp.score()
setwd(cwd)
Run the code above in your browser using DataLab