0

I used DoseFinds to building the two models and I want to plot both model on the same graph to compare.

library(DoseFinding)
doses <- c(0, 10, 25, 50, 100, 150)
fmodels <- Mods(emax = 25,
            doses=doses, placEff = 0.5, maxEff = -0.4,
            addArgs=list(scal=200))

fmodels2 <- Mods(emax = 25,
            doses=doses, placEff = -1.5, maxEff = -1.4,
            addArgs=list(scal=200))
plot(fmodels)
plot(fmodels2)
Brian Tompsett - 汤莱恩
  • 5,195
  • 62
  • 50
  • 120
ipkall win
  • 41
  • 4

2 Answers2

4

Combine the two things into one object:

doses <- c(0, 10, 25, 50, 100, 150)
fmodels2 <- Mods(emax = c(25,25),
doses=doses, placEff = c(0.5,-1.5), maxEff = c(-0.4,-1.4),
addArgs=list(scal=200))

then plot with superpose=TRUE:

plot(fmodels2, superpose=TRUE)

enter image description here

The two lines don't overlap much so although it looks like two separate graphs, it isnt!

Spacedman
  • 86,225
  • 12
  • 117
  • 197
1

I guess you want to use superpose = TRUE when you call the plot-function (?plot.Mods). This will plot the models in the same graph if they are in the same Mods-object. See ?Mods for how to have more than one model in the same object.

Jon
  • 46
  • 3