View source: R/calculate_CES_score.R
calculate_CES_score | R Documentation |
Calculate CES Score from Segmentation
calculate_CES_score(sample_segmentation)
sample_segmentation |
Segmentation Dataframe |
Numeric; CES score
### Loading example SampleBam file
example_file <- system.file("extdata","example_patientcfDNA_SampleBam.RDS",package = "cfdnakit")
sample_bambin <- readRDS(example_file)
### Example PoN
PoN_rdsfile <- system.file("extdata","ex.PoN.rds",package = "cfdnakit")
pon_profiles <- readRDS(PoN_rdsfile)
sample_profile <- get_fragment_profile(sample_bambin,sample_id = "Patient1")
sample_zscore <- get_zscore_profile(sample_profile,pon_profiles)
sample_zscore_segment <- segmentByPSCB(sample_zscore)
calculate_CES_score(sample_zscore_segment)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.