partage/QuadraticEstimatingEquations
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

correction mineure

Browse source
This commit is contained in:
François Pelletier 2014-03-05 22:41:46 -05:00
parent 8ec217769d
commit 77ba97f5b1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
R/obj.gauss.R
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))
}