diff options
| author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-10 13:42:22 +0000 |
|---|---|---|
| committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-10-10 13:42:22 +0000 |
| commit | 9a867d940679498c77a32be9c90f81200019b821 (patch) | |
| tree | 5b38eb5b9d833ce5435a9eb9e4fa853c792187b3 /R/mkinerrmin.R | |
| parent | 2f9b4ee3e956ee36af8a94f9d75bc8fbd9033dbf (diff) | |
- IRLS is implemented
git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@109 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R/mkinerrmin.R')
| -rw-r--r-- | R/mkinerrmin.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R index 2b499d9..7d9d462 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)
|