model1 <- coxph(Surv(days, cens) ~ factor(arms) + cd40 + age + wtkg + homo + race + gender, data = data)在这个模型上增加一个age和wtkg的交互项

如果你想在这个模型上增加一个age和wtkg的交互项，可以这样写：

model2 <- coxph(Surv(days, cens) ~ factor(arms) + cd40 + age + wtkg + homo + race + gender + age:wtkg, data = data)

其中，age:wtkg表示age和wtkg的交互项。在这个新的模型中，除了原来的自变量之外，还增加了一个交互项。