data(enzyme)
fit = vglm(velocity ~ 1, micmen, enzyme, trace = TRUE, crit = "c",
regressor = enzyme$conc)
attach(enzyme)
plot(conc, velocity, xlab="concentration", las=1, main="enzyme data")
lines(conc, fitted(fit), col="blue")
detach(enzyme)
summary(fit)
Run the code above in your browser using DataLab