[Distr-commits] r371 - pkg/distrEx/R

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

Author: stamats
Date: 2008-12-09 15:24:40 +0100 (Tue, 09 Dec 2008)
New Revision: 371

Modified:
   pkg/distrEx/R/Internalfunctions.R
Log:
minor correction

Modified: pkg/distrEx/R/Internalfunctions.R
===================================================================
--- pkg/distrEx/R/Internalfunctions.R	2008-12-09 14:06:55 UTC (rev 370)
+++ pkg/distrEx/R/Internalfunctions.R	2008-12-09 14:24:40 UTC (rev 371)
@@ -2,7 +2,7 @@
 
 ## discretize distributions
 .discretizeDistr <- function(D, x, lower, upper, n){
-    print(list(D, x, lower, upper, n))
+#    print(list(D, x, lower, upper, n))
     y <- seq(from = lower, to = upper, length = n)
     x <- x[x<=upper & x>=lower]
     supp <- y[-1]-(y[2]-y[1])/2