Reads the purple.qc file.
Examples
x <- system.file("extdata/purple/purple.qc", package = "gpgr")
(q <- purple_qc_read(x))
#> $raw
#> # A tibble: 12 × 2
#> key value
#> <chr> <chr>
#> 1 QCStatus FAIL_CONTAMINATION
#> 2 Method NORMAL
#> 3 CopyNumberSegments 1428
#> 4 UnsupportedCopyNumberSegments 2
#> 5 Purity 0.8600
#> 6 AmberGender MALE
#> 7 CobaltGender MALE
#> 8 DeletedGenes 150
#> 9 Contamination 0.807
#> 10 GermlineAberrations NONE
#> 11 AmberMeanDepth 128
#> 12 LohPercent 0.0328
#>
#> $summary
#> # A tibble: 9 × 4
#> n variable value details
#> <dbl> <chr> <glue> <glue>
#> 1 1 QC_Status FAIL_CONTAMINATION See 'Description'.
#> 2 13 Method NORMAL Fit method (NORMAL, HIGHL…
#> 3 14 CopyNumberSegments 1428 (Unsupported: 2) # of CN segments.
#> 4 2 Purity 0.8600
#> 5 17 Gender Amber: MALE; Cobalt: MALE
#> 6 14 DeletedGenes 150 # of homozygously deleted…
#> 7 15 Contamination 0.807 Rate of contamination in …
#> 8 16 GermlineAberrations NONE Can be one or more of: KL…
#> 9 18 AmberMeanDepth 128 Mean depth as determined …
#>