# 法国食道癌数据的交互效应图
data(esoph)
par(mar = c(4, 4, 0.2, 0.2))
with(esoph, {
interaction.plot(agegp, alcgp, ncases / (ncases + ncontrols),
trace.label = "饮酒量", fixed = TRUE,
xlab = "年龄", ylab = "患癌概率")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.