From 9a867d940679498c77a32be9c90f81200019b821 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Thu, 10 Oct 2013 13:42:22 +0000
Subject: - IRLS is implemented

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@109 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 R/mkinerrmin.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/mkinerrmin.R')

diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R
index 2b499d97..7d9d4626 100644
--- a/R/mkinerrmin.R
+++ b/R/mkinerrmin.R
@@ -17,13 +17,13 @@
 
 # You should have received a copy of the GNU General Public License along with
 # this program. If not, see <http://www.gnu.org/licenses/>
-if(getRversion() >= '2.15.1') utils::globalVariables(c("name"))
+if(getRversion() >= '2.15.1') utils::globalVariables(c("name", "value_mean"))
 
 mkinerrmin <- function(fit, alpha = 0.05)
 {
   parms.optim <- fit$par
   kinerrmin <- function(errdata, n.parms) {
-    means.mean <- mean(errdata$value_mean, na.rm=TRUE)
+    means.mean <- mean(errdata$value_mean, na.rm = TRUE)
     df = length(errdata$value_mean) - n.parms
   
     f <- function(err)
-- 
cgit v1.2.1