下面有幫你把程式修成能跑的，不過我還是推薦我的解法
我的解法：
library_mul <- function(..., lib.loc = NULL, quietly = FALSE,
warn.conflicts = TRUE){
pkgs <- setdiff(sapply(as.list(substitute(list(...))),as.character),"list")
if (any(!pkgs %in% installed.packages()))
install.packeges(pkgs[!pkgs %in% installed.packages()])
invisible(sapply(pkgs, library, character.only = TRUE, lib.loc = lib.loc,
quietly = quietly))
}
library_mul(pipeR, data.table)
DT_list <- list.files("E:/", pattern = "\\.txt") %>>% lapply(fread) %>>%
lapply(function(dt) setnames(x, LETTERS[1:8]))
colSumsRes <- lapply(DT_list, colSums)
colMeansRes <- lapply(DT_list, colMeans)
※ 引述《eegame (yu)》之銘言：
: 目前程式執行之後
: 可以將資料讀入D1~D10
: 以及開ND1~ND10的矩陣
: 但是在數據計算方面出了問題
: for(i in 1:n){
: for(j in 2:8){
: F <- paste("ND", i, "[1]", sep="")
: FF <- paste("D", i, "[1]", sep="")
# 改成下面這樣
assign(F[1], colSums(get(FF[1]))) #ND[i][1] <- colSums(D[i][1])
assign(F[j], colMeans(get(FF[j]))) #ND[i][j] <- colMeans(D[i][j])
: }
: }