diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-06-26 11:42:37 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-06-26 11:42:37 +0200 |
| commit | 787f32a83f08ecd77e0d043bcc17010eecb93fe3 (patch) | |
| tree | 49dc7ecb0698cce94e89bb1eb4871cbaaae784ef | |
| parent | a7e6b9f9a0ba46f84929603296d3dd4a0cbe4787 (diff) | |
Fix naming of SFORB DT50_bx values, fix docs
| -rw-r--r-- | R/endpoints.R | 4 | ||||
| -rw-r--r-- | 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}{ |