f <- function(x, y) { x^2 + y^2 + 2 } domain <- "(-∞, ∞) x (-∞, ∞)" range <- "[2, ∞)" cat("Domain: ", domain, "\n")
## Domain: (-∞, ∞) x (-∞, ∞)
cat("Range: ", range, "\n")
## Range: [2, ∞)