########################### transe <- function(matte, datte){ lg_dec_s1 <- as.numeric(matte$Long_dec[1]) lg_dec_s2 <- as.numeric(matte$Long_dec[2]) lg_diff_dec_s <- lg_dec_s1-lg_dec_s2 lg_mm_s1 <- as.numeric(matte$Long[1]) lg_mm_s2 <- as.numeric(matte$Long[2]) lg_diff_mm_s <- lg_mm_s1-lg_mm_s2 lg_diff_mm_locs <- lg_mm_s1-as.numeric(datte$Long) lg_diff_dec_loc <- (lg_diff_dec_s/lg_diff_mm_s)*lg_diff_mm_locs Long <- lg_diff_dec_s-+lg_diff_dec_loc+lg_dec_s2 lt_dec_s1 <- as.numeric(matte$Lat_dec[1]) lt_dec_s2 <- as.numeric(matte$Lat_dec[2]) lt_diff_dec_s <- lt_dec_s1-lt_dec_s2 lt_mm_s1 <- as.numeric(matte$Lat[1]) lt_mm_s2 <- as.numeric(matte$Lat[2]) lt_diff_mm_s <- lt_mm_s1-lt_mm_s2 lt_diff_mm_locs <- lt_mm_s1-as.numeric(datte$Lat) lt_diff_dec_loc <- (lt_diff_dec_s/lt_diff_mm_s)*lt_diff_mm_locs Lat <- lt_diff_dec_s-+lt_diff_dec_loc+lt_dec_s2 longlat <- cbind(Long, Lat) return(longlat) } ########################### lithcleaner <- function(lithtester, i){ lithtester <- unique(trim(lithtester)) lithtester[,i]<- gsub(" Fm", "", lithtester[,i]) lithtester[,i]<- gsub(" Formation", "", lithtester[,i]) lithtester[,i]<- gsub(" Mbr", "", lithtester[,i]) lithtester[,i]<- gsub(" Mb", "", lithtester[,i]) lithtester[,i]<- gsub(" Member", "", lithtester[,i]) lithtester[,i]<- gsub(" Beds", "", lithtester[,i]) lithtester[,i]<- gsub(" beds", "", lithtester[,i]) lithtester[,i]<- gsub(" Bed", "", lithtester[,i]) lithtester[,i]<- gsub(" Marls", "", lithtester[,i]) lithtester[,i]<- gsub("Äigu", "Aigu", lithtester[,i]) lithtester[,i]<- gsub("Alkniai", "Alksiniai", lithtester[,i]) lithtester[,i]<- gsub("Alksniai", "Alksiniai", lithtester[,i]) lithtester[,i]<- gsub("Apascia", "Apasciai", lithtester[,i]) lithtester[,i]<- gsub("Apasciaii", "Apasciai", lithtester[,i]) lithtester[,i]<- gsub("Apajciai", "Apasciai", lithtester[,i]) lithtester[,i]<- gsub("Armonska", "Armonys", lithtester[,i]) lithtester[,i]<- gsub("Auleli", "Auleliai", lithtester[,i]) lithtester[,i]<- gsub("Auleliaiai", "Auleliai", lithtester[,i]) lithtester[,i]<- gsub("Auliali", "Auleliai", lithtester[,i]) lithtester[,i]<- gsub("Blīdene", "Blidene", lithtester[,i]) lithtester[,i]<- gsub("Billington", "Billingen", lithtester[,i]) lithtester[,i]<- gsub("Birstoni", "Birstonas", lithtester[,i]) lithtester[,i]<- gsub("Dobilynė", "Dobilyne", lithtester[,i]) lithtester[,i]<- gsub("Dobilynie", "Dobilyne", lithtester[,i]) lithtester[,i]<- gsub("Dobilinesk", "Dobilyne", lithtester[,i]) lithtester[,i]<- gsub("Dolnuva", "Dotnuva", lithtester[,i]) lithtester[,i]<- gsub("Dreimanni", "Dreimani", lithtester[,i]) lithtester[,i]<- gsub("Drūkšiai", "Druksiai", lithtester[,i]) lithtester[,i]<- gsub("Fjäcka shale", "Fjäcka", lithtester[,i]) lithtester[,i]<- gsub("Geluva Fm", "Geluva", lithtester[,i]) lithtester[,i]<- gsub("Grindvilai", "Gindviliai", lithtester[,i]) lithtester[,i]<- gsub("Jakšiai", "Jaksiai", lithtester[,i]) lithtester[,i]<- gsub("Jelga", "Jelgava", lithtester[,i]) lithtester[,i]<- gsub("Jelgavava", "Jelgava", lithtester[,i]) lithtester[,i]<- gsub("Jämaja", "Jamaja", lithtester[,i]) lithtester[,i]<- gsub("Jüra", "Jura", lithtester[,i]) lithtester[,i]<- gsub("Juura", "Jura", lithtester[,i]) lithtester[,i]<- gsub("Jürmala", "Jurmala", lithtester[,i]) lithtester[,i]<- gsub("Jūrmala", "Jurmala", lithtester[,i]) lithtester[,i]<- gsub("Kalvere", "Kalvene", lithtester[,i]) lithtester[,i]<- gsub("Kaiminai", "Kaimynai", lithtester[,i]) lithtester[,i]<- gsub("Kestla", "Kästla", lithtester[,i]) lithtester[,i]<- gsub("Kesselaid \\(Mb\\)", "Kesselaid", lithtester[,i]) lithtester[,i]<- gsub("Kõrgekallas", "Korgekallas", lithtester[,i]) lithtester[,i]<- gsub("Korgeallas", "Korgekallas", lithtester[,i]) lithtester[,i]<- gsub("Kõrgessaare", "Korgessaare", lithtester[,i]) lithtester[,i]<- gsub("Künnapõhja", "Künnapohja", lithtester[,i]) lithtester[,i]<- gsub("Kuusnõmme", "Kuusnomme", lithtester[,i]) lithtester[,i]<- gsub("Kuusnumme", "Kuusnomme", lithtester[,i]) lithtester[,i]<- gsub("Lower Lõo", "Loo", lithtester[,i]) lithtester[,i]<- gsub("Ludza", "Ludze", lithtester[,i]) lithtester[,i]<- gsub("Lukštai", "Lukstai", lithtester[,i]) lithtester[,i]<- gsub("Massi", "Maasi", lithtester[,i]) lithtester[,i]<- gsub("Munija", "Minija", lithtester[,i]) lithtester[,i]<- gsub("Nevėžis", "Nevezis", lithtester[,i]) lithtester[,i]<- gsub("Objalaja", "Obeliai", lithtester[,i]) lithtester[,i]<- gsub("Oandu ", "Oandu", lithtester[,i]) lithtester[,i]<- gsub("Ohresaare ", "Ohesaare", lithtester[,i]) lithtester[,i]<- gsub("Õhne", "Ohne", lithtester[,i]) lithtester[,i]<- gsub("Ōhne", "Ohne", lithtester[,i]) lithtester[,i]<- gsub("Paala", "Paadla", lithtester[,i]) lithtester[,i]<- gsub("Pagegiaj", "Pagegiai", lithtester[,i]) lithtester[,i]<- gsub("Paroveia", "Paroveja", lithtester[,i]) lithtester[,i]<- gsub("Pakri Sandstone", "Pakri", lithtester[,i]) lithtester[,i]<- gsub("Pilha", "Pihla", lithtester[,i]) lithtester[,i]<- gsub("Piltene Mb", "Piltene", lithtester[,i]) lithtester[,i]<- gsub("Pilten", "Piltene", lithtester[,i]) lithtester[,i]<- gsub("Piltenee", "Piltene", lithtester[,i]) lithtester[,i]<- gsub("Ragjala", "Ragaine", lithtester[,i]) lithtester[,i]<- gsub("rägavere", "Rägavere", lithtester[,i]) lithtester[,i]<- gsub("Rakvere", "Rägavere", lithtester[,i]) lithtester[,i]<- gsub("Rasyle", "Rasyte", lithtester[,i]) lithtester[,i]<- gsub("Rokiškis", "Rokiskis", lithtester[,i]) lithtester[,i]<- gsub("Šakyna", "Sakyna", lithtester[,i]) lithtester[,i]<- gsub("Sakyna member", "Sakyna", lithtester[,i]) lithtester[,i]<- gsub("Šakiai", "Sakiai", lithtester[,i]) lithtester[,i]<- gsub("Sarde", "Saarde", lithtester[,i]) lithtester[,i]<- gsub("Silales", "Silale", lithtester[,i]) lithtester[,i]<- gsub("Soegenina", "Soeginina", lithtester[,i]) lithtester[,i]<- gsub("Sõrve", "Sorve", lithtester[,i]) lithtester[,i]<- gsub("Spalviskai", "Spalviskiai", lithtester[,i]) lithtester[,i]<- gsub("Stacionai", "Staciunai", lithtester[,i]) lithtester[,i]<- gsub("Šventupis", "Sventupys", lithtester[,i]) lithtester[,i]<- gsub("Tagevere", "Tagavere", lithtester[,i]) lithtester[,i]<- gsub("Tartuse", "Tatruse", lithtester[,i]) lithtester[,i]<- gsub("Telinõmme", "Telinomme", lithtester[,i]) lithtester[,i]<- gsub("Uppe Aigu", "Upper Aigu", lithtester[,i]) lithtester[,i]<- gsub("Utria", "Udria", lithtester[,i]) lithtester[,i]<- gsub("Valgejõe", "Valgejoe", lithtester[,i]) lithtester[,i]<- gsub("Vaprieniai", "Paprieniai", lithtester[,i]) lithtester[,i]<- gsub("Vivikonna", "Viivikonna", lithtester[,i]) lithtester[,i]<- gsub("Viikikonna", "Viivikonna", lithtester[,i]) lithtester[,i]<- gsub("Vilučiai", "Viluciai", lithtester[,i]) lithtester[,i]<- gsub("Virstonski", "Birstonas", lithtester[,i]) lithtester <- unique(lithtester) return(lithtester) } ########################### unitcleaner <- function(ct_lux, i){ ct_lux[,i]<- trimws(ct_lux[,i]) ct_lux[,i]<- gsub("Amata- Gauja", "Amata", ct_lux[,i]) ct_lux[,i]<- gsub("aseri-kunda", "Aseri", ct_lux[,i]) ct_lux[,i]<- gsub("Haljala- Kukruse", "Haljala", ct_lux[,i]) ct_lux[,i]<- gsub("Haljala- OanduStage", "Haljala", ct_lux[,i]) ct_lux[,i]<- gsub("Hirmuse", "Hirmuse Fm", ct_lux[,i]) ct_lux[,i]<- gsub("Hunneberg Billingen", "Hunneberg", ct_lux[,i]) ct_lux[,i]<- gsub("Hunneberg- Billington", "Hunneberg", ct_lux[,i]) ct_lux[,i]<- gsub("Idavere Substage", "Idavere", ct_lux[,i]) ct_lux[,i]<- gsub("Kaugetuma", "Kaugatuma", ct_lux[,i]) ct_lux[,i]<- gsub("juuru", "Juuru", ct_lux[,i]) ct_lux[,i]<- gsub("Jõhvi Substage", "Johvi", ct_lux[,i]) ct_lux[,i]<- gsub("Latorp Superstage", "Latorp", ct_lux[,i]) ct_lux[,i]<- gsub("Lasnamagi", "Lasnamägi", ct_lux[,i]) ct_lux[,i]<- gsub("Billington", "Billingen", ct_lux[,i]) ct_lux[,i]<- gsub("Birstoni", "Birstonas", ct_lux[,i]) ct_lux[,i]<- gsub("Lasnamägi- Uhaku", "Lasnamägi", ct_lux[,i]) ct_lux[,i]<- gsub("Mõntu", "Montu", ct_lux[,i]) ct_lux[,i]<- gsub("Oandu ", "Oandu", ct_lux[,i]) ct_lux[,i]<- gsub("Oande", "Oandu", ct_lux[,i]) ct_lux[,i]<- gsub("OanduStage", "Oandu", ct_lux[,i]) ct_lux[,i]<- gsub("Přidoli", "Pridoli", ct_lux[,i]) ct_lux[,i]<- gsub("rakvere-nabala", "Rakvere", ct_lux[,i]) ct_lux[,i]<- gsub("Rakvere-Nabala", "Rakvere", ct_lux[,i]) ct_lux[,i]<- gsub("Raikküla stag", "Raikküla", ct_lux[,i]) ct_lux[,i]<- gsub("Raikkülae", "Raikküla", ct_lux[,i]) ct_lux[,i]<- gsub("Stacionai - Apajciai", "Stacionai", ct_lux[,i]) ct_lux[,i]<- gsub("Taebla -Sämi Mb", "Taebla Mb", ct_lux[,i]) ct_lux[,i]<- gsub("Taebla -Sämi Mb", "Sämi Mb", ct_lux[,i]) ct_lux[,i]<- gsub("Vasalemma", "Vasalemma Fm", ct_lux[,i]) ct_lux <- unique(ct_lux) return(ct_lux) } ############################### bincleaner <- function(ct_lu_binx, i){ ct_lu_binx[,i] <- gsub("Beds", "Bed", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("beds", "Bed", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Member", "Mb", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Mbr", "Mb", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Formation", "Fm", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("fm", "Fm", ct_lu_binx[,i]) #ct_lu_binned <- ct_lu_binned[grepl("Fm", ct_lu_binx[,i]) | grepl("Mb", ct_lu_binx[,i]) | grepl("Bed", ct_lu_binx[,i]),] #ct_lu_binned <- ct_lu_binned[!grepl("-", ct_lu_binx[,i]),] ct_lu_binx[,i]<- gsub(" Bed", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub(" Mb", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub(" Fm", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("rägavere", "Rägavere", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Paroveia", "Paroveja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pagegiai", "Pagegiaj", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pilha", "Pihla", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Viikikonna", "Viivikonna", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Blidene", "Blīdene", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Birstoni", "Birstonas", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Dobilinesk", "Dobilynė", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Druksiai", "Drūkšiai", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Jamaja", "Jämaja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Jamaja", "Jämaja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pagegiaj", "Pagegiai", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Päite", "Paite", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Silale", "Silales", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Vlevis", "Vievis", ct_lu_binx[,i]) ct_lu_binx <- unique(ct_lu_binx) return(ct_lu_binx) } ########################### loccleaner <- function(loctester, i){ loctester <- unique(trim(loctester)) loctester[,i] <- gsub("Butkunai-241", "Butkūnai", loctester[,i]) loctester[,i] <- gsub("Geluva-114", "Gėluva", loctester[,i]) loctester[,i] <- gsub("Geluva-119", "Gėluva", loctester[,i]) loctester[,i] <- gsub("Geluva-125", "Gėluva", loctester[,i]) loctester[,i] <- gsub("Krekenava-7", "Krekenava", loctester[,i]) loctester[,i] <- gsub("Kriukai-145", "Kriukai", loctester[,i]) loctester[,i] <- gsub("Laeva-18", "Laeva 18", loctester[,i]) loctester[,i] <- gsub("Laeve-18", "Laeva 18", loctester[,i]) loctester[,i] <- gsub("Paroveja-9", "Paroveja", loctester[,i]) loctester[,i] <- gsub("Pasaltuonis-94", "Pašaltuonys", loctester[,i]) loctester[,i] <- gsub("Pusku-2", "Pusku 2 borehole", loctester[,i]) loctester[,i] <- gsub("Remte-3", "Remte", loctester[,i]) loctester[,i] <- gsub("Sulustvere", "Sulustvere borehole", loctester[,i]) loctester[,i] <- gsub("Svedasai-252", "Svėdasai", loctester[,i]) loctester[,i] <- gsub("Taurage-11", "Taurage", loctester[,i]) loctester[,i] <- gsub("Vidukle-61", "Viduklė", loctester[,i]) loctester <- unique(loctester) return(loctester) } ############################### bincleaner <- function(ct_lu_binx, i){ ct_lu_binx[,i] <- gsub("Beds", "Bed", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("beds", "Bed", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Member", "Mb", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Mbr", "Mb", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Formation", "Fm", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("fm", "Fm", ct_lu_binx[,i]) #ct_lu_binned <- ct_lu_binned[grepl("Fm", ct_lu_binx[,i]) | grepl("Mb", ct_lu_binx[,i]) | grepl("Bed", ct_lu_binx[,i]),] #ct_lu_binned <- ct_lu_binned[!grepl("-", ct_lu_binx[,i]),] ct_lu_binx[,i]<- gsub(" Bed", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub(" Mb", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub(" Fm", "", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("rägavere", "Rägavere", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Paroveia", "Paroveja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pagegiai", "Pagegiaj", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pilha", "Pihla", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Viikikonna", "Viivikonna", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Blidene", "Blīdene", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Birstoni", "Birstonas", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Dobilinesk", "Dobilynė", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Druksiai", "Drūkšiai", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Jamaja", "Jämaja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Jamaja", "Jämaja", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Pagegiaj", "Pagegiai", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Päite", "Paite", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Silale", "Silales", ct_lu_binx[,i]) ct_lu_binx[,i]<- gsub("Vlevis", "Vievis", ct_lu_binx[,i]) ct_lu_binx <- unique(ct_lu_binx) return(ct_lu_binx) } ########################### fincleaner <- function(loctester, i){ loctester <- unique(trim(loctester)) loctester[,i] <- gsub("Bernāti", "Bernati", loctester[,i]) loctester[,i] <- gsub("Ēdole", "Edole", loctester[,i]) loctester[,i] <- gsub("Jõhvi", "Johvi", loctester[,i]) loctester[,i] <- gsub("Kivioli", "Kiviõli", loctester[,i]) loctester[,i] <- gsub("Kuili", "Kuiļi", loctester[,i]) loctester[,i] <- gsub("Middle Llandovery", "", loctester[,i]) loctester[,i] <- gsub("Lõo", "Loo", loctester[,i]) loctester[,i] <- gsub("Lower Landovery", "", loctester[,i]) loctester[,i] <- gsub("Lower Wenlock", "", loctester[,i]) loctester[,i] <- gsub("Lower Downton", "", loctester[,i]) loctester[,i] <- gsub("Middle Llandovery", "", loctester[,i]) loctester[,i] <- gsub("Mohküla", "Mõhküla", loctester[,i]) loctester[,i] <- gsub("Mõntu", "Montu", loctester[,i]) loctester[,i] <- gsub("OanduStage", "Oandu", loctester[,i]) loctester[,i] <- gsub("Rïga", "Riga", loctester[,i]) loctester[,i] <- gsub("Rozēni", "Rozeni", loctester[,i]) loctester[,i] <- gsub("Rūja", "Ruja", loctester[,i]) loctester[,i] <- gsub("Slïtere", "Slitere", loctester[,i]) loctester[,i] <- gsub("Slītere", "Slitere", loctester[,i]) loctester[,i] <- gsub("Taučionys", "Taucionys", loctester[,i]) loctester[,i] <- gsub("Tõlla", "Tolla", loctester[,i]) loctester[,i] <- gsub("Tõrevere", "Torevere", loctester[,i]) loctester[,i] <- gsub("Tõrremägi", "Torremagi", loctester[,i]) loctester[,i] <- gsub("Upper Downton", "", loctester[,i]) loctester[,i] <- gsub("Upper Llandovery", "", loctester[,i]) loctester[,i] <- gsub("upper Oktavites spiralis zone", "", loctester[,i]) loctester[,i] <- gsub("Upper Wenlock", "", loctester[,i]) loctester[,i] <- gsub("Upper Ordovician", "", loctester[,i]) loctester[,i] <- gsub("Valgejõgi", "Valgejoe", loctester[,i]) loctester[,i] <- gsub("Varbola - Tamsalu", "Tamsalu", loctester[,i]) loctester <- unique(loctester) return(loctester) }