[Robast-commits] r110 - branches/robast-0.6/pkg/RobLox/R

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

Author: stamats
Date: 2008-07-21 14:57:16 +0200 (Mon, 21 Jul 2008)
New Revision: 110

Modified:
   branches/robast-0.6/pkg/RobLox/R/rlsOptIC_AL.R
   branches/robast-0.6/pkg/RobLox/R/rsOptIC.R
Log:
small bugs corrected

Modified: branches/robast-0.6/pkg/RobLox/R/rlsOptIC_AL.R
===================================================================
--- branches/robast-0.6/pkg/RobLox/R/rlsOptIC_AL.R	2008-07-21 12:39:08 UTC (rev 109)
+++ branches/robast-0.6/pkg/RobLox/R/rlsOptIC_AL.R	2008-07-21 12:57:16 UTC (rev 110)
@@ -129,7 +129,7 @@
     if(computeIC){
         w <- new("HampelWeight")
         clip(w) <- b
-        cent(w) <- c(0, a2)
+        cent(w) <- c(0, a2-1)
         stand(w) <- A
         weight(w) <- getweight(w, neighbor = ContNeighborhood(radius = r), 
                                biastype = symmetricBias(), 

Modified: branches/robast-0.6/pkg/RobLox/R/rsOptIC.R
===================================================================
--- branches/robast-0.6/pkg/RobLox/R/rsOptIC.R	2008-07-21 12:39:08 UTC (rev 109)
+++ branches/robast-0.6/pkg/RobLox/R/rsOptIC.R	2008-07-21 12:57:16 UTC (rev 110)
@@ -64,7 +64,7 @@
     if(computeIC){
         w <- new("HampelWeight")
         clip(w) <- b
-        cent(w) <- z
+        cent(w) <- z-1
         stand(w) <- as.matrix(A)
         weight(w) <- getweight(w, neighbor = ContNeighborhood(radius = r), 
                                biastype = symmetricBias(),