In mpierrejean/acnr: Annotated Copy-Number Regions

library("knitr")
opts_chunk$set(
dev='png', fig.width=5, fig.height=5
)

This vignette describes the annotated data sets contained in the acnr package.

library("acnr")

Description of the annotated data sets

tf <- 1
dataSets <- listDataSets()

regList <- lapply(dataSets, FUN=function(ds) {
    regDat <- loadCnRegionData(dataSet=ds, tumorFraction=tf) 
    regs <- regDat[["region"]]
})
names(regList) <- dataSets

allregs <- unique(unlist(regList))
tab <- sapply(allregs, FUN=function(reg) {
    sapply(regList, FUN=function(rr) sum(rr==reg))
})
cap <- paste("Size of annotated copy-number regions for each of the", 
            length(dataSets), "data sets.")
if (require(xtable)) {
    print(xtable(tab, caption=cap, label="tab:regData",
                table.placement="!h", caption.placement="bottom"))
}