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)
summary(diagnosis)
Run the code above in your browser using DataLab