data(test_adlp_component)
newdata <- test_adlp_component$model_train$data
pdf_data = calc_adlp_component(test_adlp_component, newdata = newdata,
model = "train", calc = "pdf")
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_adlp_component$model_train$data
pdf_data = calc_adlp_component_lst(test_components, newdata = newdata,
model = "train", calc = "pdf")
Run the code above in your browser using DataLab