GMMStuff/R/objective.GMM.R

20 lines
689 B
R
Raw Normal View History

2014-02-27 03:45:46 +00:00
# Objective function for the GMM method
#
# Author: Francois Pelletier
#
# LGPL-3.0
###############################################################################
#' Objective function for the GMM method
#' @param param Vector of parameters
2014-02-27 03:45:46 +00:00
#' @param conditions.vector Vector of moment conditions
#' @param data Individual data sample
2014-02-27 03:45:46 +00:00
#' @param W Weighting matrix
2014-03-08 05:41:05 +00:00
#' @param ... Functions of the vector of moment conditions
2014-02-27 03:45:46 +00:00
#' @return A scalar value
#' @export objective.GMM
2014-02-27 03:45:46 +00:00
#' @author François Pelletier
objective.GMM <- function(param,conditions.vector,data,W,...)
2014-02-27 03:45:46 +00:00
{
as.vector(colMeans(conditions.vector(param,data,...)) %*% ginv(W) %*% colMeans(conditions.vector(param,data,...)))
2014-02-27 03:45:46 +00:00
}