source('../Chapter5/prob_1.R')

# Next fit the Antoine model:
#
vapCO.m2 = nls(log(p) ~ A - B/(C + T), data=vapCO, start=list(A= 10, B=100, C=-10))
print(summary(vapCO.m2))
print(anova(vapCO.m1, vapCO.m2))