set.seed(200);
pgs <- rnorm(200, 0, 1);
phenotype.data <- data.frame(
continuous.pheno = rnorm(200, 1, 1),
binary.pheno = sample(c(0, 1), 200, replace = TRUE)
);
run.pgs.regression(pgs, phenotype.data);
Run the code above in your browser using DataLab