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

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

Author: stamats
Date: 2011-11-28 22:33:12 +0100 (Mon, 28 Nov 2011)
New Revision: 776

Modified:
   pkg/distrEx/R/Functionals.R
Log:
editing ...

Modified: pkg/distrEx/R/Functionals.R
===================================================================
--- pkg/distrEx/R/Functionals.R	2011-11-28 21:32:45 UTC (rev 775)
+++ pkg/distrEx/R/Functionals.R	2011-11-28 21:33:12 UTC (rev 776)
@@ -22,7 +22,7 @@
         LowIsUpp <- if(low == -Inf) 
                     low == -upp else distr:::.isEqual(ztr-low,upp-ztr)
         
-        if(LowIsUpp && missing(cond)&&missing(fun)){
+        if(LowIsUpp && missing(cond) && missing(fun)){
            if(is(Symmetry(x),"SphericalSymmetry"))
               return(2 * E(x0, fun = function(t)t^2, low =0, useApply = useApply, ...))
         }