QuadraticEstimatingEquations/R/eqn.Crowder.Mod.R

24 lines
994 B
R
Raw Normal View History

2014-02-24 02:05:36 +00:00
# Modified Quadratic estimating equation (Crowder)
#
# Author: Francois Pelletier
#
# LGPL-3.0
###############################################################################
#' Modified Quadratic estimating equation (Crowder)
#' @param Y Individual data sample
#' @param param Vector of parameters of the distribution function
#' @param meanf Mean function of the distribution
#' @param variancef Variance function of the distribution
#' @param dmean Derivative in respect to the parameter vector of the mean function of the distribution
#' @param dsd Derivative in respect to the parameter vector of the standard deviation function of the distribution
#' @return The vector value of the estimating equation
#' @export eqn.Crowder.Mod
2014-02-24 02:05:36 +00:00
#' @author Francois Pelletier
eqn.Crowder.Mod <- function(param,Y,meanf,variancef,dmean,dsd)
{
2014-03-07 00:40:14 +00:00
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))
2014-02-24 02:05:36 +00:00
}