From 6aea78e5d61dcdc79d4520c0980406981d9d9a3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois=20Pelletier?= Date: Thu, 6 Mar 2014 19:40:14 -0500 Subject: [PATCH] modification eqn.Crowder.Mod --- R/eqn.Crowder.Mod.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/eqn.Crowder.Mod.R b/R/eqn.Crowder.Mod.R index 4a8f0ce..60cfc8b 100644 --- a/R/eqn.Crowder.Mod.R +++ b/R/eqn.Crowder.Mod.R @@ -18,6 +18,6 @@ #' @author Francois Pelletier eqn.Crowder.Mod <- function(param,Y,meanf,variancef,dmean,dsd) { - a.Crowder.Mod(param,variancef,dmean,dsd) * sum(Y-meanf(param)) + - b.Crowder.Mod(param,variancef,dmean,dsd) * sum((Y-meanf(param))^2-variancef(param)) + a.Crowder.Mod(param,Y,variancef,dmean,dsd) * sum(Y-meanf(param)) + + b.Crowder.Mod(param,Y,variancef,dmean,dsd) * sum((Y-meanf(param))^2-variancef(param)) }