R
!!!dev.copy()
*直前のplotコマンドの出力を保存する。
*おわったら、dev.off()で切っておくこと。
{{pre
p <- allEffects(mdd.model0)

plot(p)

dev.copy(png, "mdd.model0.png")
dev.off()
}}