```{r} f4 <- function(x){100+1*x+40*log(0.005*x+1)-80} interval <- c(0,1000000) (my_root <- uniroot(f4, interval)$root) f4(my_root) ```

Error in uniroot(f4, interval) : f() values at end points not of opposite sign

help me find the correct interval