背景
列线图模型画图报错
在运行ggrcs代码的时候都出现了一样的错误,尝试summary(fit)也出现一样的报错
> dt<-smoke
>
> dd<-datadist(dt)
> options(datadist='dd')
> fit<- cph(Surv(time,status==1) ~ rcs(age,4)+gender, x=TRUE, y=TRUE,data=dt)
>
> ggrcs(data=dt,fit=fit,x="age")
Error in reformulate(attr(termobj, "term.labels")[-dropx], response = if (keep.response) termobj[[2L]], :
'termlabels'必需是长度至少为一的字节矢量
解决方案
已排查是rms版本问题
经测试
R4.4.0 搭配 rms 6.8-1是可以的
R4.3.0搭配6.8-1报错,搭配6.8-0就不报错了。
其他版本R均可尝试降级rms包版本。
后面包的作者应该会解决这个问题。 |