R-alpha: R-0.13 patch

Kurt Hornik (hornik@ci.tuwien.ac.at)
Mon, 18 Nov 1996 12:23:54 +0100


Date: Mon, 18 Nov 1996 12:23:54 +0100
Message-Id: <199611181123.MAA11444@aragorn.ci.tuwien.ac.at>
From: Kurt Hornik <hornik@ci.tuwien.ac.at>
To: r-testers@stat.math.ethz.ch
Subject: R-alpha: R-0.13 patch

Attached is a patch for a few obvious problems in src/library/base/distn.

-k


*** src/library/base/distn.orig	Tue Oct 29 22:29:27 1996
--- src/library/base/distn	Sun Nov 17 16:55:52 1996
***************
*** 1,11 ****
  dexp := function(x, rate=1) .Internal(dexp(x, 1/rate))
! pexp := function(q, rate=1) .Internal(pexp(x, 1/rate))
! qexp := function(p, rate=1) .Internal(qexp(x, 1/rate))
  rexp := function(n, rate=1) .Internal(rexp(n, 1/rate))
  
  dunif := function(x, min=0, max=1) .Internal(dunif(x, min, max))
! punif := function(q, min=0, max=1) .Internal(punif(x, min, max))
! qunif := function(p, min=0, max=1) .Internal(qunif(x, min, max))
  runif := function(n, min=0, max=1) .Internal(runif(n, min, max))
  
  dnorm := function(x, mean=0, sd=1) .Internal(dnorm(x, mean, sd))
--- 1,11 ----
  dexp := function(x, rate=1) .Internal(dexp(x, 1/rate))
! pexp := function(q, rate=1) .Internal(pexp(q, 1/rate))
! qexp := function(p, rate=1) .Internal(qexp(p, 1/rate))
  rexp := function(n, rate=1) .Internal(rexp(n, 1/rate))
  
  dunif := function(x, min=0, max=1) .Internal(dunif(x, min, max))
! punif := function(q, min=0, max=1) .Internal(punif(q, min, max))
! qunif := function(p, min=0, max=1) .Internal(qunif(p, min, max))
  runif := function(n, min=0, max=1) .Internal(runif(n, min, max))
  
  dnorm := function(x, mean=0, sd=1) .Internal(dnorm(x, mean, sd))

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-testers mailing list -- For info or help, send "info" or "help",
To [un]subscribe, send "[un]subscribe"
(in the "body", not the subject !)  To: r-testers-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-