diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/endpoints.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/endpoints.R b/R/endpoints.R index 0bd20ea7..a5bebd71 100644 --- a/R/endpoints.R +++ b/R/endpoints.R @@ -6,11 +6,11 @@ endpoints <- function(fit) { ep <- list()
obs_vars <- fit$obs_vars
parms.all <- fit$bparms.ode
+ ep$ff <- vector()
+ ep$SFORB <- vector()
ep$distimes <- data.frame(DT50 = rep(NA, length(obs_vars)),
DT90 = rep(NA, length(obs_vars)),
row.names = obs_vars)
- ep$ff <- vector()
- ep$SFORB <- vector()
for (obs_var in obs_vars) {
type = names(fit$mkinmod$map[[obs_var]])[1]
|