Fix vignette to reflect changes to 'select_transcripts()' and related…

… functions

vignettes/Intro_qsvaR.Rmd

@@ -159,7 +159,9 @@ knitr::include_graphics("../man/figures/transcripts_venn_diagramm.png")
 
 ```{r "Get Degraded Transcripts"}
 # obtain transcripts with degradation signature
-DegTx <- getDegTx(rse_tx, type = "cell_component")
+DegTx <- getDegTx(
+  rse_tx, sig_transcripts = select_transcripts(cell_component = TRUE)
+)
 dim(DegTx)
 ```
 
@@ -212,7 +214,12 @@ This can be done in one step with our wrapper function `qSVA` which just combind
 set.seed(20230621)
 
 ## Example use of the wrapper function qSVA()
-qsvs_wrapper <- qSVA(rse_tx = rse_tx, type = "cell_component", mod = mod, assayname = "tpm")
+qsvs_wrapper <- qSVA(
+    rse_tx = rse_tx,
+    sig_transcripts = select_transcripts(cell_component = TRUE),
+    mod = mod, 
+    assayname = "tpm"
+)
 dim(qsvs_wrapper)
 ```