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

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

Author: ruckdeschel
Date: 2014-04-03 03:48:39 +0200 (Thu, 03 Apr 2014)
New Revision: 735

Modified:
   branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R
Log:
... RobExtremes: yet an index wrong

Modified: branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R
===================================================================
--- branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R	2014-04-03 01:36:08 UTC (rev 734)
+++ branches/robast-1.0/pkg/RobExtremes/R/GEVFamily.R	2014-04-03 01:48:39 UTC (rev 735)
@@ -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 < mu-e0[1]/e0[2]))
+        if(e0[2]>0) if(any(x < mu-e0[1]/e0[2]))
                stop("some data smaller than 'loc-scale/shape' ")
 
-        if(e0[3]<0) if(any(x > mu-e0[1]/e0[2]))
+        if(e0[2]<0) if(any(x > mu-e0[1]/e0[2]))
                stop("some data larger than 'loc-scale/shape' ")
 
         names(e0) <- NULL