inst/snippet/utilities-uniroot.R

f <- function(x) { 
        coef(ut.lm3)[4] * x + coef(ut.lm3)[3] - coef(ut.lm2)[3] 
}
uniroot( f, c(20,50) )$root

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.