我从各种产品(csv文件)的销售中获得了公司收入的数据,其中一个如下所示:
> abc
Order.Week..BV. Product.Number Quantity Net.ASP Net.Price
1 2013-W44 ABCDEF 92 823.66 749
2 2013-W44 ABCDEF 24 898.89 749
3 2013-W44 ABCDEF 243 892.00 749
4 2013-W45 ABCDEF 88 796.84 699
5 2013-W45 ABCDEF 18 744.80 699
Run Code Online (Sandbox Code Playgroud)
现在,我拟合了一个多元回归模型,Net.Price为Y,Quantity,Net.ASP为x1和x2.有超过100个这样的文件,我正在尝试使用以下代码:
fileNames <- Sys.glob("*.csv")
for (fileName in fileNames) {
abc <- read.csv(fileName, header = TRUE, sep = ",")
fit <- lm(Net.Price ~ Quantity + Net.ASP, data = abc)
x <- data.frame (abc, summary(fit))
write.csv (x, file = fileName)
}
Run Code Online (Sandbox Code Playgroud)
现在,我理解这条线x <- …