# Given a SNP with minor allele frequency of 10\% and a sample
# of 15,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 interaction
# explains 0.1\% of the quantitative trait variance.
library(GEWIST)
gewistLevene(p = 0.1, N = 15000, theta_gc =0.1/100, theta_c = 0.1 , M = 500000,
K = 20000, verbose=FALSE)Run the code above in your browser using DataLab