sars <- ReadGRAND(system.file("extdata", "sars.tsv.gz", package = "grandR"),
design=c("Cell",Design$dur.4sU,Design$Replicate))
sars <- Normalize(sars) # default behavior is to update the default slot
sars
sars <- DropSlot(sars,"norm")
sars # note that the defauls slot reverted to count
Run the code above in your browser using DataLab