x = seq(0.8, 1.5, by=0.1)
loglog(x) # Has NAs
loglog(x, earg = list(bvalue = 1.0 + .Machine$double.eps)) # Has no NAs
x = seq(1.01, 10, len = 100)
loglog(x)
max(abs(loglog(loglog(x), inverse = TRUE) - x)) # Should be 0
Run the code above in your browser using DataLab