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