[Robast-commits] r734 - branches/robast-1.0/pkg/RobExtremes/R

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

Author: ruckdeschel
Date: 2014-04-03 03:36:08 +0200 (Thu, 03 Apr 2014)
New Revision: 734

Modified:
   branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R
Log:
RobExtremes: argh yet another bug for GEV (mu known)

Modified: branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R
===================================================================
--- branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R	2014-04-03 01:17:47 UTC (rev 733)
+++ branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R	2014-04-03 01:36:08 UTC (rev 734)
@@ -256,10 +256,10 @@
                e0 <- e0[c("scale", "shape")]
         }
 #        print(e0); print(str(x)); print(head(summary(x))); print(mu)
-        if(e0[3]>0) if(any(x < e0[1]-e0[2]/e0[3]))
+        if(e0[3]>0) if(any(x < mu-e0[1]/e0[2]))
                stop("some data smaller than 'loc-scale/shape' ")
 
-        if(e0[3]<0) if(any(x > e0[1]-e0[2]/e0[3]))
+        if(e0[3]<0) if(any(x > mu-e0[1]/e0[2]))
                stop("some data larger than 'loc-scale/shape' ")
 
         names(e0) <- NULL