如何使用"if"，"else“创建一个自定义函数来在R中进行单位转换(例如在lbs和kg之间)。

convert_weight <- function(weight, unit) {
  if (unit == "lbs") {
    converted_weight <- weight * 0.45359237
    return(converted_weight)
  } else if (unit == "kg") {
    converted_weight <- weight * 2.20462262
    return(converted_weight)
  } else {
    return("Invalid unit")
  }
}

# 使用示例
weight_lbs <- 160
converted_weight_kg <- convert_weight(weight_lbs, "lbs")
print(paste(weight_lbs, "lbs is equal to", converted_weight_kg, "kg"))

weight_kg <- 75
converted_weight_lbs <- convert_weight(weight_kg, "kg")
print(paste(weight_kg, "kg is equal to", converted_weight_lbs, "lbs"))