# NOT RUN {
train_data <- mtcars[1:20,]
test_data <- mtcars[21:32,]
hat_values_model <- apd_hat_values(train_data)
hat_values_scoring <- score(hat_values_model, new_data = test_data)
hat_values_scoring
# }
Run the code above in your browser using DataLab