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

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Mathematics Questions!