
explink(theta, bvalue = NULL, inverse = FALSE, deriv = 0, short = TRUE, tag = FALSE)
cloglog
.Links
.explink
with deriv = 0
, the exponential of theta
, i.e.,
exp(theta)
when inverse = FALSE
.
And if inverse = TRUE
then
log(theta)
;
if theta
is not positive then it will return NaN
.
For deriv = 1
, then the function returns
d theta
/ d eta
as a function of theta
if inverse = FALSE
,
else if inverse = TRUE
then it returns the reciprocal.
Here, all logarithms are natural logarithms, i.e., to base e.
theta
close to negative or positive infinity
may result in
0
, Inf
, -Inf
, NA
or NaN
.Links
,
loge
,
rcim
,
Qvar
,
uninormal
.theta <- rnorm(30)
explink(theta)
max(abs(explink(explink(theta), inverse = TRUE) - theta)) # Should be 0
Run the code above in your browser using DataLab