# NOT RUN {
# corrected confidence bands for a linear logistic model
data(insect)
fit <- scb(deaths ~ lconc, type=4, w=nins, data=insect,
deg=1, family="binomial", kern="parm")
plot(fit)
# }
Run the code above in your browser using DataLab