[Robast-commits] r200 - pkg/ROptEst/inst/scripts

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

Author: stamats
Date: 2008-10-31 13:30:18 +0100 (Fri, 31 Oct 2008)
New Revision: 200

Modified:
   pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R
Log:
added computation of confidence intervals

Modified: pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R	2008-10-31 11:59:15 UTC (rev 199)
+++ pkg/ROptEst/inst/scripts/LognormalAndNormalModel.R	2008-10-31 12:30:18 UTC (rev 200)
@@ -144,7 +144,6 @@
 
 
 ## least favorable radius
-## (may take quite some time!)
 (LN1.r.rho1 <- leastFavorableRadius(L2Fam=LN1, neighbor=ContNeighborhood(),
                     risk=asMSE(), rho=0.5))
 (N0.r.rho1 <- leastFavorableRadius(L2Fam=N0, neighbor=ContNeighborhood(),
@@ -172,3 +171,9 @@
 log(estimate(est2))
 estimate(est3)
 log(estimate(est4))
+
+## confidence intervals
+confint(est1, symmetricBias())
+confint(est2, symmetricBias())
+confint(est3, symmetricBias())
+confint(est4, symmetricBias())