Я имею в виду функцию, которую пользователь вводит с помощью ввода, следующим образом:
cat("check if the directory is the same of the file")
input <- readline(prompt="Enter with file name in form >file.txt<: ")
output<-readline(prompt="Enter with file output in form >file.dat<: ")
Затем, после ввода пользователем с именем файла .txt, оценивается вектор «сумма», кстати:
column <- read.table(input, header=F)
sum = column * 2
Наконец, выводится текстовый файл:
write.table(sum, file=output, row.names=FALSE, col.names=FALSE)
Это работает, но я не знаю, как все это преобразовать в функцию.