# NOT RUN {
tdir <- tempdir()
dir <- system.file("extdata", package = "gwsem")
pheno <- data.frame(anxiety=rnorm(500))
m1 <- buildOneItem(pheno, 'anxiety')
GWAS(m1, file.path(dir,"example.pgen"),
file.path(tdir,"out.log"))
loadResults(file.path(tdir,"out.log"))
# }
Run the code above in your browser using DataLab