correction mineure

This commit is contained in:
François Pelletier 2014-03-05 22:41:46 -05:00
parent 8ec217769d
commit 77ba97f5b1

View file

@ -18,8 +18,8 @@
#' @author Francois Pelletier
obj.gauss <- function(param,Y,meanf,variancef,dmean,dsd,Q=diag(4))
{
eqn.gauss(param,Y,meanf,variancef,dmean,dsd) %*% Q %*%
eqn.gauss(param,Y,meanf,variancef,dmean,dsd)
as.vector(eqn.gauss(param,Y,meanf,variancef,dmean,dsd) %*% Q %*%
eqn.gauss(param,Y,meanf,variancef,dmean,dsd))
}