Nothing
## -----------------------------------------------------------------------------
library("MAPITR")
data(MAPITR_SimData_Phenotype, MAPITR_SimData_Genotypes, MAPITR_SimData_Pathways, MAPITR_SimData_PCs)
## -----------------------------------------------------------------------------
MAPITR_SimData_Genotypes[1:10,1:10]
## -----------------------------------------------------------------------------
head(MAPITR_SimData_Phenotype)
## -----------------------------------------------------------------------------
head(MAPITR_SimData_Pathways)
## -----------------------------------------------------------------------------
MAPITR_Output <- MAPITR(MAPITR_SimData_Genotypes, MAPITR_SimData_Phenotype, MAPITR_SimData_Pathways)
## -----------------------------------------------------------------------------
head(MAPITR_Output$Results)
## -----------------------------------------------------------------------------
MAPITR_Output$Results[MAPITR_Output$Results[,2] < .01,]
## -----------------------------------------------------------------------------
MAPITR_SimData_PCs[1:5,1:10]
MAPITR_Output2 <- MAPITR(MAPITR_SimData_Genotypes, MAPITR_SimData_Phenotype, MAPITR_SimData_Pathways, Covariates=MAPITR_SimData_PCs)
MAPITR_Output2$Results[MAPITR_Output2$Results[,2] < .01,]
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.