Question: ```{r} f4
```{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
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
