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

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

Author: stamats
Date: 2008-10-31 12:59:15 +0100 (Fri, 31 Oct 2008)
New Revision: 199

Modified:
   pkg/ROptEst/inst/scripts/GammaModel.R
   pkg/ROptEst/inst/scripts/GumbelLocationModel.R
Log:
added computation of confidence intervals, seem to work correctly ...

Modified: pkg/ROptEst/inst/scripts/GammaModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/GammaModel.R	2008-10-31 11:39:14 UTC (rev 198)
+++ pkg/ROptEst/inst/scripts/GammaModel.R	2008-10-31 11:59:15 UTC (rev 199)
@@ -92,3 +92,9 @@
 estimate(est3)
 estimate(est2)
 estimate(est4)
+
+## confidence intervals
+confint(est1, symmetricBias())
+confint(est3, symmetricBias())
+confint(est2, symmetricBias())
+confint(est4, symmetricBias())

Modified: pkg/ROptEst/inst/scripts/GumbelLocationModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/GumbelLocationModel.R	2008-10-31 11:39:14 UTC (rev 198)
+++ pkg/ROptEst/inst/scripts/GumbelLocationModel.R	2008-10-31 11:59:15 UTC (rev 199)
@@ -152,6 +152,11 @@
 estimate(G0.est2)
 estimate(G0.est11)
 
+## confidence intervals
+confint(G0.est1, symmetricBias())
+confint(G0.est2, symmetricBias())
+confint(G0.est11, symmetricBias())
+
 ## comparison - radius interval
 estimate(G0.est3)
 estimate(G0.est5)
@@ -159,4 +164,11 @@
 estimate(G0.est6)
 estimate(G0.est21)
 
+## confidence intervals
+confint(G0.est3, symmetricBias())
+confint(G0.est5, symmetricBias())
+confint(G0.est4, symmetricBias())
+confint(G0.est6, symmetricBias())
+confint(G0.est21, symmetricBias())
+
 distrExOptions(ElowerTruncQuantile=0) # default