## Not run:
#
# # number of cases
# cases = 250
#
# # number of controls
# controls = 250
#
# # 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 MULTI with "BST", "CMC", "RWAS" and 100 permutations
# mymulti1 = MULTI(phenotype, genotype, c("BST", "CMC", "RWAS"), perm=100)
#
# # this is what we get
# mymulti1
#
# # create list with the following tests
# test_list = c("BST", "CMC", "CMAT", "CALPHA", "ORWSS", "RWAS",
# "RBT", "SCORE", "SUM", "SSU", "SSUW", "UMINP", "WSS", "WST")
#
# # apply MULTI with 100 permutations
# mymulti2 = MULTI(phenotype, genotype, test_list, perm=100)
#
# # this is what we get
# mymulti2
# ## End(Not run)
Run the code above in your browser using DataLab