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 | |
parent | 92d97ba99d7b90d95a67796cb5e68f28f752b70b (diff) |
Pass ... parameters to added cwa lines
-rw-r--r-- | pkg/DESCRIPTION | 2 | ||||
-rw-r--r-- | pkg/R/TOXSWA_cwa.R | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pkg/DESCRIPTION b/pkg/DESCRIPTION index dc3db7e..0fe9fc5 100644 --- a/pkg/DESCRIPTION +++ b/pkg/DESCRIPTION @@ -2,7 +2,7 @@ Package: pfm Type: Package Title: Utilities for pesticide fate modelling Version: 0.1-1 -Date: 2014-12-19 +Date: 2015-01-07 Authors@R: "Johannes Ranke <jranke@uni-bremen.de> [aut, cre, cph]" Description: Utilities for dealing with data from FOCUS software tools. Depends: R6 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, ...) |