尝试在r中编写一个函数，用于计算变量并分配级别和标签

# 定义函数
calculate_level <- function(variable) {
  # 计算变量
  result <- variable * 10
  
  # 分配级别和标签
  level <- cut(result, breaks = c(-Inf, 50, 100, Inf), labels = c("Low", "Medium", "High"))
  
  # 返回结果
  return(list(result = result, level = level))
}

# 调用函数
variable <- 5
output <- calculate_level(variable)

# 打印结果
print(output$result)
print(output$level)