data(test_adlp_component)
test_component1 <- test_adlp_component
test_component2 <- test_adlp_component
test_components <- adlp_components(
component1 = test_component1,
component2 = test_component2
)
newdata <- test_component1$model_train$data
test_adlp <- adlp(test_components, newdata = newdata, response_name = "claims",
partition_func = adlp_partition_ap, tri.size = 40, size = 3)
Run the code above in your browser using DataLab