number <- 100
result <- sqrt(number)
# result = 10
# Integer root, rounded down
root <- floor(sqrt(99))
# root = 9
cat("result =", result, "\n")
cat("root =", root, "\n")
# sqrt(-1): NaN with a warning, not an error
msg <- tryCatch(sqrt(-1),
warning = conditionMessage)
cat("msg =", msg, "\n")