set.seed(42)
data <- data.frame(
x = runif(100, 0, 100),
y = runif(100, 0, 100),
response = rnorm(100)
)
diagnosis <- borg_diagnose(data, coords = c("x", "y"), target = "response",
verbose = FALSE)
cert <- borg_certificate(diagnosis, data)
print(cert)
Run the code above in your browser using DataLab