From Martin Maechler <maechler@stat.math.ethz.ch>  Sat Mar  2 15:58:18 2002
From: Martin Maechler <maechler@stat.math.ethz.ch> (Martin Maechler)
Date: Sat, 2 Mar 2002 16:58:18 +0100
Subject: [Rd] pweibull.c (PR#1334)
In-Reply-To: <200202282048.VAA09961@pubhealth.ku.dk>
References: <200202282048.VAA09961@pubhealth.ku.dk>
Message-ID: <15488.63130.426668.170319@gargle.gargle.HOWL>

>>>>> "Morten" == Morten Welinder <terra@diku.dk> writes:

    Morten> Full_Name: M Welinder Version: 1.4 OS: (src)
    Morten> Submission from: (NULL) (192.5.35.38)


    Morten> It seems to me that pweibull can be improved in the
    Morten> lower_tail=TRUE and log_p=FALSE case by using expm1.
    Morten> Something like

    Morten> -expm1(-pow(x / scale, shape)),

yes; now that in R-devel (1.5.0 to be)
 expm1() is guaranteed to be available -- I've changed it there.

Note that this is not only for log_p=FALSE, but for both cases
of lower_tail=TRUE

Martin
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


[Rd] pweibull.c (PR#1334)
Martin Maechler