From 77ba97f5b1d23ee8ea19a867b66a36d9013f7160 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois=20Pelletier?= Date: Wed, 5 Mar 2014 22:41:46 -0500 Subject: [PATCH] correction mineure --- R/obj.gauss.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/obj.gauss.R b/R/obj.gauss.R index 47e1d60..43c393a 100644 --- a/R/obj.gauss.R +++ b/R/obj.gauss.R @@ -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)) }