knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(RVMMAT)
Use a simulated longitudinal binary phenotype and genotype data with random ascertainment for 1000 subjects, each with 5 repeated measures. Each subject has 2 causal SNPs.
p0 = rvmmat_simu(n.sample = 1000, n.time =5)
Estimate null model:
m0 = rvmmat_est(y.long = p0$phe.long, y.cov = p0$phe.cov.long, time = p0$phe.time,phe.model=p0$phe.model)
Perform VAMMT and RVMMAT tests
p_val = rvmmat_test(m0, G = p0$snp.mat) tail(p_val)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.