# Plot an approximate 95\% confidence region for the weight and displacement
# parameters in the Michaelis Menten model
library(nls)
data(Puromycin)
fit <- nls(rate ~ Vm*conc/(K + conc), data = Puromycin, subset = state=="treated",
start = list(K = 0.05, Vm = 200))
plot(ellipse(fit), type = 'l')
Run the code above in your browser using DataLab