From 8021c7cb9aac06e961227a3c0e0b013ec2d2d501 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 7 May 2015 16:15:23 +0200
Subject: Bugfix: Reset maximum event concentration for each event

---
 pkg/R/TOXSWA_cwa.R | 1 +
 1 file changed, 1 insertion(+)

(limited to 'pkg/R')

diff --git a/pkg/R/TOXSWA_cwa.R b/pkg/R/TOXSWA_cwa.R
index 948d7a9..7fd8ec1 100644
--- a/pkg/R/TOXSWA_cwa.R
+++ b/pkg/R/TOXSWA_cwa.R
@@ -252,6 +252,7 @@ TOXSWA_cwa <- R6Class("TOXSWA_cwa",
               pre_interval = event_start - event_end
               i_start = i
               event = TRUE
+              event_max = cwa_cur
             }
           } else {
             if (cwa_cur > event_max) event_max = cwa_cur
-- 
cgit v1.2.1