data(enzyme)
fit = vglm(velocity ~ 1, micmen, enzyme, trace=TRUE, crit="c",
form2 = ~ conc - 1)
with(enzyme, plot(conc, velocity, xlab="concentration", las=1,
main="Enzyme data", ylim=c(0,max(velocity)),
xlim=c(0,max(conc))))
with(enzyme, points(conc, fitted(fit), col="blue", pch="+"))
# This predicts the response at a finer grid:
newenzyme = data.frame(conc = with(enzyme, seq(0, max(conc),len=200)))
with(newenzyme, lines(conc, predict(fit, newenzyme, type="response"),
col="red"))
summary(fit)
Run the code above in your browser using DataLab