library("aroma.cn")
options("PSCBS/preserveScale"=FALSE)
if (Sys.getenv("_R_CHECK_FULL_") != "" && require("PSCBS")) {
# Load example ASCN data
data <- PSCBS::exampleData("paired.chr01")
# PSCBS segmentation
fit <- segmentByPairedPSCBS(data, verbose=-10)
# Normalize
fitN <- normalizeBAFsByRegions(fit, verbose=-10)
fitN2 <- callAllelicBalanceByBAFs(fitN, verbose=-10)
print(fitN2)
} # if (require("PSCBS"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.