diff --git a/05-control_calidad.Rmd b/05-control_calidad.Rmd
index 7d4bb44..cef4c54 100644
--- a/05-control_calidad.Rmd
+++ b/05-control_calidad.Rmd
@@ -387,12 +387,12 @@ Después de filtar los droplets, el filtrado por expresión mitocondrial nos va
 ```{r pbmc_chrMT_ayuda}
 sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)]
 is.mito <- grep("^MT-", rowData(sce.pbmc)$Symbol)
-sce.pmbc <- addPerCellQC(sce.pbmc, subsets = list(MT = is.mito))
+sce.pbmc <- addPerCellQC(sce.pbmc, subsets = list(MT = is.mito))
 discard.mito <-
-    isOutlier(sce.pmbc$subsets_MT_percent, type = "higher")
+    isOutlier(sce.pbmc$subsets_MT_percent, type = "higher")
 plot(
-    sce.pmbc$sum,
-    sce.pmbc$subsets_MT_percent,
+    sce.pbmc$sum,
+    sce.pbmc$subsets_MT_percent,
     log = "x",
     xlab = "Total count",
     ylab = "Mitochondrial %"