df <- read_excel("C:/Users/Z/Desktop/123.xlsx") dd=datadist(df) options(datadist="dd") options(na.action="na.delete") coxm <- cph(Surv(T,E)~`original.firstorder.RobustMeanAbsoluteDeviation`+`log.sigma.4.0.mm.3D.firstorder.InterquartileRange`+`log.sigma.5.0.mm.3D.glszm.SmallAreaEmphasis`+`wavelet.LLH.firstorder.InterquartileRange`+`wavelet.LLH.firstorder.Uniformity`+`wavelet.HHL.firstorder.Mean`+`wavelet.LLL.glcm.Autocorrelation`+`wavelet.LLL.glcm.ClusterProminence`,x=T,y=T,data=df,surv=T)
时间: 2023-12-16 21:06:45 浏览: 470
Read data from the Excel spreadsheet.zip_Spreadsheet::Read_excel
在你的代码中,我没有看到任何明显的语法错误。不过,我注意到你在使用了datadist()函数之后,没有使用summary()函数来生成数据的摘要统计信息。如果你想要使用datadist()函数,你需要先调用datadist()函数来定义数据的分布信息,然后再使用summary()函数来生成数据的摘要统计信息。例如:
```
df <- read_excel("C:/Users/Z/Desktop/123.xlsx")
dd <- datadist(df)
options(datadist="dd", na.action="na.omit")
summary(df)
```
此外,你在调用cph()函数的时候,似乎把x、y和surv参数都设置为了T,这可能会导致错误。在使用cph()函数时,通常只需要设置data参数即可。例如:
```
coxm <- cph(Surv(T,E)~`original.firstorder.RobustMeanAbsoluteDeviation`+`log.sigma.4.0.mm.3D.firstorder.InterquartileRange`+`log.sigma.5.0.mm.3D.glszm.SmallAreaEmphasis`+`wavelet.LLH.firstorder.InterquartileRange`+`wavelet.LLH.firstorder.Uniformity`+`wavelet.HHL.firstorder.Mean`+`wavelet.LLL.glcm.Autocorrelation`+`wavelet.LLL.glcm.ClusterProminence`, data=df)
```
请尝试修改你的代码并重新运行,看看是否仍然存在错误。
阅读全文