входные файлы цикла внутри функции в R

Question

Я пытаюсь поработать над этим кодом в R для функции начальной загрузки, но у меня нет идеи, как сказать функции, что она должна перебирать входные файлы.

raw <- list.files(pattern="*.txt")
prs <- list.files(pattern="*.pres")

for (i in seq_along(raw))
   {
    a <- read.table(raw[i])
    bb <- read.table(prs[i])

    AUC <- function(p,ind){
        pres <- p[ind]
        cat <- c(pres,(read.table(abs[i])))
        name <- c(rep(1,length(pres)), rep(0,length(a)))
        predic <- prediction(cat,name)
        return(performance(predic,"auc")@y.values[[1]])
        } 

    bb <- read.table(prs[i])
    b1 <- boot(bb,AUC,100) 
    b2 <- boot.ci(b1,conf=c(0.95), type=c("bca"))
    }

куча благодарностей.

Answer 1

Использование lapply.

data_from_txt_files <- lapply(raw, read.table)