R:使用几个m实现combn函数并定义输出变量

combn_m <- function(vec, m) {
  n <- length(vec)
  result <- list()
  
  # 递归函数，生成所有可能的组合
  generate_combinations <- function(start, current_combination) {
    if (length(current_combination) == m) {
      result[[length(result) + 1]] <- current_combination
      return()
    }
    
    for (i in start:n) {
      generate_combinations(i + 1, c(current_combination, vec[i]))
    }
  }
  
  generate_combinations(1, c())
  
  return(result)
}

# 示例用法
vec <- c("A", "B", "C", "D")
m <- 2
output <- combn_m(vec, m)