## Not run: 
#    
#   # number of cases
#   cases = 500
# 
#   # number of controls
#   controls = 500
# 
#   # total (cases + controls)
#   total = cases + controls
# 
#   # phenotype vector
#   phenotype = c(rep(1, cases), rep(0, controls))
# 
#   # genotype matrix with 10 variants (random data)
#   set.seed(1234)
#   genotype = matrix(rbinom(total*10, 2, 0.051), nrow=total, ncol=10)
# 
#   # apply RVT1 with maf=0.05 and 500 permutations
#   myrvt1 = RVT1(phenotype, genotype, maf=0.05, perm=500)
#   myrvt1
#   ## End(Not run)
Run the code above in your browser using DataLab