[Robast-commits] r84 - pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2008-03-30 17:10:25 +0200 (Sun, 30 Mar 2008)
New Revision: 84

Modified:
   pkg/ROptEst/R/getInfRobIC_asGRisk.R
Log:
minibug ... repaired

Modified: pkg/ROptEst/R/getInfRobIC_asGRisk.R
===================================================================
--- pkg/ROptEst/R/getInfRobIC_asGRisk.R	2008-03-30 12:21:31 UTC (rev 83)
+++ pkg/ROptEst/R/getInfRobIC_asGRisk.R	2008-03-30 15:10:25 UTC (rev 84)
@@ -136,7 +136,7 @@
         if(is(normtype,"InfoNorm") || is(normtype,"SelfNorm") ) 
            {QuadForm(normtype) <- PosSemDefSymmMatrix(FI); 
             normtype(risk) <- normtype}
-        QF <- if(is(normtype,"QFNorm")) QuadForm(normtype) else diag(nrow(A))
+        QF <- if(is(normtype,"QFNorm")) QuadForm(normtype) else diag(nrow(A.start))
         
         if(is.null(z.start)) z.start <- numeric(ncol(trafo))
         if(is.null(A.start)) A.start <- trafo %*% solve(Finfo)