[Distr-commits] r805 - branches/distr-2.4/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2012-05-15 19:03:53 +0200 (Tue, 15 May 2012)
New Revision: 805

Modified:
   branches/distr-2.4/pkg/distrMod/R/GParetoFamily.R
Log:
yet another small buglet in GParetoFamily

Modified: branches/distr-2.4/pkg/distrMod/R/GParetoFamily.R
===================================================================
--- branches/distr-2.4/pkg/distrMod/R/GParetoFamily.R	2012-05-15 14:38:40 UTC (rev 804)
+++ branches/distr-2.4/pkg/distrMod/R/GParetoFamily.R	2012-05-15 17:03:53 UTC (rev 805)
@@ -257,9 +257,9 @@
 
         ## Pickand estimator
         if(is.null(start0Est)){
-           e0 <- medkMADhybr(x, ParamFamily=GParetoFamily(loc = theta[1],
+           e0 <- estimate(medkMADhybr(x, ParamFamily=GParetoFamily(loc = theta[1],
                             scale = theta[2], shape = theta[3]),
-                            q.lo = 1e-6, q.up = 20)
+                            q.lo = 1e-6, q.up = 20))
         }else{
            if(is(start0Est,"function")){
               e1 <- start0Est(x, ...)