请完善上述代码，基因树储存在/ifs1/User/dengwei/NTF_data/rotted_gene_tree目录下，请遍历该目录下所有基因树。请将输出的基因树储存在/ifs1/User/dengwei/NTF_data/adj_gene_tree目录下。请注意物种树和基因树都是treefile格式。

以下是完善后的代码，根据你的要求遍历基因树目录，并将输出的有根基因树保存到指定目录下：

library(ape)
library(tools)

# 读取物种树
species_tree <- read.tree("species_tree.treefile")

# 设置基因树目录和输出目录
gene_tree_folder <- "/ifs1/User/dengwei/NTF_data/rotted_gene_tree"
output_folder <- "/ifs1/User/dengwei/NTF_data/adj_gene_tree"

# 确定外群名称为"DCYL"
outgroup <- "DCYL"

# 定义函数：将物种树转化为有根树并保存到输出目录
convert_to_rooted_tree <- function(gene_tree_file, species_tree, outgroup, output_folder) {
  # 读取基因树
  gene_tree <- read.tree(gene_tree_file)
  
  # 定根
  rooted_tree <- root(gene_tree, outgroup = outgroup)
  
  # 获取基因树文件名
  gene_tree_file_name <- file_path_sans_ext(basename(gene_tree_file))
  
  # 构建输出文件路径
  output_file <- file.path(output_folder, paste0(gene_tree_file_name, "_rooted.treefile"))
  
  # 保存有根基因树
  write.tree(rooted_tree, file = output_file)
}

# 获取基因树文件列表
gene_tree_files <- list.files(path = gene_tree_folder, pattern = ".treefile", full.names = TRUE)

# 遍历基因树文件并逐个转化为有根基因树
for (gene_tree_file in gene_tree_files) {
  convert_to_rooted_tree(gene_tree_file, species_tree, outgroup, output_folder)
}

在上述代码中，你需要将`species_tree.treefile`替换为你实际的物种树文件路径。然后，设置基因树目录和输出目录的路径。代码中定义了一个名为`convert_to_rooted_tree`的函数，用于将单个基因树转化为有根基因树，并将其保存到输出目录中。最后，通过遍历基因树文件列表，调用`convert_to_rooted_tree`函数逐个处理基因树文件。请确保你已经安装了ape包和tools包。