[Distr-commits] r115 - pkg/distr/R

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

Author: ruckdeschel
Date: 2008-04-08 17:02:00 +0200 (Tue, 08 Apr 2008)
New Revision: 115

Modified:
   pkg/distr/R/ContinuousDistribution.R
   pkg/distr/R/getLow.R
Log:
minor changes


Modified: pkg/distr/R/ContinuousDistribution.R
===================================================================
--- pkg/distr/R/ContinuousDistribution.R	2008-04-04 11:31:42 UTC (rev 114)
+++ pkg/distr/R/ContinuousDistribution.R	2008-04-08 15:02:00 UTC (rev 115)
@@ -377,4 +377,4 @@
                            .withSim = TRUE, .withArith = TRUE)
             object
           })
-}
\ No newline at end of file
+}

Modified: pkg/distr/R/getLow.R
===================================================================
--- pkg/distr/R/getLow.R	2008-04-04 11:31:42 UTC (rev 114)
+++ pkg/distr/R/getLow.R	2008-04-08 15:02:00 UTC (rev 115)
@@ -11,7 +11,7 @@
                  qe <- q(object)(eps)
                  if (qe > -Inf)
                     return(qe)
-                 else return(q(object)(p = fm(x=.5, f=q(object)))) }
+                 else return(q(object)(p = .fm(x=.5, f=q(object)))) }
                  })
  setMethod("getUp", "AbscontDistribution",
             function(object, eps = getdistrOption("TruncQuantile")) {