diff --git a/Dockerfile b/Dockerfile
index cb59a7e..73a4ba2 100644
--- a/Dockerfile
+++ b/Dockerfile
@@ -27,9 +27,7 @@ FROM bioc_base
 COPY MeDUSA MeDUSA
 WORKDIR MeDUSA
 RUN chown rstudio /home/rstudio/*.xml
-RUN R -e 'devtools::document()'
-RUN  R -e 'devtools::test()'
-RUN  R -e 'devtools::install(dependencies="never")'
+RUN R -e  'devtools::check()'
 
 ### TO BUILD
 # docker build . -f Dockerfile -t lacdr/medusa
diff --git a/MeDUSA/R/3_mz_subtraction.R b/MeDUSA/R/3_mz_subtraction.R
index 22b9de2..ba4fd41 100644
--- a/MeDUSA/R/3_mz_subtraction.R
+++ b/MeDUSA/R/3_mz_subtraction.R
@@ -34,10 +34,10 @@
 #'
 #' To remove values from "samples" that are lower than "blanks" * "threshold"
 #'
-#' sample_mz   <- MeDUSA::mztools_filter(input_mzObj,metadata,"blanks","type",F)
-#' subtract_mz <- MeDUSA::mztools_filter(input_mzObj,metadata,"blanks","type",T)
+#' sample_mz_obj   <- MeDUSA::mztools_filter(input_mzObj,metadata,"blanks","type",F)
+#' subtract_mz_obj <- MeDUSA::mztools_filter(input_mzObj,metadata,"blanks","type",T)
 #'
-#' mz_subtraction(input_mz_obj, samples_meta, blanks_meta, threshold = "5" )
+#' mz_subtraction(sample_mz_obj, subtract_mz_obj, threshold = 5 )
 #
 #' @export
 mz_subtraction <- function(sample_mz_obj, subtract_mz_obj , method = mean, threshold = 3) {