powered by
bisection(ftn, x.l, x.r, tol = 1e-09)
newtonraphson
fixedpoint
ftn5 <- function(x) return(log(x)-exp(-x)) bisection(ftn5, 1, 2, tol = 1e-6)
Run the code above in your browser using DataLab