将函数应用于矩阵的一列并将输出写入新的txt文件

Question

所以我有一个矩阵：REG [106：3]，我想要的是获取REG的第二列并将一个函数应用于该列的每个元素。该函数应为每个新条目创建一个新的.txt文件，该文件将使我赋予该函数的元素数量每次增加10次，每次增加1000。 条目14500的示例txt文件应如下所示：

ex 14500
前15500
前16500
前17500
前18500
前19500年
前20500
前21500
前22500
前23500

到目前为止，我的代码如下：

REG <-matrix(NA, nrow=106, ncol=3)
REG[,1] <- gencode_gene_info_19_50k[,9]
REG[,2] <- gencode_gene_info_19_50k[,4]
REG[,3] <- gencode_gene_info_19_50k[,4]
REG[,3] <-(REG[,3] + 5000)
REG[,2] <-(REG[,3] - 5000)
colnames(REG) <- letters[1:3]
textfilecreate = function(reg){
  fileConn <- file()
}
mapply(FUN = textfilecreate(),reg = REG)