load(file='../../BookCode/nlrwr/data/L.minor.rda')

L.minor.m1 = nls(rate ~ Vm * conc/(K + conc),
                 data=L.minor,
                 start=list(K=20, Vm=120),
                 trace=TRUE)

if( !require('investr') ){
    install.packages('investr', dependencies=TRUE, repos='http://cran.rstudio.com/')
}
library(investr)

plotFit(L.minor.m1, interval='confidence')
grid()