在R中的应用函数内使用if else语句

if (condition) {
  # 如果条件为真，执行这里的代码块
} else {
  # 如果条件为假，执行这里的代码块
}

x <- 10

if (x > 0) {
  result <- x * 2
} else {
  result <- x / 2
}

print(result)

x <- 5
y <- 3

if (x > y) {
  result <- "x is greater than y"
} else if (x < y) {
  result <- "x is less than y"
} else {
  result <- "x is equal to y"
}

print(result)

divide <- function(x, y) {
  if (y == 0) {
    stop("Cannot divide by zero")
  } else {
    return(x / y)
  }
}

result <- divide(10, 2)
print(result)

result <- divide(10, 0)
print(result)