在R中编写自定义函数，该函数接受带有单位的输入向量

# 自定义函数：处理带有单位的输入向量
# 参数：
#   input_vec: 带有单位的输入向量，格式为数字+单位，例如"10kg"或"5m/s"
# 返回值：
#   处理后的数值向量，不包含单位
custom_function <- function(input_vec) {
  # 提取数字部分
  numeric_part <- as.numeric(gsub("[^0-9.]", "", input_vec))
  
  # 提取单位部分
  unit_part <- gsub("[0-9.]", "", input_vec)
  
  # 根据单位进行相应处理
  processed_vec <- switch(unit_part,
                          "kg" = numeric_part * 1000,  # 千克转克
                          "m" = numeric_part * 100,     # 米转厘米
                          "s" = numeric_part / 60,      # 秒转分钟
                          "min" = numeric_part * 60,    # 分钟转秒
                          numeric_part)                 # 其他情况不进行转换
  
  return(processed_vec)
}

input_vector <- c("10kg", "5m/s")
result_vector <- custom_function(input_vector)
print(result_vector)

[1] 10000    0.08333333