validate_input <- function(x) {
  if (!is.numeric(x)) {
    stop("Input must be numeric")
  }
  return(sqrt(x))
}
result <- validate_input(16)
print(result)