wactbprot

#Beginn der Rechenzeit
#t1 <-  proc.time()[3]

#Namen der einzulesenden Dateien
Dateinamen <- list.files()

#Einlesen der ersten Datei
rec <- read.csv(Dateinamen[1], sep = "\t", header =TRUE, quote="", row.names = NULL, as.is=TRUE)

#Schleife zum Einlesen der restlichen Dateien