R code 求助

附件里有12个txt档，求大神用R code 一次把它们全汇入R，然后输出全部档案中的最后一个"Consumption"数据减去第一个"Consupmtion"数据结果！再把R code传上来。谢谢。

结果应该是这样：

[1] 10
[2] -166
[3] 28
[4] 5
[5] 42
[6] -89
[7] 329
[8] -10
[9] 20
[10] 46
[11] 20
[12] -127

1. fnames <- Map({function (n) sprintf("%d.txt", n)}, c(1:12))
   
2. ans <- c()
   
3. for (i in 1:length(fnames)) {
   
4.   df <- read.table(fnames[[i]], header=T)
   
5.   val <- tail(df\$Consumption, 1) - head(df\$Consumption, 1)
   
6.   ans <- c(ans, val)
   
7. }
   
8. print(ans)

复制代码

谢谢大神!![lol][lol]