Description Usage Arguments Value Examples
View source: R/extractVarPart.R
Extract variance statistics from list of models fit with lm()
or lmer()
1 | extractVarPart(modelList, showWarnings = TRUE, ...)
|
modelList |
list of |
showWarnings |
show warnings about model fit (default TRUE) |
... |
other arguments |
data.frame
of fraction of variance explained by each variable, after correcting for all others.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | # library(variancePartition)
# Intialize parallel backend with 4 cores
library(BiocParallel)
register(SnowParam(4))
# load simulated data:
# geneExpr: matrix of gene expression values
# info: information/metadata about each sample
data(varPartData)
# Specify variables to consider
# Age is continuous so we model it as a fixed effect
# Individual and Tissue are both categorical, so we model them as random effects
form <- ~ Age + (1|Individual) + (1|Tissue)
# Step 1: fit linear mixed model on gene expresson
# If categoritical variables are specified, a linear mixed model is used
# If all variables are modeled as continuous, a linear model is used
# each entry in results is a regression model fit on a single gene
# Step 2: extract variance fractions from each model fit
# for each gene, returns fraction of variation attributable to each variable
# Interpretation: the variance explained by each variable
# after correction for all other variables
varPart <- fitExtractVarPartModel( geneExpr, form, info )
# violin plot of contribution of each variable to total variance
plotVarPart( sortCols( varPart ) )
# Advanced:
# Fit model and extract variance in two separate steps
# Step 1: fit model for each gene, store model fit for each gene in a list
results <- fitVarPartModel( geneExpr, form, info )
# Step 2: extract variance fractions
varPart <- extractVarPart( results )
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.