[Vegan-commits] r1501 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2011-02-20 18:30:08 +0100 (Sun, 20 Feb 2011)
New Revision: 1501

Modified:
   pkg/vegan/R/as.preston.R
   pkg/vegan/inst/ChangeLog
Log:
highest octave could be NA with 'tiesplit = TRUE' in as.preston

Modified: pkg/vegan/R/as.preston.R
===================================================================
--- pkg/vegan/R/as.preston.R	2011-02-20 11:26:09 UTC (rev 1500)
+++ pkg/vegan/R/as.preston.R	2011-02-20 17:30:08 UTC (rev 1501)
@@ -14,7 +14,7 @@
         notiefreq <- table(ceiling(xlog2[!ties]))
         itie <- as.numeric(names(tiefreq)) + 1
         nitie <- as.numeric(names(notiefreq)) + 1
-        freq <- numeric(max(itie, nitie))
+        freq <- numeric(max(itie+1, nitie))
         ## split tied values between two adjacent octaves
         freq[itie] <- tiefreq/2
         freq[itie+1] <- freq[itie+1] + tiefreq/2

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2011-02-20 11:26:09 UTC (rev 1500)
+++ pkg/vegan/inst/ChangeLog	2011-02-20 17:30:08 UTC (rev 1501)
@@ -17,6 +17,9 @@
 
 	* prestonfit, as.preston: default now 'tiesplit = TRUE'.
 
+	* as.preston (prestonfit, prestondistr): uppermost octave could be
+	NA with 'tiesplit = TRUE' (a bug).
+
 	* decorana: Cajo ter Braak notified about false expansion of
 	computed zero eigenvalues in rescaling to axis scors and in
 	estimating eigenvalues. They are now zeroed. Cajo's example was a