diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-01-23 16:44:04 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-01-23 16:44:04 +0100 |
| commit | 8ffbc49b3f01deac6f9e83aaa6d318d4e2f8552b (patch) | |
| tree | b8e5d56feb2e10d08b6995940e707cf59bd04e8a /pkg/R | |
| parent | 8975dc148d0a6f222174980eb60314054be9b6cf (diff) | |
Add option to plot relative to maximum
Diffstat (limited to 'pkg/R')
| -rw-r--r-- | pkg/R/TOXSWA_cwa.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pkg/R/TOXSWA_cwa.R b/pkg/R/TOXSWA_cwa.R index 8c93183..bb45a4b 100644 --- a/pkg/R/TOXSWA_cwa.R +++ b/pkg/R/TOXSWA_cwa.R @@ -75,7 +75,7 @@ read.TOXSWA_cwa <- function(filename, basedir = ".", zipfile = NULL, #' zipfile = system.file("testdata/SwashProjects.zip", #' package = "pfm")) #' plot(H_sw_D4_pond) -plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan"), +plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan", "t_rel_to_max"), xlab = "default", ylab = "default", add = FALSE, total = FALSE, LC_TIME = "C", ...) @@ -88,7 +88,8 @@ plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan"), xlab = switch(time_column, datetime = "Time", t = "Time [days]", - t_firstjan = "Time since first of January [days]") + t_firstjan = "Time since first of January [days]", + t_rel_to_max = "Time relative to maximum concentration [days]") } if (ylab == "default") { ylab = paste( ifelse(total, "Total concentration", "Concentration"), "[\u03bcg/L]") |