R 语言生存曲线如何提取P值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

使用 survival package

>km<-survdiff(formula = Surv(overallsurvival, status) ~ antt[,54],data=antt)
>km
Call:survdiff(formula = Surv(overallsurvival, status) ~ antt[, 54],data = antt)
N Observed Expected (O-E)^2/E (O-E)^2/V
antt[, 54]=C 77 36 41.43 0.711 5.46
antt[, 54]=mut 21 12 6.57 4.484 5.46
Chisq= 5.5 on 1 degrees of freedom, p= 0.0195

在最后面有个p=0.0195 如何把这个P值提取出来？
> summary(km)
Length Class Mode
n 2 table numeric
obs 2 -none- numeric
exp 2 -none- numeric
var 4 -none- numeric
chisq 1 -none- numeric
call 3 -none- call  
> str(km)
List of 6
$ n : 'table' int [1:2(1d)] 77 21
..- attr(*, "dimnames")=List of 1
.. ..$ groups: chr [1:2] "antt[, 54]=C" "antt[, 54]=mut"
$ obs : num [1:2] 36 12
$ exp : num [1:2] 41.43 6.57
$ var : num [1:2, 1:2] 5.4 -5.4 -5.4 5.4
$ chisq: num 5.46$ call : language survdiff(formula = Surv(overallsurvival, status) ~ antt[, 54], data = antt)- attr(*, "class")= chr "survdiff"

km 为包含6个成分的list变量
使用km$n,km$obs,km$exp,km$var,km$chisq, km$call 均得到不到p 值 。

求大神赐教！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：如何提取 Survival Expected Language observed 如何

学习了！

ryoeng 发表于 2015-6-13 17:11
https://stat.ethz.ch/pipermail/r-help/2007-April/130676.html

果然厉害!!佩服佩服！

查了下ryong提供的链接，

实现办法：
p.value <- 1 - pchisq(km$chisq, length(km$n) - 1)

就是利用卡方值跟自由度算概率值啊。。。[lol]

MARK  

真的厉害啊