Changes

design <- model.matrix(~0+factor(c(1,1,1,1,2,2,2,2)),eset) #for four replicates of each treatment group

colnames(design) <- c("resistant","sensitive") # give names to the treatment groups