## Not run: 
#   
#   # number of cases
#   cases = 500
# 
#   # number of controls
#   controls = 500
# 
#   # total (cases + controls)
#   total = cases + controls
# 
#   # phenotype (first column of genodata)
#   phenotype = c(rep(1, cases), rep(0, controls))
# 
#   # genotype matrix with 10 variants (random data)
#   set.seed(123)
#   genotype = matrix(rbinom(total*10, 2, 0.05), nrow=total, ncol=10)
# 
#   # apply SCORE with 500 permutations
#   myscore = SCORE(phenotype, genotype, perm=500)
#   myscore
#   ## End(Not run)
Run the code above in your browser using DataLab