aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-06-26 11:42:37 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-06-26 11:42:37 +0200
commit787f32a83f08ecd77e0d043bcc17010eecb93fe3 (patch)
tree49dc7ecb0698cce94e89bb1eb4871cbaaae784ef /R
parenta7e6b9f9a0ba46f84929603296d3dd4a0cbe4787 (diff)
Fix naming of SFORB DT50_bx values, fix docs
Diffstat (limited to 'R')
-rw-r--r--R/endpoints.R4
1 files changed, 2 insertions, 2 deletions
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)
}

Contact - Imprint