reestimate.purity <- function(loc, multiplicity, ploidy) {
2 * loc / (multiplicity + loc * (2 - ploidy)) # from rearrangement of ASCAT equation
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.