try R packages: robust and robustbase. Below are my R codes:
library(robustbase)
# method="Mqle" fits a generalized linear model using Mallows or Huber type robust estimators, as described in Cantoni and Ronchetti (2001).
glmrob0<-glmrob(cbind(NumDeath, NumTested-NumDeath)~log(Conc),family=binomial,data=set6,method="Mqle")