testing-framework / R / share / hauptdatensaetze_laden.r @ 17a68f48
History | View | Annotate | Download (1.556 KB)
| 1 | 8526ae8c | Jonas Diekmann | #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) |