if (Sys.getenv("_R_CHECK_FULL_") != "" && require("PSCBS")) {
# Load example ASCN data
data <- PSCBS::exampleData("paired.chr01");
# PSCBS segmentation
fit <- segmentByPairedPSCBS(data, verbose=-10);
fit <- bootstrapTCNandDHByRegion(fit, verbose=-10);
fitC <- callCopyNeutralRegions(fit, verbose=-10);
print(fitC);
# Normalize
fitN <- normalizeBAFsByRegions(fitC, verbose=-10);
} # if (require("PSCBS"))
Run the code above in your browser using DataLab