if (require("PSCBS") && Sys.getenv("_R_CHECK_FULL_") != "") {
# Load example ASCN data
pathname <- system.file("data-ex/PairedPSCBS,exData,chr01.Rbin", package="PSCBS");
data <- R.utils::loadObject(pathname);
# PSCBS segmentation
fit <- segmentByPairedPSCBS(data, verbose=-10);
# Normalize
fitN <- normalizeBAFsByRegions(fit, verbose=-10);
fitN2 <- callAllelicBalanceByBAFs(fitN, verbose=-10);
print(fitN2);
} # if (require("PSCBS"))Run the code above in your browser using DataLab