# NOT RUN {
# Create an SBS192 catalog and collapse it to an SBS96 catalog
object <- matrix(1, nrow = 192, ncol = 1,
dimnames = list(catalog.row.order$SBS192))
catSBS192 <- as.catalog(object, ref.genome = "hg19", region = "transcript")
catSBS96 <- Collapse192CatalogTo96(catSBS192)
# }
Run the code above in your browser using DataCamp Workspace