# NOT RUN {
Output <- AutoH2oDRFHurdleModel(
data,
TrainOnFull = FALSE,
ValidationData = NULL,
TestData = NULL,
Buckets = 1L,
TargetColumnName = "Target_Variable",
FeatureColNames = 4:ncol(data),
TransformNumericColumns = NULL,
SplitRatios = c(0.7, 0.2, 0.1),
NThreads = max(1L, parallel::detectCores()-2L),
ModelID = "ModelID",
Paths = NULL,
MetaDataPaths = NULL,
SaveModelObjects = TRUE,
IfSaveModel = "mojo",
MaxMem = {gc();paste0(as.character(floor(as.numeric(system("awk '/MemFree/ {print $2}' /proc/meminfo", intern=TRUE)) / 1000000)),"G")},
NThreads = max(1L, parallel::detectCores()-2L),
Trees = 1000L,
GridTune = FALSE,
MaxModelsInGrid = 1L,
NumOfParDepPlots = 10L,
PassInGrid = NULL)
# }
Run the code above in your browser using DataLab