带有多个条件语句的伪代码，用于在R中返回多个选项

# 伪代码示例：带有多个条件语句的函数

my_function <- function(input) {
  if (input == "option1") {
    # 执行选项1的代码
    return("这是选项1的结果")
  } else if (input == "option2") {
    # 执行选项2的代码
    return("这是选项2的结果")
  } else if (input == "option3") {
    # 执行选项3的代码
    return("这是选项3的结果")
  } else {
    # 输入无效的选项
    return("无效的选项")
  }
}

# 调用函数并打印结果
result1 <- my_function("option1")
print(result1)

result2 <- my_function("option2")
print(result2)

result3 <- my_function("option3")
print(result3)

result4 <- my_function("option4")
print(result4)