Ln Function

Ln Function using Taylor Series

ln_1  <- function(x,NoTerms){
  i=1
  estimate=0
  for (i in 1:NoTerms) {
    estimate <- estimate+ ((-1)^(i+1))*((x-1)^i)/(i)
    i=i+1
    }
  return(c(estimate,log(x)))
  
}

ln_1(1.5,10)

## [1] 0.4054346 0.4054651