roc

    0熱度

    1回答

    我有以下代碼繪製ROC曲線。 from sklearn.datasets import make_classification from sklearn.linear_model import LogisticRegression from sklearn import metrics from ggplot import * import pandas as pd X, y = ma

    1熱度

    1回答

    我想繪製與ggplot2在一個繪圖上的多個ROC曲線。下面是我在多大程度上得到: ggroc2 <- function(columns, data = mtcars, classification = "am", interval = 0.2, breaks = seq(0, 1, interval)){ require(pROC) require(ggplo

    2熱度

    1回答

    我很難理解ROCR包的performance()函數返回的內容。讓我用一個可重複的例子來具體說明。我使用mpg數據集。我的代碼如下: library(ROCR) library(ggplot2) library(data.table) library(caTools) data(mpg) setDT(mpg) mpg[year == 1999, Year99 := 1] mpg[ye

    0熱度

    1回答

    dredge results snapshot我在MuMin包中使用疏通功能來使用邏輯迴歸提出多個因子組合。 library(MuMIn) AA <- dredge(Forward.model,evaluate = TRUE,rank = "AIC",m.lim = c(8,13),trace=2) write.xlsx(AA,File location) 這導致大約10000個不同的模型

    -1熱度

    1回答

    我有5個不同大小的數據集,對於每個數據集,我選擇了10個與數據庫大小相同的bootstrap樣本,對於每個樣本,我都有真正的正數,真正的負數,誤報,假負數和樣本的意思。即使它們具有不同的尺寸,我是否可以合計所有樣本值?使用R構建所有數據庫的ROC曲線的最佳方法是什麼?什麼是最好的統計測試?我嘗試使用pROC和ROCR包,但它們需要預測值和類(它們是我沒有的值,我只有tp,tn,fp和fn的值)。

    0熱度

    1回答

    我需要繪製R中的ROC曲線,但我不知道如何更正它。 cctrl2 <- trainControl(method = "cv", number = 10, classProbs = TRUE, savePredictions = TRUE) modelNb <- train(Treino[, -5], Treino$TOTAL_PEDIDO, method = "nb",

    -2熱度

    1回答

    我正在繪製使用由插入符R包創建的測試/火車集的模型的ROC曲線。我要麼沒有把正確的數據輸入到繪圖中,要麼錯過了創建我的測試/訓練集的信息。任何見解? *編輯與正確答案 library(caret) library(mlbench) set.seed(506) data(whas) inTrain <- createDataPartition(y = whas$bin.frail, p =

    0熱度

    1回答

    我正在繪製ROC曲線,並根據截斷水平對它進行了着色。然而,圖例中的數字擁有比所需的更多的小數位,並且與圖例的整體大小相比非常大。我想要一個十進制數字,更多的值,更小的文字和更大的圖例。但我不知道如何控制這些參數。我的代碼如下: ggplot(Stats1_glm, aes(x = (1 - Specificity), y = Sensitivity, colour = Cut_Off)) +

    0熱度

    1回答

    我正在查看具有一個連續獨立變量(Quant)和一個二進制因變量(二進制)的數據集。我用一個多項式模型來預測連續自變量的二進制值。我希望能製作ROC曲線。這是下面的代碼: mymodel <- multinom(Quant~., data = dataset) pred <- predict(mymodel,dataset) roc_pred <- prediction(pred,dataset

    -1熱度

    1回答

    ROC曲線我寫了下面的代碼繪製ROC曲線: pred1 <- prediction(predict(modelID), LS_01RR$Payment_Ind) perf1 <- performance(pred1,"tpr","fpr") plot(perf1) plot(perf1,main="hivpr - ROC Curves",col="blue") abline(0,1,col