[Robast-commits] r241 - branches/robast-0.7/pkg/ROptEst/inst/scripts pkg/ROptEst/inst/scripts

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

Author: ruckdeschel
Date: 2008-12-09 22:07:41 +0100 (Tue, 09 Dec 2008)
New Revision: 241

Modified:
   branches/robast-0.7/pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
   branches/robast-0.7/pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
   pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
   pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
Log:
two minor buglets in scripts to ROptEst

Modified: branches/robast-0.7/pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
===================================================================
--- branches/robast-0.7/pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-12-08 12:45:16 UTC (rev 240)
+++ branches/robast-0.7/pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-12-09 21:07:41 UTC (rev 241)
@@ -114,7 +114,7 @@
 ## takes some time
 IC2 <- radiusMinimaxIC(L2Fam=N1, neighbor=ContNeighborhood(),risk=asMSE(), 
                        loRad=0.1, upRad=1.0) 
-(est2 <- oneStepEstimator(x, IC2, est0$estimate))
+(est2 <- oneStepEstimator(x, IC2, est0))
 
 
 ## a simple example

Modified: branches/robast-0.7/pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
===================================================================
--- branches/robast-0.7/pkg/ROptEst/inst/scripts/UnderOverShootRisk.R	2008-12-08 12:45:16 UTC (rev 240)
+++ branches/robast-0.7/pkg/ROptEst/inst/scripts/UnderOverShootRisk.R	2008-12-09 21:07:41 UTC (rev 241)
@@ -122,11 +122,11 @@
 N0.Rob7 <- InfRobModel(center = NormLocationFamily(mean = estimate(est0)), 
                        neighbor = ContNeighborhood(radius=0.5))
 N0.IC9 <- optIC(model=N0.Rob7, risk=asUnOvShoot(width = 1.960))
-(est1 <- oneStepEstimator(X, IC = N0.IC9, start = estimate(est0)))
+(est1 <- oneStepEstimator(X, IC = N0.IC9, start = est0))
 confint(est1, symmetricBias())
 
 N0.Rob8 <- FixRobModel(center = NormLocationFamily(mean = estimate(est0)), 
                        neighbor = ContNeighborhood(radius=0.05))
 N0.IC10 <- optIC(model=N0.Rob8, risk=fiUnOvShoot(width = 1.960/sqrt(n)), sampleSize = 1e2)
-(est2 <- oneStepEstimator(X, IC = N0.IC10, start = estimate(est0)))
+(est2 <- oneStepEstimator(X, IC = N0.IC10, start = est0))
 confint(est2, symmetricBias())

Modified: pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-12-08 12:45:16 UTC (rev 240)
+++ pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-12-09 21:07:41 UTC (rev 241)
@@ -114,7 +114,7 @@
 ## takes some time
 IC2 <- radiusMinimaxIC(L2Fam=N1, neighbor=ContNeighborhood(),risk=asMSE(), 
                        loRad=0.1, upRad=1.0) 
-(est2 <- oneStepEstimator(x, IC2, est0$estimate))
+(est2 <- oneStepEstimator(x, IC2, est0))
 
 
 ## a simple example

Modified: pkg/ROptEst/inst/scripts/UnderOverShootRisk.R
===================================================================
--- pkg/ROptEst/inst/scripts/UnderOverShootRisk.R	2008-12-08 12:45:16 UTC (rev 240)
+++ pkg/ROptEst/inst/scripts/UnderOverShootRisk.R	2008-12-09 21:07:41 UTC (rev 241)
@@ -122,11 +122,11 @@
 N0.Rob7 <- InfRobModel(center = NormLocationFamily(mean = estimate(est0)), 
                        neighbor = ContNeighborhood(radius=0.5))
 N0.IC9 <- optIC(model=N0.Rob7, risk=asUnOvShoot(width = 1.960))
-(est1 <- oneStepEstimator(X, IC = N0.IC9, start = estimate(est0)))
+(est1 <- oneStepEstimator(X, IC = N0.IC9, start = est0))
 confint(est1, symmetricBias())
 
 N0.Rob8 <- FixRobModel(center = NormLocationFamily(mean = estimate(est0)), 
                        neighbor = ContNeighborhood(radius=0.05))
 N0.IC10 <- optIC(model=N0.Rob8, risk=fiUnOvShoot(width = 1.960/sqrt(n)), sampleSize = 1e2)
-(est2 <- oneStepEstimator(X, IC = N0.IC10, start = estimate(est0)))
+(est2 <- oneStepEstimator(X, IC = N0.IC10, start = est0))
 confint(est2, symmetricBias())