# \donttest{
# Validate an existing workflow
data <- data.frame(x = rnorm(100), y = rnorm(100))
result <- borg_validate(list(
data = data,
train_idx = 1:70,
test_idx = 71:100
))
# Check validity
if (!result@is_valid) {
print(result) # Shows detailed risk report
}
# }
Run the code above in your browser using DataLab