data("aristolochia")
attach(aristolochia)
# Assuming the same aristolochia data set, but considering randomized blocks
bloco=rep(paste("B",1:16),5)
resp=resp/2
DBC.glm(trat,bloco, cbind(resp,50-resp), glm.family="binomial")
Run the code above in your browser using DataLab