testing-framework / R / share / hauptdatensaetze_laden.r @ 1fdee286
History | View | Annotate | Download (1.556 KB)
1 |
#Diese Datei lädt die Datensätze mit den von den Bibliotheksanbindungen abgespeicherten Daten |
---|---|
2 |
|
3 |
#Erzeugt eine Dummy-Frame, damit die anderen Bibliotheken, die evtl. Marker erkannt haben berechnet werden können. |
4 |
error <- function(e){ |
5 |
#Es werden die gleichen Tags gewählt, damit spätere Zugriffe durchlaufen |
6 |
data.frame(X1="",X2="",X3="",X4="",X5="",X6="",X7="",X8="",X9="",X10="",X11="",X12="",X13="",X14="",X15="",X16="",X18="",X19="",X20="") |
7 |
} |
8 |
|
9 |
#Einlesen (falls möglich, ansonsten ist die Datei vermutlich leer) |
10 |
cat("Lese ","/home/jonas/Bachelorarbeit/bart2/",dateiname,"\n",sep="") |
11 |
bart <- tryCatch(read.csv(file=paste("/home/jonas/Bachelorarbeit/bart2/",dateiname,sep=""),header=F), error=error) |
12 |
cat("Lese ","/home/jonas/Dokumente/Studium/Bachelorarbeit/alvar/2.0.0/alvar-2.0.0-sdk-linux64-gcc44/build/build_gcc44_release/sample/",dateiname,"\n",sep="") |
13 |
alvar <- tryCatch(read.csv(file=paste("/home/jonas/Dokumente/Studium/Bachelorarbeit/alvar/2.0.0/alvar-2.0.0-sdk-linux64-gcc44/build/build_gcc44_release/sample/",dateiname,sep=""),header=F), error=error) |
14 |
cat("Lese ","/home/jonas/Dokumente/Studium/Bachelorarbeit/aruco/aruco-1.2.5/",dateiname,"\n",sep="") |
15 |
aruco <- tryCatch(read.csv(file=paste("/home/jonas/Dokumente/Studium/Bachelorarbeit/aruco/aruco-1.2.5/",dateiname,sep=""),header=F), error=error) |
16 |
cat("Lese ","/home/jonas/Dokumente/Studium/Bachelorarbeit/blender-files/Positions/",vergleichsdatei,"\n",sep="") |
17 |
blender <- tryCatch(read.csv(file=paste("/home/jonas/Dokumente/Studium/Bachelorarbeit/blender-files/Positions/",vergleichsdatei, sep=""),header=F), error=error) |