Update plotting-Spectrum.R

fixed the default value in the plot.spectrum function changed it from 0.1 to 25e-6
lgatto · Jun 27, 2018 · e9ddb46 · e9ddb46
1 parent 70a9ec3
commit e9ddb46
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plotting-Spectrum.R b/R/plotting-Spectrum.R
@@ -4,8 +4,8 @@
 ##' @param relative relative (or absolute) deviation
 ##' @param ... additional paramters passed to \code{.plotSpectrumVsSpectrum}.
 ##' @noRd
-plotSpectrumVsSpectrum <- function(spectra, tolerance=0.1,
-                                   relative=FALSE,
+plotSpectrumVsSpectrum <- function(spectra, tolerance=25e-6,
+                                   relative=TRUE,
                                    ...) {
   common <- lapply(list(c(1, 2), c(2, 1)), function(x) {
     commonPeaks(spectra[[x[1]]], spectra[[x[2]]],