diff options
Diffstat (limited to 'R/endpoints.R')
| -rw-r--r-- | R/endpoints.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/endpoints.R b/R/endpoints.R index 98e290d..163dc8d 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -3,7 +3,7 @@ endpoints <- function(fit, pseudoDT50 = FALSE) { # fractions and SFORB eigenvalues from optimised parameters
ep <- list()
obs_vars <- fit$obs_vars
- parms.all <- fit$parms.all
+ parms.all <- fit$bparms.ode
ep$distimes <- data.frame(DT50 = rep(NA, length(obs_vars)),
DT90 = rep(NA, length(obs_vars)),
row.names = obs_vars)
|