CNPBayes models multi-modal densities via a hierarchical Bayesian Gaussian mixture model. The major application of this model is the estimation of copy number at copy number polymorphic loci (CNPs). Four versions of the mixture model are implemented: a *standard* model, referred to as a *SingleBatch* (SB) model , that has one mean and standard deviation for each component; a *SingleBatchPooled* (SBP) model that has a pooled estimate of the standard deviation across all mixture components; a *MultiBatch* (MB) model with batch-specific means and standard deviations; and a *MultiBatchPooled* (MBP) model with batch-specific standard deviations that are pooled across mixture components within each batch. For all versions, approximation of the posterior is by Markov Chain Monte Carlo (MCMC) written in C++ using the Rcpp package [@Rcpp].

For an EM-implementation of Gaussian mixture models for CNPs, see the Bioconductor package CNVtools [@Barnes2008]. A Bayesian extension of this model by some of the same authors was developed to automate the analysis of the Welcome Trust Case Control Consortium (WTCCC) genotype data [@cardin] and implemented in the R package CNVCALL (http://niallcardin.com/CNVCALL).

This vignette provides a concise workflow for fitting mixture models in large array-based genome-wide association studies. Other vignettes in this package provide details on the implementation and functions for evaluating convergence.

library(CNPBayes) library(SummarizedExperiment) library(ggplot2) library(tidyverse)

Our starting point is a `SummarizedExperiment`

containing log R ratios from a SNP array and a `GRangesList`

containing deletions and duplications identified from a hidden Markov model.

path <- system.file("extdata", package="CNPBayes") se <- readRDS(file.path(path, "simulated_se.rds")) grl <- readRDS(file.path(path, "grl_deletions.rds"))

Using this data, we identify the genomic coordinates of the CNP locus and use the median to summarize the log R ratios for each sample. We advise against using the first principal component as a summary statistic in large studies as this may capture batch effects. See Identifying Copy Number Polymorphisms for instructions on finding CNPs with a `SnpArrayExperiment`

and `GRangesList`

.

##cnv.region <- consensusCNP(grl, max.width=5e6) cnv.region <- readRDS(file.path(path, "cnv_region.rds")) i <- subjectHits(findOverlaps(cnv.region, rowRanges(se))) med.summary <- matrixStats::colMedians(assays(se)[["cn"]][i, ], na.rm=TRUE)

At loci where copy number variants are common, the distribution of the median log R ratios computed above can be approximated by a finite mixture of normal distributions.

`gibbs`

functionThis package provides several implementations of a Bayesian hierarchical normal mixture model, where the implementations differ by whether the component means and variances are batch-specific (multi-batch 'MB' model) or a single batch ('SB' model). In addition, we allow the variance estimates to be pooled across all components within the multi-batch ('MBP') and single-batch ('SBP') models. For large studies involving SNP microarrays, the `combinePlates`

function can be useful to identify groups of plates processed in the same batch. As there are only 35 samples in this toy example, we assume that these samples were all processed in the same batch and we will only consider the SB and SBP models. The following code chunk initializes an MCMC parameters object that contain parameters governing the number of burnin iterations, the number of iterations following burnin, how often two save simulated values from the chain (*thin*), and the number of independently initialized models (*nStarts*).

mp <- McmcParams(nStarts=5, burnin=500, iter=1000, thin=1)

The workhorse function in this package is `gibbs`

. This function allows the user to specify one or all of the four possible mixture model types (SB, MB, SBP, MBP) and for each type fit models with mixture components specified by the argument `k_range`

. Below, we run 4 chains for 1000 iterations (100 iterations burnin) for only the k=3 SB model. (In practice, we would fit multiple models and specify a range for k. For example, `k_range=c(1, 5)`

). As described in the convergence vignette, an attempt is made by `gibbs`

to adapt the thinning and burnin parameters if there are indications that the chains have not converged. The models evaluated by `gibbs`

are returned in a list where all chains have been combined and the models are sorted by decreasing value of the marginal likelihood. In order to properly assess convergence, this function requires that one run at least 2 independent chains. Below, we specify a `max_burnin`

to a small number (400) to speed up computation. A much longer burnin may be required for convergence.

model.list <- gibbs(model="SB", dat=med.summary, k_range=c(2, 3), mp=mp, max_burnin=400, top=2)

In the following codechunk, we visually inspect the chains for convergence.

model <- model.list[[1]] model chains <- ggChains(model) chains[[1]] chains[[2]]

The posterior predictive distribution is also useful for assessing the adequacy of a model. Here, the approximation could be improved by increasing burnin, the number of iterations following burnin, and / or by increasing the thinning parameter.

## only one batch full.data <- tibble(y=med.summary, batch=paste("Batch 1")) predictive <- posteriorPredictive(model) %>% mutate(batch=paste("Batch", batch), component=factor(component)) predictive$n <- 4000 predictive$component <- factor(predictive$component) ggplot(predictive, aes(x=y, n_facet=n, y=..count../n_facet, fill=component)) + geom_histogram(data=full.data, aes(y, ..density..), bins=400, inherit.aes=FALSE, color="gray70", fill="gray70", alpha=0.1) + geom_density(adjust=1, alpha=0.4, size=0.75, color="gray30") + ## show marginal density theme(panel.background=element_rect(fill="white"), axis.line=element_line(color="black"), legend.position="bottom", legend.direction="horizontal") + scale_y_sqrt() + xlab("average copy number") + ylab("density") + guides(color=FALSE)

While the MB and MBP implementations explicitly model batch effects, occasionally the log R ratios are skewed (non-Gaussian) for technical reasons other than batch effects. Unfortunately, there is no guarantee of a one-to-one mapping between mixture components and copy number. The function `CopyNumberModel`

attemps to map copy number states to the mixture components by assessing the extent of overlap of the mixtures -- the rationale being that two mixture components with substantial overlap are fitting the skewness of the data as opposed to multiple copy number states. Given additional information, one may also manually provide this mapping through the `mapping<-`

function.

cn.model <- CopyNumberModel(model) ggMixture(cn.model)

For additional details regarding model construction and mapping mixture components to copy number states, see Bayesian mixture models for copy number estimation. Having mapped copy number states to the mixture components, we can obtain the posterior probabilities for the copy number states:

probs <- probCopyNumber(cn.model) head(probs)

If thousands of samples are available, we generally do not need to fit the model to all samples in order to adequately estimate the mixture distribution. Below, we indicate a workflow for downsampling. Here, we assume that chemistry plate is a useful surrogate of batch.

mb <- MultiBatchModelExample full.data <- tibble(medians=y(mb), plate=batch(mb), batch_orig=as.character(batch(mb))) partial.data <- downSample(full.data, size=1000, min.batchsize=50) ## confusingly, the downsampled data uses a different indexing for batch plate.mapping <- partial.data %>% select(c(plate, batch_index)) %>% group_by(plate) %>% summarize(batch_index=unique(batch_index))

We fit the model to the mean summarized bins in the usual way. To speed up computation, we specify the true k=3 model in this toy example.

model <- gibbs(model="MB", k_range=c(3, 3), dat=partial.data$medians, batches=partial.data$batch_index, mp=mp)[[1]]

To map posterior probabilities back to the original observations, we use the function `upSample2`

.

full.data2 <- left_join(full.data, plate.mapping, by="plate") model.up <- upSample2(full.data2, model) model.up nrow(probz(model.up)) head(round(probz(model.up)), 2)

The object `model.up`

can be converted to a copy number model using the same approach as described previously (i.e., `CopyNumberModel(model.up)`

). As there is a one-to-one mapping between mixture components and copy number, the posterior probabilities for the mixture components (`prob.up`

) is the same as the posterior probabilties of the copy number states (`probCopyNumber`

).

cn.model <- CopyNumberModel(model.up) mapping(cn.model) round(head(probz(cn.model)), 2) round(head(probCopyNumber(cn.model)), 2)

See the convergence vignette for assessing convergence and visually inspecting the MCMC chains for each parameter in the mixture model.

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.