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

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

Author: stamats
Date: 2008-05-20 12:49:35 +0200 (Tue, 20 May 2008)
New Revision: 95

Modified:
   pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
   pkg/ROptEst/inst/scripts/PoissonModel.R
Log:
adaption of scripts to package changes

Modified: pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-05-20 10:45:47 UTC (rev 94)
+++ pkg/ROptEst/inst/scripts/NormalLocationScaleModel.R	2008-05-20 10:49:35 UTC (rev 95)
@@ -96,7 +96,7 @@
 x <- rnorm(100, mean=0, sd=(1-ind) + ind*9)
 
 ## 2. Kolmogorov(-Smirnov) minimum distance estimator
-(est0 <- ksEstimator(x=x, Norm()))
+(est0 <- MDEstimator(x=x, NormLocationScaleFamily(), distance = KolmogorovDist))
 
 ## 3. one-step estimation: radius known
 N1 <- NormLocationScaleFamily(mean=est0$mean, sd=est0$sd)

Modified: pkg/ROptEst/inst/scripts/PoissonModel.R
===================================================================
--- pkg/ROptEst/inst/scripts/PoissonModel.R	2008-05-20 10:45:47 UTC (rev 94)
+++ pkg/ROptEst/inst/scripts/PoissonModel.R	2008-05-20 10:49:35 UTC (rev 95)
@@ -127,7 +127,7 @@
 (est0 <- mean(x))
 
 ## 1. Kolmogorov(-Smirnov) minimum distance estimator
-(est1 <- ksEstimator(x=x, Pois()))
+(est1 <- MDEstimator(x=x, PoisFamily(), distance = KolmogorovDist))
 
 ## 2. one-step estimation: radius interval
 ## 2.1 small amount of contamination < 2%