getwd()
setwd("C:/Users/kurama/Downloads/Ti und Querprofiele/")
# Pfad und Daten ####
Profile <- read.csv2("Profile.csv")
getwd()
getwd()
# Pfad und Daten ####
Profile <- read.csv2("Profile.csv")
Profile_GPS <- read.csv2("Profile_GPS.csv")
name <- c('A', 'B', 'C','D', 'Ti1', 'Ti2', 'Ti3', 'Ti4', 'Ti5')
