У меня проблема с графиком Кривая доза-ответ , из-за неправильного интервала между метками. Как я могу решить эту проблему?
код:
p<-mortB/n
y<-cbind(mortB, n-mortB)
m1<-glm(y~log(concent)*treatment, family=binomial)
plot(concent, p, type="n", log="x", xlab="Log(Concentration)", ylab="Mortality")
x<-seq(0,100,0.01)
lines(x, predict(m1, list(concent=x, treatment=factor(rep("B", length(x)), levels=levels(treatment))),type="response"))
участок: введите описание изображения здесь
thx