WOLFRAM

Wolfram 语言与系统参考资料中心

实验性药物的疗效

研究员对一种新型抗肿瘤药物的疗效感兴趣，他们记录了癌症患者肿瘤产生的时间. 对43名患者用旧药 (A) 进行了治疗，同时对76名患者用新药 (B) 进行了治疗.

    
Wolfram Language code: drugA = EventData[43]; drugB = EventData[76];
两个生存函数相交：
Wolfram Language code: Plot[Evaluate[SurvivalModelFit[#][t]& /@ {drugA, drugB}], {t, 0, 15}, PlotLegends -> {"A", "B"}, Exclusions -> None]
LogRankTest 在潜在风险率中没有检测出显著不同：
Wolfram Language code: LogRankTest[{drugA, drugB}, Automatic, "TestDataTable"]
假设研究员期待新药能够抑制后期肿瘤的发生. 以下 Fleming–Harrington 权重强调了后期的生存时间：
Wolfram Language code: ListLinePlot[LogRankTest[{drugA, drugB}, {1, 1}, "EventWeights"], AxesLabel -> {"Survival Time", "Weight"}]
LogRankTest 对后期生存的加权检测出了显著不同：
Wolfram Language code: LogRankTest[{drugA, drugB}, {1, 1}, "TestDataTable"]