diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-01-07 23:56:54 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-01-07 23:56:54 +0100 |
| commit | ee070c11f7c7faff2f573d27cf32aafab78971a8 (patch) | |
| tree | 43e4bae8f5f54c94fe70987f9e4a95df2de43dea /pkg/R/TOXSWA_cwa.R | |
| parent | 92d97ba99d7b90d95a67796cb5e68f28f752b70b (diff) | |
Pass ... parameters to added cwa lines
Diffstat (limited to 'pkg/R/TOXSWA_cwa.R')
| -rw-r--r-- | pkg/R/TOXSWA_cwa.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pkg/R/TOXSWA_cwa.R b/pkg/R/TOXSWA_cwa.R index 113dc42..3f7181d 100644 --- a/pkg/R/TOXSWA_cwa.R +++ b/pkg/R/TOXSWA_cwa.R @@ -90,7 +90,7 @@ plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan"), ylab = paste( ifelse(total, "Total concentration", "Concentration"), "[\u03bcg/L]") } if (add) { - lines(x$cwas[c(time_column, cwa_column)], xlab = xlab, ylab = ylab) + lines(x$cwas[c(time_column, cwa_column)], xlab = xlab, ylab = ylab, ...) } else{ plot(x$cwas[c(time_column, cwa_column)], type = "l", xlab = xlab, ylab = ylab, ...) |