ctl <- data.frame(list(conc=c(0,0,0), rate=c(55,60,65), state=c('ctl','ctl','ctl')))
pu <- rbind(Puromycin, ctl)
model1<-multdrc(rate~conc, state,
collapse=data.frame(state,state,1),
data=pu, fct=MM(fixed=c(NA,NA,NA)))
summary(model1)
plot(model1)
rm(ctl, pu, model1)
Run the code above in your browser using DataLab