From 79df7845e8d97af413c3b274ca3b31f0b4ca6ab0 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 27 Jun 2014 20:20:56 +0200
Subject: Reorder endpoints in R/endpoints.R, update vignettes

---
 R/endpoints.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/endpoints.R')

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]  
 
-- 
cgit v1.2.1