Napisałem prostą funkcję:

myfunction <- function(fileName, stringsAsFactors=TRUE,                 
                   check.names=FALSE,               
                   skip =1,...) {
Data <- read.delim(fileName, skip = skip,                     
                 stringsAsFactors=stringsAsFactors,                      
                 check.names = check.names, ...)                   
cb    <- list()                       
Index <- as.numeric(as.factor(Data[,1]))              
cb    <-  cbind(Data, Index)              
return(cb)           

}

Ta funkcja pobiera pierwszą kolumnę pliku o nazwie Data, tworzy indeks zgodnie z tą pierwszą kolumną, a następnie łączy plik Dane i utworzony indeks. Ta funkcja zostanie zastosowana w pliku o nazwie:myfile_00.txt, myfile_01.txt i tak dalej ... Dla jednego pliku wygląda to tak:

myfunction (fileName = "myfile_00.txt")
myfunction (fileName = "myfile_01.txt")
.......        

Mam około 1000 plików, więc przypuszczam, że pętla może pochodzić z innego posta:

mytxt  <- dir(pattern=".txt")      
n      <- length(mytxt)      
mylist <- vector("list", n)   
for(i in 1:n) {
    mylist[[i]] <- read.delim(mytxt[i], header = F, skip = 1)
}

następnie:

d <- lapply(mylist, myfunction)

Niestety nie działa ... Podczas używanialapply wystąpił błąd:

Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
'file' must be a character string or connection

Ponieważ jestem nowy w R, prawdopodobnie robię błędy, których nie jestem w stanie rozgryźć. Czy ktoś może mi pomóc?

Najlepiej,

FA.