Displaying 1 result from an estimated 1 matches for "inveps".
Did you mean:
inveos
2025 Jan 08
1
binomial()$linkinv no longer accepts integer values
...double *rans = REAL(ans), *reta = REAL(eta);
if (!n || !isReal(eta))
error(_("Argument %s must be a nonempty numeric vector"), "eta");
for (i = 0; i < n; i++) {
double etai = reta[i], tmp;
tmp = (etai < MTHRESH) ? DBL_EPSILON :
((etai > THRESH) ? INVEPS : exp(etai));
rans[i] = x_d_opx(tmp);
}
UNPROTECT(1);
return ans;
}