1 files changed, 2 insertions, 2 deletions
diff --git a/R/nafta.R b/R/nafta.R
index 6a8ad42f..a98a7852 100644
--- a/R/nafta.R
+++ b/R/nafta.R
@@ -42,8 +42,8 @@ nafta <- function(ds, title = NA, quiet = FALSE, ...) {
 
   # Compare the sum of squared residuals (SSR) to the upper bound of the
   # confidence region of the SSR for the IORE model
-  result$S <- sapply(result$mmkin, function(x) x$ssr)
-  names(result$S) <- models
+  result$S <- sapply(result$mmkin, function(x) sum(x$data$residual^2))
+  names(result$S) <- c("SFO", "IORE", "DFOP")
   # Equation (3) on p. 3
   p <- 3
   result$S["IORE"]