如何将两个模型绘制成一个图形

Question

我使用DoseFinds来构建这两个模型，我想这样做 在同一图表上绘制两个模型进行比较。

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)

Answer 1

将这两件事合并为一个对象：

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))

然后用superpose=TRUE绘图：

plot(fmodels2, superpose=TRUE)

这两条线并不重叠，所以虽然它看起来像是两个独立的图形，但它不是！

Answer 2

我猜你想在调用plot-function（？plot.Mods）时使用superpose = TRUE。如果模型位于相同的Mods对象中，则会将模型绘制在同一图形中。有关如何在同一对象中拥有多个模型的信息，请参阅？Mods。