WoS-HU.R

#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
for (i in 1:length(Dateinamen))
	{
	records <- read.csv(Dateinamen[i], sep = "\t", header =TRUE, quote="", row.names = NULL, as.is=TRUE)
	rec <- rbind(rec, records)
	}

#Korrektur der um eine Stelle verschobenen Spaltennamen
colnames(rec) <- colnames(rec)[-1]

#Ende der Rechenzeit und Ausgabe der Rechendauer
#t2 <-  proc.time()[3]
#print(t2-t1)

#Ausgabe der Anzahl der Datensätze im Feld C1 als Kontrolle
print(length(rec$C1))