https://github.com/cran/EnvStats
Tip revision: e4e2e36bb551292f43b58303d7db17717aed35df authored by Alexander Kowarik on 22 August 2023, 13:10:02 UTC
version 2.8.1
version 2.8.1
Tip revision: e4e2e36
fix0107.R
fix0107 <-
function (func = 1, a = 0, b = 1, n = 1000, alpha, beta, mu,
sigma, eta, kappa)
{
i0 <- fix0108(func, a, b, n, alpha, beta, mu, sigma, eta,
kappa)
for (i in (2:100) * 1000) {
i1 <- fix0108(func, a, b, i, alpha, beta, mu, sigma,
eta, kappa)
if (abs(i1 - i0)/i1 < 1e-05)
break
i0 <- i1
}
i1
}