# \donttest{
#Simulation of genetic data with GRR values according to the SKAT formula
GRR.del <- GRR.matrix(GRR = "SKAT", genes.maf = Kryukov,
n.case.groups = 2, select.gene = "R1",
GRR.multiplicative.factor=2)
#Simulation of one group of 1,000 controls and two groups of 500 cases,
#50% of causal variants, 5 genomic regions are simulated.
x <- rbm.GRR(genes.maf=Kryukov, size = c(1000, 500, 500),
prev = c(0.001, 0.001), select.gene = "R1",
GRR.matrix.del = GRR.del, p.causal = 0.5,
genetic.model = "multiplicative", replicates = 5)
#Calculate the Jaccard matrix
J <- Jaccard(x, maf.threshold = 0.01)
# }
Run the code above in your browser using DataLab