# NOT RUN {
# Create fake data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.70, N = 10000000, Classification = TRUE)
data.table::setnames(data, "IDcol_1", "Predict")
# Run function
EvalPlot(data,
PredictionColName = "Predict",
TargetColName = "Adrian",
GraphType = "calibration",
PercentileBucket = 0.05,
aggrfun = function(x) mean(x, na.rm = TRUE))
# }
Run the code above in your browser using DataLab