0

パッケージ：

install.packages("pROC") 

library(pROC)

データセットは次のようになります。

列 3 から始まるすべての列に roc() コードを適用しようとしています。

roc1 <- roc(df$Immunoscore,df$col_name)

現在、ある方法を考えていましたlapply。

list_of_AUC <- lapply(3:ncol, function(i){

roc(RD0161_Final$Immunoscore, RD0161_Final[,i])})

私は間違いを犯しています：

3:ncol のエラー: NA/NaN 引数

より良い方法はありますか？助けてください！

4

2 に答える 2

3

これはうまくいきますか？

lapply(RD0161_Final[,3:9], function(i) {
      roc(RD0161_Final[,2] ~ i)
}

または、列名を指定することもできます

lapply(RD0161_Final[,3:9], function(i) {
      roc(RD0161_Final[["Immunoscore"]] ~ i)
}
于 2021-06-12T06:32:36.397 に答える
2

このコードを試してください -

list_of_AUC <- lapply(RD0161_Final[-(1:2)], function(x) roc(RD0161_Final$Immunoscore, x))

3:ncol(RD0161_Final)を使用してデータフレームをサブセット化することもできます。

list_of_AUC <- lapply(RD0161_Final[3:ncol(RD0161_Final)], function(x) roc(RD0161_Final$Immunoscore, x))
于 2021-06-12T05:42:24.147 に答える