From 787f32a83f08ecd77e0d043bcc17010eecb93fe3 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 26 Jun 2014 11:42:37 +0200
Subject: Fix naming of SFORB DT50_bx values, fix docs

---
 R/endpoints.R    | 4 ++--
 man/endpoints.Rd | 2 +-
 2 files changed, 3 insertions(+), 3 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)
   }
diff --git a/man/endpoints.Rd b/man/endpoints.Rd
index 0a8fd401..ad85622d 100644
--- a/man/endpoints.Rd
+++ b/man/endpoints.Rd
@@ -10,7 +10,7 @@ the Eigenvalues are returned. These are equivalent to the rate constantes of the
 with the advantage that the SFORB model can also be used for metabolites.
 }
 \usage{
-endpoints(fit, pseudoDT50 = FALSE)
+endpoints(fit)
 }
 \arguments{
   \item{fit}{
-- 
cgit v1.2.3