以下是使用Biostrings包中的getPromoterSeq函数获取多个基因ID的序列的示例代码：

library(Biostrings)

# 读取基因组序列文件
genome_file <- system.file("extdata", "hg19.fasta", package="BSgenome.Hsapiens.UCSC.hg19")
genome <- readDNAStringSet(genome_file)

# 定义要查询的基因ID列表
gene_ids <- c("ENSG00000141510", "ENSG00000121879", "ENSG00000131044")

# 获取多个基因ID的启动子序列
promoter_seqs <- getPromoterSeq(genome, gene_ids, upstream = 1000, downstream = 200)

# 输出结果
for (i in seq_along(gene_ids)) {
  cat("Gene ID:", gene_ids[i], "\n")
  cat("Promoter Sequence:", as.character(promoter_seqs[[i]]), "\n\n")
}

在上面的代码中，我们首先加载Biostrings包。然后，我们使用system.file函数指定基因组序列文件的路径，并使用readDNAStringSet函数将其读入为一个DNAStringSet对象。

接下来，我们定义了一个包含要查询的基因ID的向量gene_ids。

然后，我们使用getPromoterSeq函数来获取多个基因ID的启动子序列。这个函数需要三个参数：基因组序列对象，要查询的基因ID列表，以及上游和下游的长度。在这个示例中，我们将上游设置为1000bp，下游设置为200bp。

最后，我们使用一个循环来遍历每个基因ID，并输出其对应的启动子序列。

请注意，要运行此代码示例，您需要首先安装Bioconductor中的Biostrings和BSgenome.Hsapiens.UCSC.hg19包。