need to add end_event_series to defoliate_trees function. And news, o…

…f course news. #2
chguiterman · Dec 21, 2018 · 8b38ab1 · 8b38ab1
1 parent a908ed6
commit 8b38ab1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # dfoliatR v0.0.3
 * Changed package name
+* Add parameter to allow for events that are ongoing at the time of sampling, called end-series events.
 
 # bugr v0.0.2
 * This version in response to validation trials with real data

diff --git a/R/main.R b/R/main.R
@@ -25,7 +25,8 @@ defoliate_trees <- function(host_tree, nonhost_chron, duration_years = 8,
   tree_list <- lapply(seq_len(nseries), function(i){
     input_series <- stats::na.omit(dplR::combine.rwl(host_tree[, i, drop=FALSE], nonhost_chron))
     corrected_series <- correct_host_series(input_series)
-    defoliated_series <- id_defoliation(corrected_series, duration_years = duration_years, max_reduction = max_reduction)
+    defoliated_series <- id_defoliation(corrected_series, duration_years = duration_years,
+                                        max_reduction = max_reduction, end_series_event = end_series_event)
     return(defoliated_series)
     }
   )