aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2015-01-07 23:56:54 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2015-01-07 23:56:54 +0100
commitee070c11f7c7faff2f573d27cf32aafab78971a8 (patch)
tree43e4bae8f5f54c94fe70987f9e4a95df2de43dea
parent92d97ba99d7b90d95a67796cb5e68f28f752b70b (diff)
Pass ... parameters to added cwa lines
-rw-r--r--pkg/DESCRIPTION2
-rw-r--r--pkg/R/TOXSWA_cwa.R2
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, ...)

Contact - Imprint