请帮我写一段代码批量把多个基因树转化为有根树，以基因树中的“DCYL”为外群定根。使用R语言的ape包。基因树储存在/ifs1/User/dengwei/NTF_data/7.14/recorder_gene_tree。新建目录/ifs1/User/dengwei/NTF_data/7.14/rooted_gene_tree用来储存定根后的基因树

你可以使用以下R语言代码来批量将多个基因树转化为有根树，并将结果保存在指定目录中。

library(ape)

# 设置文件路径
input_dir <- "/ifs1/User/dengwei/NTF_data/7.14/recorder_gene_tree"
output_dir <- "/ifs1/User/dengwei/NTF_data/7.14/rooted_gene_tree"

# 获取所有基因树文件的列表
gene_tree_files <- list.files(input_dir, pattern = "\\.tre$", full.names = TRUE)

# 循环处理每个基因树文件
for (file in gene_tree_files) {
  # 读取基因树
  gene_tree <- read.tree(file)
  
  # 确定外群名称为"DCYL"
  outgroup <- "DCYL"
  
  # 定义有根树
  rooted_tree <- root(gene_tree, outgroup = outgroup)
  
  # 构建输出文件路径
  output_file <- file.path(output_dir, basename(file))
  
  # 保存有根树
  write.tree(rooted_tree, file = output_file)
  
  # 打印处理信息
  cat("已将", file, "转化为有根树并保存至", output_file, "\n")
}

请确保在运行代码之前已经安装了`ape`包。代码会循环处理指定目录下的所有`.tre`文件，将其转化为有根树，并将结果保存到指定的输出目录中。在代码中，你需要修改`input_dir`和`output_dir`变量的值为你实际的目录路径。