From 787f32a83f08ecd77e0d043bcc17010eecb93fe3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 26 Jun 2014 11:42:37 +0200 Subject: Fix naming of SFORB DT50_bx values, fix docs --- R/endpoints.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R/endpoints.R') diff --git a/R/endpoints.R b/R/endpoints.R index 18d8159b..5150b4bd 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -117,8 +117,8 @@ endpoints <- function(fit) { ep$SFORB[[paste(obs_var, "b1", sep="_")]] = b1 ep$SFORB[[paste(obs_var, "b2", sep="_")]] = b2 - ep$distimes[obs_var, c("DT50_b1")] = DT50_b1 - ep$distimes[obs_var, c("DT50_b2")] = DT50_b2 + ep$distimes[obs_var, c(paste("DT50", obs_var, "b1", sep = "_"))] = DT50_b1 + ep$distimes[obs_var, c(paste("DT50", obs_var, "b2", sep = "_"))] = DT50_b2 } ep$distimes[obs_var, c("DT50", "DT90")] = c(DT50, DT90) } -- cgit v1.2.1