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

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

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

source('../../BookCode/nlrwr/scripts/chap2.R')

print(deltaMethod(L.minor.m4, '1/b0', parameterNames=paste('b', 0:1, sep='')))

print(deltaMethod(L.minor.m4, 'b1/b0', parameterNames=paste('b', 0:1, sep='')))