# NOT RUN {
# Create fake data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.70, N = 10000000, Classification = FALSE)
data.table::setnames(data, "Independent_Variable2", "Predict")
# Build plot
Plot <- RemixAutoML::ParDepCalPlots(
data,
PredictionColName = "Predict",
TargetColName = "Adrian",
IndepVar = "Independent_Variable1",
GraphType = "calibration",
PercentileBucket = 0.20,
FactLevels = 10,
Function = function(x) mean(x, na.rm = TRUE))
# }
Run the code above in your browser using DataLab