[Robast-commits] r1123 - branches/robast-1.2/pkg/RobAStBase/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2018-08-11 16:45:33 +0200 (Sat, 11 Aug 2018)
New Revision: 1123

Modified:
   branches/robast-1.2/pkg/RobAStBase/R/optIC.R
Log:
[RobAStBase] branch 2.8: 
overlooked one instance of solve without distr::solve

Modified: branches/robast-1.2/pkg/RobAStBase/R/optIC.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/optIC.R	2018-08-11 14:34:06 UTC (rev 1122)
+++ branches/robast-1.2/pkg/RobAStBase/R/optIC.R	2018-08-11 14:45:33 UTC (rev 1123)
@@ -4,7 +4,7 @@
 setMethod("optIC", signature(model = "L2ParamFamily", risk = "asCov"),
     function(model, risk, withMakeIC = FALSE){
         Curve <- as((trafo(model at param) %*% distr::solve(model at FisherInfo)) %*% model at L2deriv, "EuclRandVariable")
-        asCov <- trafo(model at param) %*% solve(model at FisherInfo) %*% t(trafo(model at param))
+        asCov <- trafo(model at param) %*% distr::solve(model at FisherInfo) %*% t(trafo(model at param))
 
         modifyIC <- function(L2Fam, IC, withMakeIC=FALSE){ optIC(L2Fam, asCov()) }
         L2call <- model at fam.call