在函数中读取 R 中的 CSV 文件

Question

我有一个问题，我似乎无法在网上任何地方找到答案。如果它已经被回答，我很抱歉，但是这里有。我在 R 中编写了一个脚本，它将为我完成预测过程，并根据交叉验证和其他标准返回最佳点预测。我想将此脚本保存为一个函数，这样我就不必每次去预测时都使用完整的脚本。我的脚本的基本设置如下：

output <- read.csv("C:/Users/data.csv", header = T)
colnames(output)
month_count = length(output[,1]) ##used in calculations throughout code
current_year = output[1,1]
current_month = output[1,2]
months = 5 #months to forecast out


m = 0
data <- ts(output[,3][c(1:(month_count-m))],
frequency = 12, start = c(current_year,current_month))
#runs all the other steps from here on

我正在编写的函数看起来像这样，它接受各种输入，然后运行脚本并打印回我的预测

forecastMe = function(sourcefile,months,m)
  {
            #runs the data prints out the result
  }

我遇到的问题是我希望能够在函数中输入目录和文件名，例如 C:/Users/documents/data1.csv （对于源文件部分），然后在我的 R 脚本的这一步。

output <- read.csv("C:/Users/sourcefile.csv", header = T)

我似乎找不到让它正确执行的方法。有什么想法或建议吗？

Answer 1

所以...

function(sourcefile, etc) {
  output <- read.csv(sourcefile, header = T)
  etc
}

……那个？我真的不明白你在问什么。

Answer 2

你快到了。你所要做的就是用你想传递给函数的变量名替换你的常量，并删除你不再需要的声明。

forecastMe = function(sourcefile,months,m)   {

     output <- read.csv(sourcefile, header = T)
     colnames(output)
     month_count = length(output[,1]) ##used in calculations throughout code
     current_year = output[1,1]
     current_month = output[1,2]

     data <- ts(output[,3][c(1:(month_count-m))],
     frequency = 12, start = c(current_year,current_month))
     #runs all the other steps from here on
  }