# Given a SNP with minor allele frequency of 10\% and a sample
# of 10,000 individuals, we are interested in testing interactions
# between this SNP and a covariate of effect size 10\%. The
# total number of SNP is 500,000. Assume the unknown interaction
# effect size has a Weibull distribution in the range of 0.05\%
# and 0.3\% variance explained with 50 increments.Repeat GEWIST
# for each of the 50 interaction effect sizes.
library(GEWIST)
effectPDF(distribution = "weibull", parameter1 = 0.8, parameter2 = 0.3,
parameter3 = NULL, p = 0.1 ,N = 10000, theta_c = 0.1, M = 350000,
K = 20000, nb_incr = 50, range = c(0.05/100,0.3/100), verbose = FALSE)
## End of scriptRun the code above in your browser using DataLab