modification eqn.Crowder.Mod

This commit is contained in:
François Pelletier 2014-03-06 19:40:14 -05:00
parent 77ba97f5b1
commit 6aea78e5d6

View file

@ -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))
}