R语言解决这个问题Run a Cox proportional hazards model (named Model 1), with arms, cd40, age, wtkg, homo, race, gender as the variables. In this Cox model, you need to treat arms as a factor, so you need to replace arms with factor(arms), or deal with it using dummy variables. Which variables have statistically significant effects on survival experience? Moreover, can you test the null hypothesis that all four therapies have the same effect on survival experience?

可以使用以下代码在R语言中运行Cox比例风险模型（Model 1），其中arms, cd40, age, wtkg, homo, race, gender作为自变量，arms需要被视为因子变量：

library(survival)
# 数据集为data
model1 <- coxph(Surv(time, status) ~ factor(arms) + cd40 + age + wtkg + homo + race + gender, data = data)
summary(model1)

在上述代码中，`time`表示时间变量，`status`表示事件状态变量（1表示死亡，0表示存活）。`factor(arms)`将arms变量转化为因子变量，以便进行因子水平之间的比较。`data`表示数据集名称。`summary(model1)`用于输出模型的摘要信息，包括每个自变量的回归系数、标准误差、显著性水平以及模型的整体拟合信息。

要回答哪些自变量对生存经验具有统计显著影响，可以查看`summary(model1)`的输出。在输出中，如果一个自变量的系数估计值的P值小于0.05，则可以认为这个自变量对生存经验具有统计显著影响。

要测试所有四种治疗方式对生存经验是否具有相同的影响，可以使用`anova()`函数进行模型比较。

# 运行四个治疗方式分别的Cox模型
model2 <- coxph(Surv(time, status) ~ factor(arms == 2) + cd40 + age + wtkg + homo + race + gender, data = data)
model3 <- coxph(Surv(time, status) ~ factor(arms == 3) + cd40 + age + wtkg + homo + race + gender, data = data)
model4 <- coxph(Surv(time, status) ~ factor(arms == 4) + cd40 + age + wtkg + homo + race + gender, data = data)

# 对模型进行比较
anova(model1, model2, model3, model4)

在上述代码中，`factor(arms == 2)`表示arms变量等于2时的因子水平，`factor(arms == 3)`表示arms变量等于3时的因子水平，`factor(arms == 4)`表示arms变量等于4时的因子水平。`anova()`函数用于对多个模型进行比较，输出的结果中，如果P值小于0.05，则可以拒绝所有治疗方式对生存经验具有相同影响的空假设。