[Robast-commits] r116 - branches/robast-0.6/pkg/RobAStBase/R

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

Author: stamats
Date: 2008-07-23 16:59:04 +0200 (Wed, 23 Jul 2008)
New Revision: 116

Modified:
   branches/robast-0.6/pkg/RobAStBase/R/ContIC.R
Log:
minor bug corrected

Modified: branches/robast-0.6/pkg/RobAStBase/R/ContIC.R
===================================================================
--- branches/robast-0.6/pkg/RobAStBase/R/ContIC.R	2008-07-23 13:01:37 UTC (rev 115)
+++ branches/robast-0.6/pkg/RobAStBase/R/ContIC.R	2008-07-23 14:59:04 UTC (rev 116)
@@ -119,7 +119,7 @@
         stopifnot(is.numeric(value))
         L2Fam <- eval(object at CallL2Fam)
         w <- object at weight
-        cent(w) <- value
+        cent(w) <- as.vector(solve(object at stand) %*% value)
         weight(w) <- getweight(w, neighbor = ContNeighborhood(radius = object at neighborRadius), 
                                biastype = object at biastype, 
                                normW = object at normtype)