写一个读入txt文本并对其中两列数据进行处理后单独输出到另一个txt文本的R语言程序

以下是一个读取txt文本、对其中两列数据进行处理并单独输出到另一个txt文本的R语言程序：

# 读取txt文本
data <- read.table("input.txt", header = TRUE)

# 对数据进行处理
new_data <- data.frame(col1 = data$col1 * 2, col2 = data$col2 / 2)

# 将处理后的数据输出到txt文本
write.table(new_data, "output.txt", sep = "\t", row.names = FALSE, col.names = TRUE)

其中，`read.table`函数用于读取txt文本，`header = TRUE`表示第一行是列名。

`data$col1`和`data$col2`分别表示读取数据中的两列。

`new_data`是一个新的数据框，其中`col1`列是将原数据中的`col1`列乘以2的结果，`col2`列是将原数据中的`col2`列除以2的结果。

`write.table`函数用于将处理后的数据输出到txt文本，`sep = "\t"`表示使用制表符作为分隔符，`row.names = FALSE`表示不输出行名，`col.names = TRUE`表示输出列名。