Name Mode Size
R 040000
man 040000
tests 040000
vignettes 040000
.Rbuildignore 100644 0 kb
.gitignore 100644 0 kb
DESCRIPTION 100644 1 kb
LICENSE 100644 0 kb
LICENSE.md 100644 1 kb
NAMESPACE 100644 0 kb
README.md 100644 2 kb
README.md
# HVP HVP (hierarchical variance partitioning) is a quantitative batch effect metric that estimates the proportion of variance associated with batch effects in a data set (the "HVP" value of a data set). To determine whether batch effects are statistically significant in a data set, a permutation test can be performed by setting `nperm` to the desired number of permutations. We recommend performing at least 1000 permutations. ## Installation ### Install from Bioconductor (preferred) ``` r # Install package: BiocManager if not present if (!require("BiocManager", quietly = TRUE)) install.packages("BiocManager") BiocManager::install("HVP") ``` ### Install from Github ``` r # Install package: devtools if not present if (!require("devtools", quietly = TRUE)) install.packages("devtools") devtools::install_github("dblux/HVP") ``` ## Usage ``` r library(HVP) # Specify number of samples to simulate for each batch-class group, with # rows representing classes and columns representing batches. crosstab <- matrix(5, 3, 2) # Simulate bulk gene expression data with 100 features simdata <- simulate_bulkexpr(crosstab, 100) X <- simdata$X # matrix with dimensions (nfeature, nsamples) batch <- simdata$metadata$batch # vector representing batch class <- simdata$metadata$class # vector representing class res <- HVP(X, batch, class) print(res@HVP) # To perform permutation test res <- HVP(X, batch, class, nperm = 1000) print(res@p.value) ``` `HVP` is an S4 generic function; methods can be added for new classes. S4 methods for class: `matrix`, `data.frame`, `SummarizedExperiment`, `SingleCellExperiment` and `Seurat` are provided. ``` r # "batch" and "class" are column names of colData in SingleCellExperiment object res <- HVP(sce, "batch", "class", nperm = 1000) # "batch" and "class" are column names of metadata in Seurat object res <- HVP(seu, "batch", "class", nperm = 1000) ```