Digitale Dokumentation in R zu Schauer 2025 ‘La Hoguette - Kultur, Phänomen, Subkultur?’

1 Einleitung

1.1 Inhalt

Dieses Skript umfasst die Dokumentation der zu Kapitel 6.3.2 und 6.3.2.a - Schauer (2025) gehörigen Abbildungen und Statistiken:

• Kapitel 6.3 Oberes Gäu: Zusammenstellung der Datengrundlage Abb. 6-114 - Skript-Kapitel 4.

• Kapitel 6.3.2.a.i - Messunsicherheit: Berechnung der Messunsicherheiten (MU) der Einzelmessungen sowie gemittelt für die gesamte Probe (Skript-Kapitel 5) zur Überprüfung der Einhaltung des Grenzwerts: (Messwert / Mittelwert) ≥ ±2δ (MU / mittlere MU) (siehe auch Kapitel 6.1.2 / 6.1.3 – Schauer (2025)).

• Kapitel 6.3.2.a.ii - Variationskoeffizent: Berechnung der Variationskoeffizienten (VarKoef) der Proben (Skript-Kapitel 6) zur Überprüfung der Einhaltung des Grenzwerts VarK ≤ 20 %. Pro Probe und Element dürfen in nicht mehr als 25 % der Fälle Verstöße gegen dieses Kriterium auftreten (siehe auch Kapitel 6.1.2 – Schauer (2025)). Abb. 6-117 – Skript-Kapitel 7 zeigt eine beispielhafte Darstellung der Variationskoeffizienten ausgewählter Elemente.

• Kapitel 6.3.2.a.iii - l-Drift und Koeffizientenkorrektur: Durchführung der l-Drift-Korrektur (Skript-Kapitel 8) gemäß Kapitel 6.1.2.a.ii – Schauer (2025) sowie der Koeffizientenkorrektur (Skript-Kapitel 9) nach Kapitel 6.1.3.e – Schauer (2025) (siehe auch Schauer (2023), Schauer (2024), Schauer/Amicone (2024), Schauer u. a. (2024)). Abschließend: Zusammenführung der chemischen Messdaten mit den archäologischen Metadaten (Skript-Kapitel 10).

1.2 Praktische Hinweise

1.2.1 Einführende Literatur

Um mit dem bereitgestellten R-Skript arbeiten zu können, werden die wichtigsten praktischen Schritte, die für den Einstieg erforderlich sind, kurz erklärt. Dies ersetzt jedoch nicht das Studium des Programms selbst und der Inhalte der Skripte.

Siegmund (2020) wird als Grundlage in deutscher Sprache empfohlen, als Einführung in das R-Plugin Quarto seine Anleitung Siegmund (2023). Auf Englisch ist die R Quarto-Website besonders zu empfehlen.

Field, A. u. a. (2013) ist lesenswert, unterhaltsam und enthält alle relevanten Informationen für den Einstieg. Das R Core Team bietet eine regelmäßig aktualisierte Einführung an; die aktuelle Version ist hier zu finden.

1.2.2 R, R Studio und R Quarto

R, auch R Console oder RGUI, ist das „reine“ R, d. h. es arbeitet ausschließlich mit Code. RStudio hingegen verfügt über eine Benutzeroberfläche und greift auf R zu.

Dieses R-Skript wurde in RStudio in Verbindung mit Quarto erstellt – einer R-spezifischen Schreibumgebung, die die Handhabung von Code sowohl bei der Entwicklung als auch bei der Veröffentlichung erheblich vereinfacht. Quarto ermöglicht es, einzelne R-Skripte in Form von Quarto-Dateien (.qmd) zu erstellen und in verschiedene andere Formate (.html, .pdf) zu exportieren. Neben dem „reinen“ R-Code können auch zusätzliche Informationen zu den Code-Modulen bereitgestellt werden.

Quarto-Dokumente enthalten ausführbaren R-Code, d. h. sie wurden entwickelt und umfangreich getestet, um die gewünschten Berechnungen fehlerfrei durchzuführen. Werden die Quarto-Dateien in RStudio geöffnet, sind die Code-Blöcke grau hinterlegt und können automatisch ausgeführt werden. Weitere Informationen zu Quarto und Quarto-Code finden sich hier.

Um mit diesem Skript zu arbeiten, wird empfohlen, R und RStudio, sowie R Quarto zu installieren.

1.2.3 R Projekte

Um sicherzustellen, dass die Berechnungen reibungslos ablaufen, wurde das Skript in ein R-Projekt eingebettet. Die R-Projektdatei (.Rproj) befindet sich im übergeordneten Ordner der Berechnungen und kann durch Doppelklicken geöffnet werden. Der Dateipfad wird über die Position dieser Datei definiert, sodass das gesamte Projekt beliebig gespeichert werden kann – vorausgesetzt, die Daten befinden sich in den vorgegebenen Ordnern. Die einzige Voraussetzung ist, dass der unter Skript-Kapitel Kapitel 3 hinterlegte Code-Schnipsel beim ersten Arbeiten mit diesem Skript ausgeführt wird.

Ein weiterer Vorteil von R-Projekten ist, dass alle Quarto-Dateien, die beim letzten Schließen geöffnet waren, direkt beim Öffnen des Projekts wieder geladen werden – es muss also nicht manuell nach der Dateistruktur gesucht werden.

1.2.4 R Pakete

R-Pakete müssen zunächst installiert und anschließend in jeder Sitzung erneut geladen werden siehe auch Skript-Kapitel 2, um die Berechnungen auszuführen. Sie enthalten Funktionen, die für bestimmte Analysen erforderlich sind. Zum Installieren kann der folgende Code verwendet werden:

• install.packages(“Paket-Name”)

Die Pakete werden mit folgendem Befehl geladen:

• library(Paket-Name)

Eine kurze Einführung in grundlegende R-Befehle findet sich beispielsweise auch hier.

1.3 Skript & Packages

Dieses Quarto-Skript (R Quarto v. 1.5.55) (Allaire u. a. 2024) wurde mit R v. 4.4.1 (R Core Team 2024) und RStudio v. 2024.04.2 (RStudio Team 2024) erstellt. Es werden folgende R-Pakete verwendet:

• basictabler (Bailiss 2021)
• data.table (Wilke 2024)
• cowplot (Barrett u. a. 2024)
• dplyr (Wickham 2023)
• ggplot2 (Wickham 2016)
• ggpubr (Kassambara 2023)
• openxlsx (Schauberger/Walker 2024)
• plyr (Wickham 2011)

Vor Beginn der Analysen müssen sowohl alle Pakete (siehe Skript-Kapitel Kapitel 2) geladen als auch das Working Directory gesetzt werden (siehe Skript-Kapitel Kapitel 3).

Der Code ist lauffähig, d. h. er kann fehlerfrei ausgeführt werden, sofern die vorgegebene Datenstruktur beibehalten wird.

In jedem Code-Block wird der Code zur Erstellung der jeweils ersten Abbildung erläutert – nachfolgende Grafiken mit vergleichbarem Code erhalten keine eigene Beschreibung.

1.4 Gerät und Messparameter

Die Messdaten wurden mit dem Niton XL3t (Nr. 97390) des Departments für Kulturwissenschaften der Universität München im TestAllGeo-Modus ermittelt (60 Sekunden Standard, Niedrig, Hoch sowie 120 Sekunden Leicht-Modus) und mit einem 8 mm Messspot von M. Schauer durchgeführt. Die Messungen fanden von September bis Dezember 2018 sowie von September 2019 bis Juli 2020 statt. Weitere Informationen finden sich in Kapitel 6.1.1 – Schauer (2025).

2 Notwendige R Pakete

Quelle

Quelle: https://www.projectpro.io/recipes/load-package-r

library(ggplot2)
library(ggpubr)
library(plyr)
library(dplyr)
library(data.table)
library(basictabler)
library(openxlsx)
library(cowplot)

3 Working directory

Quelle

Quelle: https://martinctc.github.io/blog/rstudio-projects-and-working-directories-a-beginner%27s-guide/, https://www.grainge.org/pages/authoring/relative_paths/relative_paths.htm, https://r4ds.had.co.nz/workflow-projects.html

knitr::opts_knit$set(root.dir = "./")

4 Abb. 6-114

data1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/Daten_OG_ArchDaten.csv")
data<-subset(data1, Kultur %in% c("LBK","La Hoguette","Huettenlehm"))

# Diagramme erstellen
Balken_OG_MW_Fundort<-ggplot(data) + 
  geom_bar(aes(x=Fundort),fill="sienna4",color="black")+ # Manuelle Definition der Farbe der Balken 
  xlab("Fundort")+ylab("Probenanzahl")+ # Manuelle Achsenbeschriftung
  theme_classic()+ # Klassisches Design
  scale_y_continuous(breaks=seq(0,350,50),expand=c(0,0),limits=c(0,320))+ # Manuelle Definition der Y-Achse
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black"))+theme(legend.position="bottom")+theme(axis.ticks=element_line(size=0.25,colour="black"))+ # Manuelle Formatierung von Achsen- und Legendendarstellung
  geom_text(aes(x=Fundort,label=..count..),stat='count',position=position_dodge(1),vjust=-0.3,size=2.75) # Manuelles Hinzufügen der Zahlenwerte als Text oberhalb der Balken

Balken_OG_MW_Material<-ggplot(data) + 
  geom_bar(aes(fill=Kultur, x=Fundort),position = position_dodge2(preserve = 'single',padding = 0.0),color="black")+ # Manuelle Definition der Anordnung der Balken
  scale_fill_manual(values = c("La Hoguette" = "grey20", "LBK" = "lightgrey","Huettenlehm"="white"))+ # Manuelle Definition der Farbe der Balken 
  xlab("Häuser")+ylab("Probenanzahl")+ # Manuelle Achsenbeschriftung
  theme_classic()+ # Klassisches Design
  scale_y_continuous(breaks=seq(0,300,20),expand=c(0,0),limits=c(0,170))+ # Manuelle Definition der Y-Achse
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black"))+theme(legend.position="bottom")+theme(axis.ticks=element_line(size=0.25,colour="black"))+ # Manuelle Formatierung von Achsen- und Legendendarstellung
  geom_text(aes(mapping=Kultur, x=Fundort,label=..count..),stat='count',position=position_dodge(1),vjust=-0.3,size=2.75) # Manuelles Hinzufügen der Zahlenwerte als Text oberhalb der Balken

# Kombination der Diagramme 
plot_grid(Balken_OG_MW_Fundort,Balken_OG_MW_Material,ncol=1,nrow=2,align = "v",axis = "lr",rel_heights=c(1,2))

# Export des kombinierten Diagramms 
ggsave("Abb.6-114.eps",path=("../Daten//Kap_6//Kap_6.3//Abbildungen//Grundlagen//"),plot=last_plot(),device="eps",height=9,width=9,unit=c("cm"),dpi=1200)

5 Messunsicherheit

5.1 Zuammenstellen Daten 2019 & 2020

# Daten 2019 einlesen und filtern
data1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/Rohdaten_OG_2019.csv")
data2<-select(data1,"Probennummer","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","S","Cl","Sc","V","Cr","Co","Ni","Cu","Zn","As","Se","Rb","Sr","Y","Zr","Nb","Mo","Pd","Ag","Cd","Sn","Sb","Te","Cs","Ba","La","Ce","Hf","Ta","W","Re","Au","Hg","Pb","Bi","Th","U","Bal","Si.Error","Ti.Error","Al.Error","Fe.Error","Mn.Error","Mg.Error","Ca.Error","K.Error","P.Error","S.Error","Cl.Error","Sc.Error","V.Error","Cr.Error","Co.Error","Ni.Error","Cu.Error","Zn.Error","As.Error","Se.Error","Rb.Error","Sr.Error","Y.Error","Zr.Error","Nb.Error","Mo.Error","Pd.Error","Ag.Error","Cd.Error","Sn.Error","Sb.Error","Te.Error","Cs.Error","Ba.Error","La.Error","Ce.Error","Hf.Error","Ta.Error","W.Error","Re.Error","Au.Error","Hg.Error","Pb.Error","Bi.Error","Th.Error","U.Error","Bal.Error")

# Daten 2020 einlesen und filtern
data3<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/Rohdaten_OG_2020.csv")
data4<-select(data3,"Probennummer","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","S","Cl","Sc","V","Cr","Co","Ni","Cu","Zn","As","Se","Rb","Sr","Y","Zr","Nb","Mo","Pd","Ag","Cd","Sn","Sb","Te","Cs","Ba","La","Ce","Hf","Ta","W","Re","Au","Hg","Pb","Bi","Th","U","Bal","Si.Error","Ti.Error","Al.Error","Fe.Error","Mn.Error","Mg.Error","Ca.Error","K.Error","P.Error","S.Error","Cl.Error","Sc.Error","V.Error","Cr.Error","Co.Error","Ni.Error","Cu.Error","Zn.Error","As.Error","Se.Error","Rb.Error","Sr.Error","Y.Error","Zr.Error","Nb.Error","Mo.Error","Pd.Error","Ag.Error","Cd.Error","Sn.Error","Sb.Error","Te.Error","Cs.Error","Ba.Error","La.Error","Ce.Error","Hf.Error","Ta.Error","W.Error","Re.Error","Au.Error","Hg.Error","Pb.Error","Bi.Error","Th.Error","U.Error","Bal.Error")

# Zeilenweise Kombination mehrerer Dataframes
data <- rbind(data2, data4)

# "NA" durch "0" ersetzen
data[is.na(data)] <- 0

# Speichern als CSV
write.csv(data,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/Rohdaten_OG_gesamt.csv",row.names=FALSE)

5.2 Einzelmessungen

Die Berechnungen werden in R gesichtet, nur die Daten der Elemente mit auffällig vielen Abweichungen werden exportiert und in Excel im Detail geprüft.

# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/Rohdaten_OG_gesamt_bearb.csv")

# Auswahl der Variablen
variables <- c("Si", "Ti", "Al", "Fe", "Mn", "Mg", "Ca", "K", "P", "S", "Cl", "Sc", "V", "Cr", "Co", 
               "Ni", "Cu", "Zn", "As", "Se", "Rb", "Sr", "Y", "Zr", "Nb", "Mo", "Pd", "Ag", "Cd", 
               "Sn", "Sb", "Te", "Cs", "Ba", "La", "Ce", "Hf", "Ta", "W", "Re", "Au", "Hg", "Pb", 
               "Bi", "Th", "U", "Bal")

# Schleife über alle Variablen zum Filtern der Daten
for (variable in variables) {
    filter <- data[data[, variable] < 2 * data[, paste0(variable, ".Error")], ] # Filtern der Daten
    count <- nrow(filter)   # Anzahl der gefilterten Zeilen ermitteln
    assign(paste0("data", variable), filter) # Speichern der gefilterten Daten mit dynamischem Namen
    assign(paste0("count", variable), count) # Speichern der Anzahl der gefilterten Zeilen mit dynamischem Namen
    print(paste0("count", variable, ": ", count)) # Ausgabe der Anzahl der gefilterten Zeilen in der Konsole
}

[1] "countSi: 0"
[1] "countTi: 0"
[1] "countAl: 0"
[1] "countFe: 0"
[1] "countMn: 0"
[1] "countMg: 98"
[1] "countCa: 0"
[1] "countK: 0"
[1] "countP: 0"
[1] "countS: 104"
[1] "countCl: 20"
[1] "countSc: 390"
[1] "countV: 0"
[1] "countCr: 0"
[1] "countCo: 5"
[1] "countNi: 6"
[1] "countCu: 32"
[1] "countZn: 0"
[1] "countAs: 8"
[1] "countSe: 17"
[1] "countRb: 0"
[1] "countSr: 0"
[1] "countY: 0"
[1] "countZr: 0"
[1] "countNb: 0"
[1] "countMo: 10"
[1] "countPd: 157"
[1] "countAg: 298"
[1] "countCd: 263"
[1] "countSn: 46"
[1] "countSb: 114"
[1] "countTe: 26"
[1] "countCs: 2"
[1] "countBa: 0"
[1] "countLa: 8"
[1] "countCe: 9"
[1] "countHf: 0"
[1] "countTa: 0"
[1] "countW: 9"
[1] "countRe: 0"
[1] "countAu: 32"
[1] "countHg: 37"
[1] "countPb: 4"
[1] "countBi: 0"
[1] "countTh: 2"
[1] "countU: 69"
[1] "countBal: 0"

# Erstellung einer Liste mit spezifischen gefilterten Datensätzen 
l = list(dataPb)

# Zeilenweise zusammenführung der ausgewählten Datensätze zu einer Tabelle
Tab1 <- rbindlist(l, use.names = TRUE, fill = TRUE)

# Speichern als CSV
write.csv(Tab1,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage/StdAlleWerte.csv",row.names=FALSE)

5.3 Mittlere Messunsicherheit der Proben

# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Rohdaten_OG_gesamt_bearb.csv")

# Berechnen der Mittelwerte pro Probe
Mean<-(data) %>%
  group_by(Probennummer) %>%
  summarize(across(everything(),list(mean=mean))) 

# Entfernen von "_mean" aus den Spaltennamen
colnames(Mean) <- gsub("_mean", "", colnames(Mean))

# Auswahl der Variablen
variables <- c("Si", "Ti", "Al", "Fe", "Mn", "Mg", "Ca", "K", "P", "S", "Cl", "Sc", "V", "Cr", "Co", "Ni", "Cu", "Zn", "As", "Se", "Rb", "Sr", "Y", "Zr", "Nb", "Mo", "Pd", "Ag", "Cd", "Sn", "Sb", "Te", "Cs", "Ba", "La", "Ce", "Hf", "Ta", "W", "Re", "Au", "Hg", "Pb", "Bi", "Th", "U", "Bal")

# Schleife über alle Variablen zum Filtern der Daten
for (variable in variables) {
  filter <- Mean[Mean[, variable] < 2 * Mean[, paste0(variable, ".Error")], ] # Filtern der Daten
  count <- nrow(filter) # Anzahl der gefilterten Zeilen ermitteln
  assign(paste0("Mean", variable), filter) # Speichern der gefilterten Daten mit dynamischem Namen
  assign(paste0("count", variable), count) # Speichern der Anzahl der gefilterten Zeilen mit dynamischem Namen
  print(paste0("count", variable, ": ", count))} # Ausgabe der Anzahl der gefilterten Zeilen in der Konsole

[1] "countSi: 0"
[1] "countTi: 0"
[1] "countAl: 0"
[1] "countFe: 0"
[1] "countMn: 0"
[1] "countMg: 15"
[1] "countCa: 0"
[1] "countK: 0"
[1] "countP: 0"
[1] "countS: 35"
[1] "countCl: 9"
[1] "countSc: 176"
[1] "countV: 0"
[1] "countCr: 0"
[1] "countCo: 4"
[1] "countNi: 0"
[1] "countCu: 3"
[1] "countZn: 0"
[1] "countAs: 1"
[1] "countSe: 7"
[1] "countRb: 0"
[1] "countSr: 0"
[1] "countY: 0"
[1] "countZr: 0"
[1] "countNb: 0"
[1] "countMo: 6"
[1] "countPd: 128"
[1] "countAg: 176"
[1] "countCd: 77"
[1] "countSn: 9"
[1] "countSb: 18"
[1] "countTe: 5"
[1] "countCs: 0"
[1] "countBa: 0"
[1] "countLa: 2"
[1] "countCe: 2"
[1] "countHf: 0"
[1] "countTa: 0"
[1] "countW: 4"
[1] "countRe: 0"
[1] "countAu: 26"
[1] "countHg: 5"
[1] "countPb: 0"
[1] "countBi: 0"
[1] "countTh: 0"
[1] "countU: 10"
[1] "countBal: 0"

6 Variationskoeffizienten

6.1 Berechnen der Varkoefs pro Probe

# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Rohdaten_OG_gesamt_bearb.csv")

# Variationskoeffizient-Funktion mit Fehlerbehandlung
Varkoef <- function(x) { (sd(x, na.rm = TRUE) / mean(x, na.rm = TRUE)) * 100 }

# Berechnung der Variationskoeffizienten
ProbenPrüfung1<-(data) %>%
  group_by(Probennummer) %>%
  summarize(across(everything(),list(Varkoef=Varkoef))) 

# Auswahl der gewünschten Spalten  
Prüfung_Varkoef<-ProbenPrüfung1[,c("Probennummer","Si_Varkoef","Ti_Varkoef","Al_Varkoef","Fe_Varkoef","Mn_Varkoef","Ca_Varkoef","K_Varkoef","P_Varkoef","V_Varkoef","Cr_Varkoef","Zn_Varkoef","Rb_Varkoef","Sr_Varkoef","Y_Varkoef","Zr_Varkoef","Nb_Varkoef","Ba_Varkoef","Pb_Varkoef")]

# Ersetzen von "NA' mit 0
Prüfung_Varkoef[is.na(Prüfung_Varkoef)] <- 0

6.2 Export farbcodierte Tabelle

Quelle

Quelle: https://cran.r-project.org/web/packages/basictabler/vignettes/v04-styling.html, https://cran.r-project.org/web/packages/basictabler/vignettes/v07-excelexport.html

Achtung der Code braucht viel Zeit zum Rechnen.

# Erstellen einer leeren Tabelle
tbl <- BasicTable$new()

# Hinzufügen der Daten aus 'Prüfung_Varkoef' zur Tabelle & erste Spalte wird als Zeilenüberschrift
tbl$addData(Prüfung_Varkoef, firstColumnAsRowHeaders=TRUE)

# Auswahl der Zellbereiche für die Formatierung
cells <- tbl$getCells(rowNumbers=2:459, columnNumbers=2:19, matchMode="combinations")

# Farbzuordnung basierend auf Zellwerten
tbl$mapStyling(cells=cells, styleProperty="background-color", valueType="color",mapType="logic",mappings=list("v>20", "red", "v<=20", "black")) 

# Tabelle formatieren und anzeigen
tbl$renderTable()

# Erstellen einer neuen Excel-Arbeitsmappe
wb <- createWorkbook(creator = Sys.getenv("M. Schauer"))

# Hinzufügen eines neuen Arbeitsblatts mit dem Namen "Data"
addWorksheet(wb, "Data")

# Einfügen der formatierten Informationen
tbl$writeToExcelWorksheet(wb=wb, wsName="Data",topRowNumber=1, leftMostColumnNumber=1, applyStyles=TRUE)

# Speichern als XLSX
saveWorkbook(wb, file="../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Prüfung_VarKoef_Farbcodiert.xlsx", overwrite = TRUE)

6.3 Export zahlcodierte Tabelle

Prüfung_Varkoef_0 <- cbind(apply(Prüfung_Varkoef[,2:19], 2, function(x) ifelse(x < 20, 0, x)), Prüfung_Varkoef[,1]) # Kodierung von Werten < 20 mit "0" unter Ausschluss der ersten Spalte
Prüfung_Varkoef_0_1 <- cbind(apply(Prüfung_Varkoef_0[,1:18], 2, function(x) ifelse(x > 20, 1, x)), Prüfung_Varkoef_0[,19]) # Kodierung von Werten < 20 mit "0" unter Ausschluss der letzten Spalte

# Umwandeln in einen Dataframe
Prüfung_Varkoef_2 <- as.data.frame(Prüfung_Varkoef_0_1)

# Umbenennen der letzten Spalte zu "Probennummer"
Prüfung_Varkoef_2<-Prüfung_Varkoef_2 %>% rename(Probennummer=19)

# Definieren der Spalten 1:18 als nummerisch
Prüfung_Varkoef_2[,1:18] <- sapply(Prüfung_Varkoef_2[,1:18],as.numeric)

# Berechnung der Zeilensummen, ohne die "Probennummer"-Spalte
Prüfung_Varkoef_3<-Prüfung_Varkoef_2%>%mutate(Zeilensumme=rowSums(.[, !(names(.) %in% c("Probennummer"))]))

# Berechnung der Spaltensummen, ohne die "Probennummer"-Spalte
spaltensummen <- colSums(Prüfung_Varkoef_3[, !colnames(Prüfung_Varkoef_3) %in% "Probennummer"])

# Anhängen einer Null am Ende der Spaltensummen um alle Spalten zu füllen
spaltensummen <- c(spaltensummen,0)

# Spaltensummen als neue Zeile an die Tabelle anhängen
Prüfung_Varkoef_4 <- rbind(Prüfung_Varkoef_3,spaltensummen)

# Berechnung der Zeilenanzahl (ohne die zusätzliche Summenzeile)
Zeilenanzahl<-(nrow(Prüfung_Varkoef_4)-1)

# Berechnung des prozentualen Anteils der Spaltensummen an der Gesamtanzahl der Zeilen
Prozent<-(100/Zeilenanzahl*spaltensummen)

# Prozent als weitere Zeile an die Tabelle anhängen
Prüfung_Varkoef_5 <- rbind(Prüfung_Varkoef_4,Prozent)

# Extrahieren der Zeilensummen für weitere Berechnungen
Zeilensumme<-Prüfung_Varkoef_5$Zeilensumme

# Anzahl der Spalten ermitteln
Spaltenanzahl<-ncol(Prüfung_Varkoef_5)

# Berechnung des prozentualen Anteils jeder Zeile an der Gesamtanzahl der Spalten (ohne "Probennummer" und "Zeilensumme")
Zeilenprozent<-(100/(Spaltenanzahl-2)*Zeilensumme)

# Anfügen der berechneten Zeilenprozente an die Tabelle
Prüfung_Varkoef_6 <- cbind(Prüfung_Varkoef_5,Zeilenprozent)

# Funktion zur Rundung numerischer Werte auf ganze Zahlen
ganze_Zahlen <- function(x) {if(is.numeric(x)) {return(round(x))} else {
    return(x)}}

# Anwenden der Rundungsfunktion auf alle Spalten
Prüfung_Varkoef_6 <- as.data.frame(lapply(Prüfung_Varkoef_6,ganze_Zahlen))

# Sortieren der Zeilen nach Zeilenprozent in absteigender Reihenfolge
Prüfung_Varkoef_6<-Prüfung_Varkoef_6[order(Prüfung_Varkoef_6$Zeilenprozent, decreasing = TRUE),]

# Beschriftung der Zelle 460/19 als "Spaltensumme"
text<-"Spaltensumme"
Prüfung_Varkoef_6[460,19]<-text

# Beschriftung der Zelle 461/19 als "Spaltenprozent"
text<-"Spaltenprozent"
Prüfung_Varkoef_6[461,19]<-text

# Tabelle anzeigen
head(Prüfung_Varkoef_6)

    Si_Varkoef Ti_Varkoef Al_Varkoef Fe_Varkoef Mn_Varkoef Ca_Varkoef K_Varkoef
60           0          1          0          0          1          1         0
319          0          0          0          0          1          0         0
404          0          1          0          0          1          1         0
15           0          1          0          0          1          0         0
44           0          1          0          0          1          1         0
211          0          1          0          0          1          1         0
    P_Varkoef V_Varkoef Cr_Varkoef Zn_Varkoef Rb_Varkoef Sr_Varkoef Y_Varkoef
60          1         0          1          0          0          1         1
319         1         1          0          1          0          0         1
404         1         1          1          0          0          1         0
15          0         0          1          1          0          0         1
44          0         1          1          0          0          0         0
211         0         1          1          1          0          0         0
    Zr_Varkoef Nb_Varkoef Ba_Varkoef Pb_Varkoef  Probennummer Zeilensumme
60           0          1          0          0       1639-12           8
319          1          0          1          1     HI-01-H04           8
404          0          0          1          0 HI-06-T027-05           8
15           0          0          1          1       1401-47           7
44           0          0          1          1       1613-03           7
211          0          0          0          1        4227-X           7
    Zeilenprozent
60             44
319            44
404            44
15             39
44             39
211            39

# Speichern als CSV
write.csv(Prüfung_Varkoef_6,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Prüfung_VarKoef_Zahlcodiert.csv",row.names=FALSE)

7 Abb. 6-117

# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Rohdaten_OG_gesamt_bearb.csv")

# Variationskoeffizient-Funktion mit Fehlerbehandlung
Varkoef <- function(x) { (sd(x, na.rm = TRUE) / mean(x, na.rm = TRUE)) * 100 }

# Berechnung der Variationskoeffizienten
ProbenPrüfung1<-(data) %>%
  group_by(Probennummer) %>%
  summarize(across(everything(),list(Varkoef=Varkoef))) 

# Auswahl der gewünschten Spalten 
data<-ProbenPrüfung1[,c("Probennummer","Si_Varkoef","Ti_Varkoef","Al_Varkoef","Fe_Varkoef","Mn_Varkoef","Mg_Varkoef","Ca_Varkoef","K_Varkoef","P_Varkoef","V_Varkoef","Cr_Varkoef","Ni_Varkoef","Cu_Varkoef","Zn_Varkoef","Rb_Varkoef","Sr_Varkoef","Y_Varkoef","Zr_Varkoef","Nb_Varkoef","Ba_Varkoef","Pb_Varkoef","Th_Varkoef")]

# Ersetzen von "NA' mit 0
data[is.na(data)] <- 0

# Diagramme erstellen
HistVarkoef_Si<-ggplot(data,aes(x=Si_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=1,bins=NULL)+ # Manuelle Definition der Farbe der Balken
  xlab("Si-Variationskoeffizient in %")+ylab("Häufigkeit")+ # Manuelle Achsenbeschriftung
  theme_classic()+# Klassisches Design
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+ # Manuelle Formatierung von Achsen- und Legendendarstellung
  geom_vline(xintercept=20, color="red", size=0.5) # Vertikale Markierung des Grenzwerts

HistVarkoef_Fe<-ggplot(data,aes(x=Fe_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=1,bins=NULL)+
  xlab("Fe-Variationskoeffizient in %")+ylab("Häufigkeit")+
  theme_classic()+
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+
  geom_vline(xintercept=20, color="red", size=0.5)
 
HistVarkoef_Mn<-ggplot(data,aes(x=Mn_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=3,bins=NULL)+
  xlab("Mn-Variationskoeffizient in %")+ylab("Häufigkeit")+
  theme_classic()+
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+
  geom_vline(xintercept=20, color="red", size=0.5)

HistVarkoef_Rb<-ggplot(data,aes(x=Rb_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=1,bins=NULL)+
  xlab("Rb-Variationskoeffizient in %")+ylab("Häufigkeit")+
  theme_classic()+
  theme(axis.line=element_line(colour="black",size=0.25))+
  theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+
  geom_vline(xintercept=20, color="red", size=0.5)

HistVarkoef_Pb<-ggplot(data,aes(x=Pb_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=3,bins=NULL)+
  xlab("Pb-Variationskoeffizient in %")+ylab("Häufigkeit")+
  theme_classic()+
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+
  geom_vline(xintercept=20, color="red", size=0.5)
 
HistVarkoef_P<-ggplot(data,aes(x=P_Varkoef))+
  geom_histogram(fill="lightgrey", color="black",binwidth=3,bins=NULL)+
  xlab("P-Variationskoeffizient in %")+ylab("Häufigkeit")+
  theme_classic()+
  theme(axis.line=element_line(colour="black",size=0.25))+theme(legend.title=element_blank(),legend.text=element_text(size=8),axis.title=element_text(size=9),axis.text=element_text(size=8,color="black")) + theme(legend.position="bottom") + theme(axis.ticks=element_line(size=0.25,colour="black"))+
  geom_vline(xintercept=20, color="red", size=0.5)

# Kombination der Diagramme 
ggarrange(HistVarkoef_Si,HistVarkoef_Fe,HistVarkoef_Rb,HistVarkoef_Mn,HistVarkoef_Pb,HistVarkoef_P,ncol=2,nrow=3)

# Export des kombinierten Diagramms 
ggsave("Abb.6-117.eps",path=("../Daten//Kap_6//Kap_6.3//Abbildungen//Grundlagen//"),plot=last_plot(),device="eps",height=10,width=10,unit=c("cm"),dpi=1200)

8 l-Drift Korrektur

8.1 Berechnen der l-Drift-Korrekturfaktoren

8.1.1 Zusammenstellen Daten 2019

# Daten einlesen und filtern
data1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//Messungen_StandardSdAR-M2_OG.csv")
data<-select(data1,"Tag","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","S","Cl","Sc","V","Cr","Co","Ni","Cu","Zn","As","Se","Rb","Sr","Y","Zr","Nb","Mo","Pd","Ag","Cd","Sn","Sb","Te","Cs","Ba","La","Ce","Hf","Ta","W","Re","Au","Hg","Pb","Bi","Th","U")

# Berechnen des Medians pro Tag
MedianStandardproTag1<-(data) %>%  group_by(Tag) %>%  summarize(across(everything(),list(median=median))) 

# Speichern als CSV   
write.csv(MedianStandardproTag1,"../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//MedianStandardSdAR-M2proTag_2019.csv",row.names=FALSE)

8.1.2 Berechen l-Drift-Korrekturfaktoren 2019

# Daten einlesen
NomMed<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//NominalMedian_SdAR-M2.csv")
StWert<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//MedianStandardSdAR-M2proTag_2019.csv")
  
# Extrahieren des Medianwertes der Standardsmessungen für Si
StWert_Si<-StWert$Si_median

# Extrahieren des Referenz(Nominal)Medianwerts für Si
NomMed_Si<-NomMed$Si

# Berechnung der Differenz zwischen Standard- und Nominalwert
Minus_Si<-(StWert_Si-NomMed_Si)

# Berechnung des relativen Unterschieds (Drift) als Quotient der Differenz und des Nominalwerts
Durch_Si<-(Minus_Si/NomMed_Si)

# Umrechnung des Drifts in Prozent
lDrift_Si<-Durch_Si*100

StWert_Ti<-StWert$Ti_median
NomMed_Ti<-NomMed$Ti
Minus_Ti<-(StWert_Ti-NomMed_Ti)
Durch_Ti<-(Minus_Ti/NomMed_Ti)
lDrift_Ti<-Durch_Ti*100

StWert_Al<-StWert$Al_median
NomMed_Al<-NomMed$Al
Minus_Al<-(StWert_Al-NomMed_Al)
Durch_Al<-(Minus_Al/NomMed_Al)
lDrift_Al<-Durch_Al*100

StWert_Fe<-StWert$Fe_median
NomMed_Fe<-NomMed$Fe
Minus_Fe<-(StWert_Fe-NomMed_Fe)
Durch_Fe<-(Minus_Fe/NomMed_Fe)
lDrift_Fe<-Durch_Fe*100

StWert_Mn<-StWert$Mn_median
NomMed_Mn<-NomMed$Mn
Minus_Mn<-(StWert_Mn-NomMed_Mn)
Durch_Mn<-(Minus_Mn/NomMed_Mn)
lDrift_Mn<-Durch_Mn*100

StWert_Mg<-StWert$Mg_median
NomMed_Mg<-NomMed$Mg
Minus_Mg<-(StWert_Mg-NomMed_Mg)
Durch_Mg<-(Minus_Mg/NomMed_Mg)
lDrift_Mg<-Durch_Mg*100

StWert_Ca<-StWert$Ca_median
NomMed_Ca<-NomMed$Ca
Minus_Ca<-(StWert_Ca-NomMed_Ca)
Durch_Ca<-(Minus_Ca/NomMed_Ca)
lDrift_Ca<-Durch_Ca*100

StWert_K<-StWert$K_median
NomMed_K<-NomMed$K
Minus_K<-(StWert_K-NomMed_K)
Durch_K<-(Minus_K/NomMed_K)
lDrift_K<-Durch_K*100

StWert_P<-StWert$P_median
NomMed_P<-NomMed$P
Minus_P<-(StWert_P-NomMed_P)
Durch_P<-(Minus_P/NomMed_P)
lDrift_P<-Durch_P*100

StWert_S<-StWert$S_median
NomMed_S<-NomMed$S
Minus_S<-(StWert_S-NomMed_S)
Durch_S<-(Minus_S/NomMed_S)
lDrift_S<-Durch_S*100

StWert_Cl<-StWert$Cl_median
NomMed_Cl<-NomMed$Cl
Minus_Cl<-(StWert_Cl-NomMed_Cl)
Durch_Cl<-(Minus_Cl/NomMed_Cl)
lDrift_Cl<-Durch_Cl*100

StWert_Sc<-StWert$Sc_median
NomMed_Sc<-NomMed$Sc
Minus_Sc<-(StWert_Sc-NomMed_Sc)
Durch_Sc<-(Minus_Sc/NomMed_Sc)
lDrift_Sc<-Durch_Sc*100

StWert_V<-StWert$V_median
NomMed_V<-NomMed$V
Minus_V<-(StWert_V-NomMed_V)
Durch_V<-(Minus_V/NomMed_V)
lDrift_V<-Durch_V*100

StWert_Cr<-StWert$Cr_median
NomMed_Cr<-NomMed$Cr
Minus_Cr<-(StWert_Cr-NomMed_Cr)
Durch_Cr<-(Minus_Cr/NomMed_Cr)
lDrift_Cr<-Durch_Cr*100

StWert_Co<-StWert$Co_median
NomMed_Co<-NomMed$Co
Minus_Co<-(StWert_Co-NomMed_Co)
Durch_Co<-(Minus_Co/NomMed_Co)
lDrift_Co<-Durch_Co*100

StWert_Ni<-StWert$Ni_median
NomMed_Ni<-NomMed$Ni
Minus_Ni<-(StWert_Ni-NomMed_Ni)
Durch_Ni<-(Minus_Ni/NomMed_Ni)
lDrift_Ni<-Durch_Ni*100

StWert_Cu<-StWert$Cu_median
NomMed_Cu<-NomMed$Cu
Minus_Cu<-(StWert_Cu-NomMed_Cu)
Durch_Cu<-(Minus_Cu/NomMed_Cu)
lDrift_Cu<-Durch_Cu*100

StWert_Zn<-StWert$Zn_median
NomMed_Zn<-NomMed$Zn
Minus_Zn<-(StWert_Zn-NomMed_Zn)
Durch_Zn<-(Minus_Zn/NomMed_Zn)
lDrift_Zn<-Durch_Zn*100

StWert_As<-StWert$As_median
NomMed_As<-NomMed$As
Minus_As<-(StWert_As-NomMed_As)
Durch_As<-(Minus_As/NomMed_As)
lDrift_As<-Durch_As*100

StWert_Se<-StWert$Se_median
NomMed_Se<-NomMed$Se
Minus_Se<-(StWert_Se-NomMed_Se)
Durch_Se<-(Minus_Se/NomMed_Se)
lDrift_Se<-Durch_Se*100

StWert_Rb<-StWert$Rb_median
NomMed_Rb<-NomMed$Rb
Minus_Rb<-(StWert_Rb-NomMed_Rb)
Durch_Rb<-(Minus_Rb/NomMed_Rb)
lDrift_Rb<-Durch_Rb*100

StWert_Sr<-StWert$Sr_median
NomMed_Sr<-NomMed$Sr
Minus_Sr<-(StWert_Sr-NomMed_Sr)
Durch_Sr<-(Minus_Sr/NomMed_Sr)
lDrift_Sr<-Durch_Sr*100

StWert_Y<-StWert$Y_median
NomMed_Y<-NomMed$Y
Minus_Y<-(StWert_Y-NomMed_Y)
Durch_Y<-(Minus_Y/NomMed_Y)
lDrift_Y<-Durch_Y*100

StWert_Zr<-StWert$Zr_median
NomMed_Zr<-NomMed$Zr
Minus_Zr<-(StWert_Zr-NomMed_Zr)
Durch_Zr<-(Minus_Zr/NomMed_Zr)
lDrift_Zr<-Durch_Zr*100

StWert_Nb<-StWert$Nb_median
NomMed_Nb<-NomMed$Nb
Minus_Nb<-(StWert_Nb-NomMed_Nb)
Durch_Nb<-(Minus_Nb/NomMed_Nb)
lDrift_Nb<-Durch_Nb*100

StWert_Mo<-StWert$Mo_median
NomMed_Mo<-NomMed$Mo
Minus_Mo<-(StWert_Mo-NomMed_Mo)
Durch_Mo<-(Minus_Mo/NomMed_Mo)
lDrift_Mo<-Durch_Mo*100

StWert_Ag<-StWert$Ag_median
NomMed_Ag<-NomMed$Ag
Minus_Ag<-(StWert_Ag-NomMed_Ag)
Durch_Ag<-(Minus_Ag/NomMed_Ag)
lDrift_Ag<-Durch_Ag*100

StWert_Cd<-StWert$Cd_median
NomMed_Cd<-NomMed$Cd
Minus_Cd<-(StWert_Cd-NomMed_Cd)
Durch_Cd<-(Minus_Cd/NomMed_Cd)
lDrift_Cd<-Durch_Cd*100

StWert_Sn<-StWert$Sn_median
NomMed_Sn<-NomMed$Sn
Minus_Sn<-(StWert_Sn-NomMed_Sn)
Durch_Sn<-(Minus_Sn/NomMed_Sn)
lDrift_Sn<-Durch_Sn*100

StWert_Sb<-StWert$Sb_median
NomMed_Sb<-NomMed$Sb
Minus_Sb<-(StWert_Sb-NomMed_Sb)
Durch_Sb<-(Minus_Sb/NomMed_Sb)
lDrift_Sb<-Durch_Sb*100

StWert_Te<-StWert$Te_median
NomMed_Te<-NomMed$Te
Minus_Te<-(StWert_Te-NomMed_Te)
Durch_Te<-(Minus_Te/NomMed_Te)
lDrift_Te<-Durch_Te*100

StWert_Cs<-StWert$Cs_median
NomMed_Cs<-NomMed$Cs
Minus_Cs<-(StWert_Cs-NomMed_Cs)
Durch_Cs<-(Minus_Cs/NomMed_Cs)
lDrift_Cs<-Durch_Cs*100

StWert_Ba<-StWert$Ba_median
NomMed_Ba<-NomMed$Ba
Minus_Ba<-(StWert_Ba-NomMed_Ba)
Durch_Ba<-(Minus_Ba/NomMed_Ba)
lDrift_Ba<-Durch_Ba*100

StWert_La<-StWert$La_median
NomMed_La<-NomMed$La
Minus_La<-(StWert_La-NomMed_La)
Durch_La<-(Minus_La/NomMed_La)
lDrift_La<-Durch_La*100

StWert_Pb<-StWert$Pb_median
NomMed_Pb<-NomMed$Pb
Minus_Pb<-(StWert_Pb-NomMed_Pb)
Durch_Pb<-(Minus_Pb/NomMed_Pb)
lDrift_Pb<-Durch_Pb*100

StWert_Th<-StWert$Th_median
NomMed_Th<-NomMed$Th
Minus_Th<-(StWert_Th-NomMed_Th)
Durch_Th<-(Minus_Th/NomMed_Th)
lDrift_Th<-Durch_Th*100

StWert_U<-StWert$U_median
NomMed_U<-NomMed$U
Minus_U<-(StWert_U-NomMed_U)
Durch_U<-(Minus_U/NomMed_U)
lDrift_U<-Durch_U*100

# Erstellen einer zusammenfassenden Datenstruktur
StWert2<- within(StWert, {
  lDrift_Si <- lDrift_Si
  lDrift_Ti <- lDrift_Ti
  lDrift_Al <- lDrift_Al
  lDrift_Fe <- lDrift_Fe
  lDrift_Mn <- lDrift_Mn
  lDrift_Mg <- lDrift_Mg
  lDrift_Ca <- lDrift_Ca
  lDrift_K <- lDrift_K
  lDrift_P <- lDrift_P
  lDrift_S <- lDrift_S
  lDrift_Cl <- lDrift_Cl
  lDrift_Sc <- lDrift_Sc
  lDrift_V <- lDrift_V
  lDrift_Cr <- lDrift_Cr
  lDrift_Co <- lDrift_Co
  lDrift_Ni <- lDrift_Ni
  lDrift_Cu <- lDrift_Cu
  lDrift_Zn <- lDrift_Zn
  lDrift_As <- lDrift_As
  lDrift_Se <- lDrift_Se
  lDrift_Rb <- lDrift_Rb
  lDrift_Sr <- lDrift_Sr
  lDrift_Y <- lDrift_Y
  lDrift_Zr <- lDrift_Zr
  lDrift_Nb <- lDrift_Nb
  lDrift_Mo <- lDrift_Mo
  lDrift_Ag <- lDrift_Ag
  lDrift_Cd <- lDrift_Cd
  lDrift_Sn <- lDrift_Sn
  lDrift_Sb <- lDrift_Sb
  lDrift_Te <- lDrift_Te
  lDrift_Cs <- lDrift_Cs
  lDrift_Ba <- lDrift_Ba
  lDrift_La <- lDrift_La
  lDrift_Pb <- lDrift_Pb
  lDrift_Th <- lDrift_Th
  lDrift_U <- lDrift_U})

# Auswahl der gewünschten Spalten
KorFak_lDrift_2019<-select(StWert2,"Tag","Datum_median","lDrift_Si","lDrift_Ti","lDrift_Al","lDrift_Fe","lDrift_Mn","lDrift_Mg","lDrift_Ca","lDrift_K","lDrift_P","lDrift_S","lDrift_Cl","lDrift_V","lDrift_Cr","lDrift_Ni","lDrift_Cu","lDrift_Zn","lDrift_As","lDrift_Se","lDrift_Rb","lDrift_Sr","lDrift_Y","lDrift_Zr","lDrift_Nb","lDrift_Mo","lDrift_Ag","lDrift_Cd","lDrift_Sn","lDrift_Sb","lDrift_Te","lDrift_Cs","lDrift_Ba","lDrift_La","lDrift_Pb","lDrift_Th","lDrift_U")

8.1.3 Zusammenstellen Daten 2020

# Daten einlesen und filtern
data1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//Messungen_Standard2907a_OG.csv")
data<-select(data1,"Tag","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","S","Cl","Sc","V","Cr","Co","Ni","Cu","Zn","As","Se","Rb","Sr","Y","Zr","Nb","Mo","Pd","Ag","Cd","Sn","Sb","Te","Cs","Ba","La","Ce","Hf","Ta","W","Re","Au","Hg","Pb","Bi","Th","U")

# Berechnen des Medians pro Tag
MedianStandardproTag1<-(data) %>%  group_by(Tag) %>%  summarize(across(everything(),list(median=median))) 

# Speichern als CSV   
write.csv(MedianStandardproTag1,"../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//MedianStandard2709aproTag_2020.csv",row.names=FALSE)

8.1.4 Berechen l-Drift-Korrekturfaktoren 2020

# Daten einlesen
NomMed<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//NominalMedian_2709a.csv")
StWert<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Standards//MedianStandard2709aproTag_2020.csv")
  
# Extrahieren des Medianwertes der Standardsmessungen für Si
StWert_Si<-StWert$Si_median

# Extrahieren des Referenz(Nominal)Medianwerts für Si
NomMed_Si<-NomMed$Si

# Berechnung der Differenz zwischen Standard- und Nominalwert
Minus_Si<-(StWert_Si-NomMed_Si)

# Berechnung des relativen Unterschieds (Drift) als Quotient der Differenz und des Nominalwerts
Durch_Si<-(Minus_Si/NomMed_Si)

# Umrechnung des Drifts in Prozent
lDrift_Si<-Durch_Si*100

StWert_Ti<-StWert$Ti_median
NomMed_Ti<-NomMed$Ti
Minus_Ti<-(StWert_Ti-NomMed_Ti)
Durch_Ti<-(Minus_Ti/NomMed_Ti)
lDrift_Ti<-Durch_Ti*100

StWert_Al<-StWert$Al_median
NomMed_Al<-NomMed$Al
Minus_Al<-(StWert_Al-NomMed_Al)
Durch_Al<-(Minus_Al/NomMed_Al)
lDrift_Al<-Durch_Al*100

StWert_Fe<-StWert$Fe_median
NomMed_Fe<-NomMed$Fe
Minus_Fe<-(StWert_Fe-NomMed_Fe)
Durch_Fe<-(Minus_Fe/NomMed_Fe)
lDrift_Fe<-Durch_Fe*100

StWert_Mn<-StWert$Mn_median
NomMed_Mn<-NomMed$Mn
Minus_Mn<-(StWert_Mn-NomMed_Mn)
Durch_Mn<-(Minus_Mn/NomMed_Mn)
lDrift_Mn<-Durch_Mn*100

StWert_Mg<-StWert$Mg_median
NomMed_Mg<-NomMed$Mg
Minus_Mg<-(StWert_Mg-NomMed_Mg)
Durch_Mg<-(Minus_Mg/NomMed_Mg)
lDrift_Mg<-Durch_Mg*100

StWert_Ca<-StWert$Ca_median
NomMed_Ca<-NomMed$Ca
Minus_Ca<-(StWert_Ca-NomMed_Ca)
Durch_Ca<-(Minus_Ca/NomMed_Ca)
lDrift_Ca<-Durch_Ca*100

StWert_K<-StWert$K_median
NomMed_K<-NomMed$K
Minus_K<-(StWert_K-NomMed_K)
Durch_K<-(Minus_K/NomMed_K)
lDrift_K<-Durch_K*100

StWert_P<-StWert$P_median
NomMed_P<-NomMed$P
Minus_P<-(StWert_P-NomMed_P)
Durch_P<-(Minus_P/NomMed_P)
lDrift_P<-Durch_P*100

StWert_S<-StWert$S_median
NomMed_S<-NomMed$S
Minus_S<-(StWert_S-NomMed_S)
Durch_S<-(Minus_S/NomMed_S)
lDrift_S<-Durch_S*100

StWert_Cl<-StWert$Cl_median
NomMed_Cl<-NomMed$Cl
Minus_Cl<-(StWert_Cl-NomMed_Cl)
Durch_Cl<-(Minus_Cl/NomMed_Cl)
lDrift_Cl<-Durch_Cl*100

StWert_Sc<-StWert$Sc_median
NomMed_Sc<-NomMed$Sc
Minus_Sc<-(StWert_Sc-NomMed_Sc)
Durch_Sc<-(Minus_Sc/NomMed_Sc)
lDrift_Sc<-Durch_Sc*100

StWert_V<-StWert$V_median
NomMed_V<-NomMed$V
Minus_V<-(StWert_V-NomMed_V)
Durch_V<-(Minus_V/NomMed_V)
lDrift_V<-Durch_V*100

StWert_Cr<-StWert$Cr_median
NomMed_Cr<-NomMed$Cr
Minus_Cr<-(StWert_Cr-NomMed_Cr)
Durch_Cr<-(Minus_Cr/NomMed_Cr)
lDrift_Cr<-Durch_Cr*100

StWert_Co<-StWert$Co_median
NomMed_Co<-NomMed$Co
Minus_Co<-(StWert_Co-NomMed_Co)
Durch_Co<-(Minus_Co/NomMed_Co)
lDrift_Co<-Durch_Co*100

StWert_Ni<-StWert$Ni_median
NomMed_Ni<-NomMed$Ni
Minus_Ni<-(StWert_Ni-NomMed_Ni)
Durch_Ni<-(Minus_Ni/NomMed_Ni)
lDrift_Ni<-Durch_Ni*100

StWert_Cu<-StWert$Cu_median
NomMed_Cu<-NomMed$Cu
Minus_Cu<-(StWert_Cu-NomMed_Cu)
Durch_Cu<-(Minus_Cu/NomMed_Cu)
lDrift_Cu<-Durch_Cu*100

StWert_Zn<-StWert$Zn_median
NomMed_Zn<-NomMed$Zn
Minus_Zn<-(StWert_Zn-NomMed_Zn)
Durch_Zn<-(Minus_Zn/NomMed_Zn)
lDrift_Zn<-Durch_Zn*100

StWert_As<-StWert$As_median
NomMed_As<-NomMed$As
Minus_As<-(StWert_As-NomMed_As)
Durch_As<-(Minus_As/NomMed_As)
lDrift_As<-Durch_As*100

StWert_Se<-StWert$Se_median
NomMed_Se<-NomMed$Se
Minus_Se<-(StWert_Se-NomMed_Se)
Durch_Se<-(Minus_Se/NomMed_Se)
lDrift_Se<-Durch_Se*100

StWert_Rb<-StWert$Rb_median
NomMed_Rb<-NomMed$Rb
Minus_Rb<-(StWert_Rb-NomMed_Rb)
Durch_Rb<-(Minus_Rb/NomMed_Rb)
lDrift_Rb<-Durch_Rb*100

StWert_Sr<-StWert$Sr_median
NomMed_Sr<-NomMed$Sr
Minus_Sr<-(StWert_Sr-NomMed_Sr)
Durch_Sr<-(Minus_Sr/NomMed_Sr)
lDrift_Sr<-Durch_Sr*100

StWert_Y<-StWert$Y_median
NomMed_Y<-NomMed$Y
Minus_Y<-(StWert_Y-NomMed_Y)
Durch_Y<-(Minus_Y/NomMed_Y)
lDrift_Y<-Durch_Y*100

StWert_Zr<-StWert$Zr_median
NomMed_Zr<-NomMed$Zr
Minus_Zr<-(StWert_Zr-NomMed_Zr)
Durch_Zr<-(Minus_Zr/NomMed_Zr)
lDrift_Zr<-Durch_Zr*100

StWert_Nb<-StWert$Nb_median
NomMed_Nb<-NomMed$Nb
Minus_Nb<-(StWert_Nb-NomMed_Nb)
Durch_Nb<-(Minus_Nb/NomMed_Nb)
lDrift_Nb<-Durch_Nb*100

StWert_Mo<-StWert$Mo_median
NomMed_Mo<-NomMed$Mo
Minus_Mo<-(StWert_Mo-NomMed_Mo)
Durch_Mo<-(Minus_Mo/NomMed_Mo)
lDrift_Mo<-Durch_Mo*100

StWert_Ag<-StWert$Ag_median
NomMed_Ag<-NomMed$Ag
Minus_Ag<-(StWert_Ag-NomMed_Ag)
Durch_Ag<-(Minus_Ag/NomMed_Ag)
lDrift_Ag<-Durch_Ag*100

StWert_Cd<-StWert$Cd_median
NomMed_Cd<-NomMed$Cd
Minus_Cd<-(StWert_Cd-NomMed_Cd)
Durch_Cd<-(Minus_Cd/NomMed_Cd)
lDrift_Cd<-Durch_Cd*100

StWert_Sn<-StWert$Sn_median
NomMed_Sn<-NomMed$Sn
Minus_Sn<-(StWert_Sn-NomMed_Sn)
Durch_Sn<-(Minus_Sn/NomMed_Sn)
lDrift_Sn<-Durch_Sn*100

StWert_Sb<-StWert$Sb_median
NomMed_Sb<-NomMed$Sb
Minus_Sb<-(StWert_Sb-NomMed_Sb)
Durch_Sb<-(Minus_Sb/NomMed_Sb)
lDrift_Sb<-Durch_Sb*100

StWert_Te<-StWert$Te_median
NomMed_Te<-NomMed$Te
Minus_Te<-(StWert_Te-NomMed_Te)
Durch_Te<-(Minus_Te/NomMed_Te)
lDrift_Te<-Durch_Te*100

StWert_Cs<-StWert$Cs_median
NomMed_Cs<-NomMed$Cs
Minus_Cs<-(StWert_Cs-NomMed_Cs)
Durch_Cs<-(Minus_Cs/NomMed_Cs)
lDrift_Cs<-Durch_Cs*100

StWert_Ba<-StWert$Ba_median
NomMed_Ba<-NomMed$Ba
Minus_Ba<-(StWert_Ba-NomMed_Ba)
Durch_Ba<-(Minus_Ba/NomMed_Ba)
lDrift_Ba<-Durch_Ba*100

StWert_La<-StWert$La_median
NomMed_La<-NomMed$La
Minus_La<-(StWert_La-NomMed_La)
Durch_La<-(Minus_La/NomMed_La)
lDrift_La<-Durch_La*100

StWert_Pb<-StWert$Pb_median
NomMed_Pb<-NomMed$Pb
Minus_Pb<-(StWert_Pb-NomMed_Pb)
Durch_Pb<-(Minus_Pb/NomMed_Pb)
lDrift_Pb<-Durch_Pb*100

StWert_Th<-StWert$Th_median
NomMed_Th<-NomMed$Th
Minus_Th<-(StWert_Th-NomMed_Th)
Durch_Th<-(Minus_Th/NomMed_Th)
lDrift_Th<-Durch_Th*100

StWert_U<-StWert$U_median
NomMed_U<-NomMed$U
Minus_U<-(StWert_U-NomMed_U)
Durch_U<-(Minus_U/NomMed_U)
lDrift_U<-Durch_U*100

# Erstellen einer zusammenfassenden Datenstruktur
StWert2<- within(StWert, {
  lDrift_Si <- lDrift_Si
  lDrift_Ti <- lDrift_Ti
  lDrift_Al <- lDrift_Al
  lDrift_Fe <- lDrift_Fe
  lDrift_Mn <- lDrift_Mn
  lDrift_Mg <- lDrift_Mg
  lDrift_Ca <- lDrift_Ca
  lDrift_K <- lDrift_K
  lDrift_P <- lDrift_P
  lDrift_S <- lDrift_S
  lDrift_Cl <- lDrift_Cl
  lDrift_Sc <- lDrift_Sc
  lDrift_V <- lDrift_V
  lDrift_Cr <- lDrift_Cr
  lDrift_Co <- lDrift_Co
  lDrift_Ni <- lDrift_Ni
  lDrift_Cu <- lDrift_Cu
  lDrift_Zn <- lDrift_Zn
  lDrift_As <- lDrift_As
  lDrift_Se <- lDrift_Se
  lDrift_Rb <- lDrift_Rb
  lDrift_Sr <- lDrift_Sr
  lDrift_Y <- lDrift_Y
  lDrift_Zr <- lDrift_Zr
  lDrift_Nb <- lDrift_Nb
  lDrift_Mo <- lDrift_Mo
  lDrift_Ag <- lDrift_Ag
  lDrift_Cd <- lDrift_Cd
  lDrift_Sn <- lDrift_Sn
  lDrift_Sb <- lDrift_Sb
  lDrift_Te <- lDrift_Te
  lDrift_Cs <- lDrift_Cs
  lDrift_Ba <- lDrift_Ba
  lDrift_La <- lDrift_La
  lDrift_Pb <- lDrift_Pb
  lDrift_Th <- lDrift_Th
  lDrift_U <- lDrift_U})

# Auswahl der gewünschten Spalten
KorFak_lDrift_2020<-select(StWert2,"Tag","Datum_median","lDrift_Si","lDrift_Ti","lDrift_Al","lDrift_Fe","lDrift_Mn","lDrift_Mg","lDrift_Ca","lDrift_K","lDrift_P","lDrift_S","lDrift_Cl","lDrift_V","lDrift_Cr","lDrift_Ni","lDrift_Cu","lDrift_Zn","lDrift_As","lDrift_Se","lDrift_Rb","lDrift_Sr","lDrift_Y","lDrift_Zr","lDrift_Nb","lDrift_Mo","lDrift_Ag","lDrift_Cd","lDrift_Sn","lDrift_Sb","lDrift_Te","lDrift_Cs","lDrift_Ba","lDrift_La","lDrift_Pb","lDrift_Th","lDrift_U")

8.2 Zusammenführen der Daten

# Zeilenweise Kombination mehrerer Dataframes
data3<-rbind(KorFak_lDrift_2019,KorFak_lDrift_2020)

# Ersetzen von "NA" durch "0"
data3[is.na(data3)] <- 0
data3[data3 == "Inf"] <- 0

# Speichern als CSV
write.csv(data3,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//KorFak_lDrift.csv",row.names=FALSE)

8.3 Durchführen der l-Drift-Korrektur

8.3.1 Zusammenstellen der Daten

Das Datum muss in Excel auf folgendes Format angepasst werden: Gebietsschema Deutsch (Deutschland) - Format 14.3.2001

# Daten einlesen und filtern
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Rohdaten_OG_gesamt_bearb.csv")
data<-select(data,"Probennummer","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","S","Cl","Sc","V","Cr","Co","Ni","Cu","Zn","As","Se","Rb","Sr","Y","Zr","Nb","Mo","Pd","Ag","Cd","Sn","Sb","Te","Cs","Ba","La","Ce","Hf","Ta","W","Re","Au","Hg","Pb","Bi","Th","U","Bal")

# Speichern als CSV
write.csv(data,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_Sort.csv",row.names=FALSE)

# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_Sort.csv")
KorFak<-read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//KorFak_lDrift_bearb.csv")

8.3.2 l-Drift Korrektur des 11.9.2019

# Filtern der Korrekturfaktoren und Messdaten nach dem zu berechnenden Tag
KorFak11.9.2019<-KorFak %>% filter(Datum_median=="11.9.2019")
data11.9.2019<-data %>% filter(Datum=="11.9.2019")

# Definieren relevanter Variablen
Probennummer<-data11.9.2019$Probennummer
Datum<-data11.9.2019$Datum

# Extrahieren der Messwerte des ausgewählten Tages für Si
data11.9.2019_Si<-data11.9.2019$Si

# Extrahieren des l-Drift Korrekturfaktors des ausgewählten Tages für Si
KorFak11.9.2019_Si<-KorFak11.9.2019$lDrift_Si

# Durchführen der l-Drift-Korrektur
Si<- data11.9.2019_Si-data11.9.2019_Si*(KorFak11.9.2019_Si/100)

data11.9.2019_Ti<-data11.9.2019$Ti
KorFak11.9.2019_Ti<-KorFak11.9.2019$lDrift_Ti
Ti<- data11.9.2019_Ti-data11.9.2019_Ti*(KorFak11.9.2019_Ti/100)

data11.9.2019_Al<-data11.9.2019$Al
KorFak11.9.2019_Al<-KorFak11.9.2019$lDrift_Al
Al<- data11.9.2019_Al-data11.9.2019_Al*(KorFak11.9.2019_Al/100)

data11.9.2019_Fe<-data11.9.2019$Fe
KorFak11.9.2019_Fe<-KorFak11.9.2019$lDrift_Fe
Fe<- data11.9.2019_Fe-data11.9.2019_Fe*(KorFak11.9.2019_Fe/100)

data11.9.2019_Mn<-data11.9.2019$Mn
KorFak11.9.2019_Mn<-KorFak11.9.2019$lDrift_Mn
Mn<- data11.9.2019_Mn-data11.9.2019_Mn*(KorFak11.9.2019_Mn/100)

data11.9.2019_Mg<-data11.9.2019$Mg
KorFak11.9.2019_Mg<-KorFak11.9.2019$lDrift_Mg
Mg<- data11.9.2019_Mg-data11.9.2019_Mg*(KorFak11.9.2019_Mg/100)

data11.9.2019_Ca<-data11.9.2019$Ca
KorFak11.9.2019_Ca<-KorFak11.9.2019$lDrift_Ca
Ca<- data11.9.2019_Ca-data11.9.2019_Ca*(KorFak11.9.2019_Ca/100)

data11.9.2019_K<-data11.9.2019$K
KorFak11.9.2019_K<-KorFak11.9.2019$lDrift_K
K<- data11.9.2019_K-data11.9.2019_K*(KorFak11.9.2019_K/100)

data11.9.2019_P<-data11.9.2019$P
KorFak11.9.2019_P<-KorFak11.9.2019$lDrift_P
P<- data11.9.2019_P-data11.9.2019_P*(KorFak11.9.2019_P/100)

data11.9.2019_S<-data11.9.2019$S
KorFak11.9.2019_S<-KorFak11.9.2019$lDrift_S
S<- data11.9.2019_S-data11.9.2019_S*(KorFak11.9.2019_S/100)

data11.9.2019_Cl<-data11.9.2019$Cl
KorFak11.9.2019_Cl<-KorFak11.9.2019$lDrift_Cl
Cl<- data11.9.2019_Cl-data11.9.2019_Cl*(KorFak11.9.2019_Cl/100)

data11.9.2019_V<-data11.9.2019$V
KorFak11.9.2019_V<-KorFak11.9.2019$lDrift_V
V<- data11.9.2019_V-data11.9.2019_V*(KorFak11.9.2019_V/100)

data11.9.2019_Cr<-data11.9.2019$Cr
KorFak11.9.2019_Cr<-KorFak11.9.2019$lDrift_Cr
Cr<- data11.9.2019_Cr-data11.9.2019_Cr*(KorFak11.9.2019_Cr/100)

data11.9.2019_Ni<-data11.9.2019$Ni
KorFak11.9.2019_Ni<-KorFak11.9.2019$lDrift_Ni
Ni<- data11.9.2019_Ni-data11.9.2019_Ni*(KorFak11.9.2019_Ni/100)

data11.9.2019_Cu<-data11.9.2019$Cu
KorFak11.9.2019_Cu<-KorFak11.9.2019$lDrift_Cu
Cu<- data11.9.2019_Cu-data11.9.2019_Cu*(KorFak11.9.2019_Cu/100)

data11.9.2019_Zn<-data11.9.2019$Zn
KorFak11.9.2019_Zn<-KorFak11.9.2019$lDrift_Zn
Zn<- data11.9.2019_Zn-data11.9.2019_Zn*(KorFak11.9.2019_Zn/100)

data11.9.2019_As<-data11.9.2019$As
KorFak11.9.2019_As<-KorFak11.9.2019$lDrift_As
As<- data11.9.2019_As-data11.9.2019_As*(KorFak11.9.2019_As/100)

data11.9.2019_Se<-data11.9.2019$Se
KorFak11.9.2019_Se<-KorFak11.9.2019$lDrift_Se
Se<- data11.9.2019_Se-data11.9.2019_Se*(KorFak11.9.2019_Se/100)

data11.9.2019_Rb<-data11.9.2019$Rb
KorFak11.9.2019_Rb<-KorFak11.9.2019$lDrift_Rb
Rb<- data11.9.2019_Rb-data11.9.2019_Rb*(KorFak11.9.2019_Rb/100)

data11.9.2019_Sr<-data11.9.2019$Sr
KorFak11.9.2019_Sr<-KorFak11.9.2019$lDrift_Sr
Sr<- data11.9.2019_Sr-data11.9.2019_Sr*(KorFak11.9.2019_Sr/100)

data11.9.2019_Y<-data11.9.2019$Y
KorFak11.9.2019_Y<-KorFak11.9.2019$lDrift_Y
Y<- data11.9.2019_Y-data11.9.2019_Y*(KorFak11.9.2019_Y/100)

data11.9.2019_Zr<-data11.9.2019$Zr
KorFak11.9.2019_Zr<-KorFak11.9.2019$lDrift_Zr
Zr<- data11.9.2019_Zr-data11.9.2019_Zr*(KorFak11.9.2019_Zr/100)

data11.9.2019_Nb<-data11.9.2019$Nb
KorFak11.9.2019_Nb<-KorFak11.9.2019$lDrift_Nb
Nb<- data11.9.2019_Nb-data11.9.2019_Nb*(KorFak11.9.2019_Nb/100)

data11.9.2019_Mo<-data11.9.2019$Mo
KorFak11.9.2019_Mo<-KorFak11.9.2019$lDrift_Mo
Mo<- data11.9.2019_Mo-data11.9.2019_Mo*(KorFak11.9.2019_Mo/100)

data11.9.2019_Ag<-data11.9.2019$Ag
KorFak11.9.2019_Ag<-KorFak11.9.2019$lDrift_Ag
Ag<- data11.9.2019_Ag-data11.9.2019_Ag*(KorFak11.9.2019_Ag/100)

data11.9.2019_Cd<-data11.9.2019$Cd
KorFak11.9.2019_Cd<-KorFak11.9.2019$lDrift_Cd
Cd<- data11.9.2019_Cd-data11.9.2019_Cd*(KorFak11.9.2019_Cd/100)

data11.9.2019_Sn<-data11.9.2019$Sn
KorFak11.9.2019_Sn<-KorFak11.9.2019$lDrift_Sn
Sn<- data11.9.2019_Sn-data11.9.2019_Sn*(KorFak11.9.2019_Sn/100)

data11.9.2019_Sb<-data11.9.2019$Sb
KorFak11.9.2019_Sb<-KorFak11.9.2019$lDrift_Sb
Sb<- data11.9.2019_Sb-data11.9.2019_Sb*(KorFak11.9.2019_Sb/100)

data11.9.2019_Te<-data11.9.2019$Te
KorFak11.9.2019_Te<-KorFak11.9.2019$lDrift_Te
Te<- data11.9.2019_Te-data11.9.2019_Te*(KorFak11.9.2019_Te/100)

data11.9.2019_Cs<-data11.9.2019$Cs
KorFak11.9.2019_Cs<-KorFak11.9.2019$lDrift_Cs
Cs<- data11.9.2019_Cs-data11.9.2019_Cs*(KorFak11.9.2019_Cs/100)

data11.9.2019_Ba<-data11.9.2019$Ba
KorFak11.9.2019_Ba<-KorFak11.9.2019$lDrift_Ba
Ba<- data11.9.2019_Ba-data11.9.2019_Ba*(KorFak11.9.2019_Ba/100)

data11.9.2019_La<-data11.9.2019$La
KorFak11.9.2019_La<-KorFak11.9.2019$lDrift_La
La<- data11.9.2019_La-data11.9.2019_La*(KorFak11.9.2019_La/100)

data11.9.2019_Pb<-data11.9.2019$Pb
KorFak11.9.2019_Pb<-KorFak11.9.2019$lDrift_Pb
Pb<- data11.9.2019_Pb-data11.9.2019_Pb*(KorFak11.9.2019_Pb/100)

data11.9.2019_Th<-data11.9.2019$Th
KorFak11.9.2019_Th<-KorFak11.9.2019$lDrift_Th
Th<- data11.9.2019_Th-data11.9.2019_Th*(KorFak11.9.2019_Th/100)

data11.9.2019_U<-data11.9.2019$U
KorFak11.9.2019_U<-KorFak11.9.2019$lDrift_U
U<- data11.9.2019_U-data11.9.2019_U*(KorFak11.9.2019_U/100)

# Kombinieren mehrerer Dataframes
Data_OG_lDrift_Kor11.9.2019<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.3 l-Drift Korrektur des 16.9.2019

KorFak16.9.2019<-KorFak %>% filter(Datum_median=="16.9.2019")
data16.9.2019<-data %>% filter(Datum=="16.9.2019")
Probennummer<-data16.9.2019$Probennummer
Datum<-data16.9.2019$Datum

data16.9.2019_Si<-data16.9.2019$Si
KorFak16.9.2019_Si<-KorFak16.9.2019$lDrift_Si
Si<- data16.9.2019_Si-data16.9.2019_Si*(KorFak16.9.2019_Si/100)

data16.9.2019_Ti<-data16.9.2019$Ti
KorFak16.9.2019_Ti<-KorFak16.9.2019$lDrift_Ti
Ti<- data16.9.2019_Ti-data16.9.2019_Ti*(KorFak16.9.2019_Ti/100)

data16.9.2019_Al<-data16.9.2019$Al
KorFak16.9.2019_Al<-KorFak16.9.2019$lDrift_Al
Al<- data16.9.2019_Al-data16.9.2019_Al*(KorFak16.9.2019_Al/100)

data16.9.2019_Fe<-data16.9.2019$Fe
KorFak16.9.2019_Fe<-KorFak16.9.2019$lDrift_Fe
Fe<- data16.9.2019_Fe-data16.9.2019_Fe*(KorFak16.9.2019_Fe/100)

data16.9.2019_Mn<-data16.9.2019$Mn
KorFak16.9.2019_Mn<-KorFak16.9.2019$lDrift_Mn
Mn<- data16.9.2019_Mn-data16.9.2019_Mn*(KorFak16.9.2019_Mn/100)

data16.9.2019_Mg<-data16.9.2019$Mg
KorFak16.9.2019_Mg<-KorFak16.9.2019$lDrift_Mg
Mg<- data16.9.2019_Mg-data16.9.2019_Mg*(KorFak16.9.2019_Mg/100)

data16.9.2019_Ca<-data16.9.2019$Ca
KorFak16.9.2019_Ca<-KorFak16.9.2019$lDrift_Ca
Ca<- data16.9.2019_Ca-data16.9.2019_Ca*(KorFak16.9.2019_Ca/100)

data16.9.2019_K<-data16.9.2019$K
KorFak16.9.2019_K<-KorFak16.9.2019$lDrift_K
K<- data16.9.2019_K-data16.9.2019_K*(KorFak16.9.2019_K/100)

data16.9.2019_P<-data16.9.2019$P
KorFak16.9.2019_P<-KorFak16.9.2019$lDrift_P
P<- data16.9.2019_P-data16.9.2019_P*(KorFak16.9.2019_P/100)

data16.9.2019_S<-data16.9.2019$S
KorFak16.9.2019_S<-KorFak16.9.2019$lDrift_S
S<- data16.9.2019_S-data16.9.2019_S*(KorFak16.9.2019_S/100)

data16.9.2019_Cl<-data16.9.2019$Cl
KorFak16.9.2019_Cl<-KorFak16.9.2019$lDrift_Cl
Cl<- data16.9.2019_Cl-data16.9.2019_Cl*(KorFak16.9.2019_Cl/100)

data16.9.2019_V<-data16.9.2019$V
KorFak16.9.2019_V<-KorFak16.9.2019$lDrift_V
V<- data16.9.2019_V-data16.9.2019_V*(KorFak16.9.2019_V/100)

data16.9.2019_Cr<-data16.9.2019$Cr
KorFak16.9.2019_Cr<-KorFak16.9.2019$lDrift_Cr
Cr<- data16.9.2019_Cr-data16.9.2019_Cr*(KorFak16.9.2019_Cr/100)

data16.9.2019_Ni<-data16.9.2019$Ni
KorFak16.9.2019_Ni<-KorFak16.9.2019$lDrift_Ni
Ni<- data16.9.2019_Ni-data16.9.2019_Ni*(KorFak16.9.2019_Ni/100)

data16.9.2019_Cu<-data16.9.2019$Cu
KorFak16.9.2019_Cu<-KorFak16.9.2019$lDrift_Cu
Cu<- data16.9.2019_Cu-data16.9.2019_Cu*(KorFak16.9.2019_Cu/100)

data16.9.2019_Zn<-data16.9.2019$Zn
KorFak16.9.2019_Zn<-KorFak16.9.2019$lDrift_Zn
Zn<- data16.9.2019_Zn-data16.9.2019_Zn*(KorFak16.9.2019_Zn/100)

data16.9.2019_As<-data16.9.2019$As
KorFak16.9.2019_As<-KorFak16.9.2019$lDrift_As
As<- data16.9.2019_As-data16.9.2019_As*(KorFak16.9.2019_As/100)

data16.9.2019_Se<-data16.9.2019$Se
KorFak16.9.2019_Se<-KorFak16.9.2019$lDrift_Se
Se<- data16.9.2019_Se-data16.9.2019_Se*(KorFak16.9.2019_Se/100)

data16.9.2019_Rb<-data16.9.2019$Rb
KorFak16.9.2019_Rb<-KorFak16.9.2019$lDrift_Rb
Rb<- data16.9.2019_Rb-data16.9.2019_Rb*(KorFak16.9.2019_Rb/100)

data16.9.2019_Sr<-data16.9.2019$Sr
KorFak16.9.2019_Sr<-KorFak16.9.2019$lDrift_Sr
Sr<- data16.9.2019_Sr-data16.9.2019_Sr*(KorFak16.9.2019_Sr/100)

data16.9.2019_Y<-data16.9.2019$Y
KorFak16.9.2019_Y<-KorFak16.9.2019$lDrift_Y
Y<- data16.9.2019_Y-data16.9.2019_Y*(KorFak16.9.2019_Y/100)

data16.9.2019_Zr<-data16.9.2019$Zr
KorFak16.9.2019_Zr<-KorFak16.9.2019$lDrift_Zr
Zr<- data16.9.2019_Zr-data16.9.2019_Zr*(KorFak16.9.2019_Zr/100)

data16.9.2019_Nb<-data16.9.2019$Nb
KorFak16.9.2019_Nb<-KorFak16.9.2019$lDrift_Nb
Nb<- data16.9.2019_Nb-data16.9.2019_Nb*(KorFak16.9.2019_Nb/100)

data16.9.2019_Mo<-data16.9.2019$Mo
KorFak16.9.2019_Mo<-KorFak16.9.2019$lDrift_Mo
Mo<- data16.9.2019_Mo-data16.9.2019_Mo*(KorFak16.9.2019_Mo/100)

data16.9.2019_Ag<-data16.9.2019$Ag
KorFak16.9.2019_Ag<-KorFak16.9.2019$lDrift_Ag
Ag<- data16.9.2019_Ag-data16.9.2019_Ag*(KorFak16.9.2019_Ag/100)

data16.9.2019_Cd<-data16.9.2019$Cd
KorFak16.9.2019_Cd<-KorFak16.9.2019$lDrift_Cd
Cd<- data16.9.2019_Cd-data16.9.2019_Cd*(KorFak16.9.2019_Cd/100)

data16.9.2019_Sn<-data16.9.2019$Sn
KorFak16.9.2019_Sn<-KorFak16.9.2019$lDrift_Sn
Sn<- data16.9.2019_Sn-data16.9.2019_Sn*(KorFak16.9.2019_Sn/100)

data16.9.2019_Sb<-data16.9.2019$Sb
KorFak16.9.2019_Sb<-KorFak16.9.2019$lDrift_Sb
Sb<- data16.9.2019_Sb-data16.9.2019_Sb*(KorFak16.9.2019_Sb/100)

data16.9.2019_Te<-data16.9.2019$Te
KorFak16.9.2019_Te<-KorFak16.9.2019$lDrift_Te
Te<- data16.9.2019_Te-data16.9.2019_Te*(KorFak16.9.2019_Te/100)

data16.9.2019_Cs<-data16.9.2019$Cs
KorFak16.9.2019_Cs<-KorFak16.9.2019$lDrift_Cs
Cs<- data16.9.2019_Cs-data16.9.2019_Cs*(KorFak16.9.2019_Cs/100)

data16.9.2019_Ba<-data16.9.2019$Ba
KorFak16.9.2019_Ba<-KorFak16.9.2019$lDrift_Ba
Ba<- data16.9.2019_Ba-data16.9.2019_Ba*(KorFak16.9.2019_Ba/100)

data16.9.2019_La<-data16.9.2019$La
KorFak16.9.2019_La<-KorFak16.9.2019$lDrift_La
La<- data16.9.2019_La-data16.9.2019_La*(KorFak16.9.2019_La/100)

data16.9.2019_Pb<-data16.9.2019$Pb
KorFak16.9.2019_Pb<-KorFak16.9.2019$lDrift_Pb
Pb<- data16.9.2019_Pb-data16.9.2019_Pb*(KorFak16.9.2019_Pb/100)

data16.9.2019_Th<-data16.9.2019$Th
KorFak16.9.2019_Th<-KorFak16.9.2019$lDrift_Th
Th<- data16.9.2019_Th-data16.9.2019_Th*(KorFak16.9.2019_Th/100)

data16.9.2019_U<-data16.9.2019$U
KorFak16.9.2019_U<-KorFak16.9.2019$lDrift_U
U<- data16.9.2019_U-data16.9.2019_U*(KorFak16.9.2019_U/100)

Data_OG_lDrift_Kor16.9.2019<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.4 l-Drift Korrektur des 17.9.2019

KorFak17.9.2019<-KorFak %>% filter(Datum_median=="17.9.2019")
data17.9.2019<-data %>% filter(Datum=="17.9.2019")
Probennummer<-data17.9.2019$Probennummer
Datum<-data17.9.2019$Datum

data17.9.2019_Si<-data17.9.2019$Si
KorFak17.9.2019_Si<-KorFak17.9.2019$lDrift_Si
Si<- data17.9.2019_Si-data17.9.2019_Si*(KorFak17.9.2019_Si/100)

data17.9.2019_Ti<-data17.9.2019$Ti
KorFak17.9.2019_Ti<-KorFak17.9.2019$lDrift_Ti
Ti<- data17.9.2019_Ti-data17.9.2019_Ti*(KorFak17.9.2019_Ti/100)

data17.9.2019_Al<-data17.9.2019$Al
KorFak17.9.2019_Al<-KorFak17.9.2019$lDrift_Al
Al<- data17.9.2019_Al-data17.9.2019_Al*(KorFak17.9.2019_Al/100)

data17.9.2019_Fe<-data17.9.2019$Fe
KorFak17.9.2019_Fe<-KorFak17.9.2019$lDrift_Fe
Fe<- data17.9.2019_Fe-data17.9.2019_Fe*(KorFak17.9.2019_Fe/100)

data17.9.2019_Mn<-data17.9.2019$Mn
KorFak17.9.2019_Mn<-KorFak17.9.2019$lDrift_Mn
Mn<- data17.9.2019_Mn-data17.9.2019_Mn*(KorFak17.9.2019_Mn/100)

data17.9.2019_Mg<-data17.9.2019$Mg
KorFak17.9.2019_Mg<-KorFak17.9.2019$lDrift_Mg
Mg<- data17.9.2019_Mg-data17.9.2019_Mg*(KorFak17.9.2019_Mg/100)

data17.9.2019_Ca<-data17.9.2019$Ca
KorFak17.9.2019_Ca<-KorFak17.9.2019$lDrift_Ca
Ca<- data17.9.2019_Ca-data17.9.2019_Ca*(KorFak17.9.2019_Ca/100)

data17.9.2019_K<-data17.9.2019$K
KorFak17.9.2019_K<-KorFak17.9.2019$lDrift_K
K<- data17.9.2019_K-data17.9.2019_K*(KorFak17.9.2019_K/100)

data17.9.2019_P<-data17.9.2019$P
KorFak17.9.2019_P<-KorFak17.9.2019$lDrift_P
P<- data17.9.2019_P-data17.9.2019_P*(KorFak17.9.2019_P/100)

data17.9.2019_S<-data17.9.2019$S
KorFak17.9.2019_S<-KorFak17.9.2019$lDrift_S
S<- data17.9.2019_S-data17.9.2019_S*(KorFak17.9.2019_S/100)

data17.9.2019_Cl<-data17.9.2019$Cl
KorFak17.9.2019_Cl<-KorFak17.9.2019$lDrift_Cl
Cl<- data17.9.2019_Cl-data17.9.2019_Cl*(KorFak17.9.2019_Cl/100)

data17.9.2019_V<-data17.9.2019$V
KorFak17.9.2019_V<-KorFak17.9.2019$lDrift_V
V<- data17.9.2019_V-data17.9.2019_V*(KorFak17.9.2019_V/100)

data17.9.2019_Cr<-data17.9.2019$Cr
KorFak17.9.2019_Cr<-KorFak17.9.2019$lDrift_Cr
Cr<- data17.9.2019_Cr-data17.9.2019_Cr*(KorFak17.9.2019_Cr/100)

data17.9.2019_Ni<-data17.9.2019$Ni
KorFak17.9.2019_Ni<-KorFak17.9.2019$lDrift_Ni
Ni<- data17.9.2019_Ni-data17.9.2019_Ni*(KorFak17.9.2019_Ni/100)

data17.9.2019_Cu<-data17.9.2019$Cu
KorFak17.9.2019_Cu<-KorFak17.9.2019$lDrift_Cu
Cu<- data17.9.2019_Cu-data17.9.2019_Cu*(KorFak17.9.2019_Cu/100)

data17.9.2019_Zn<-data17.9.2019$Zn
KorFak17.9.2019_Zn<-KorFak17.9.2019$lDrift_Zn
Zn<- data17.9.2019_Zn-data17.9.2019_Zn*(KorFak17.9.2019_Zn/100)

data17.9.2019_As<-data17.9.2019$As
KorFak17.9.2019_As<-KorFak17.9.2019$lDrift_As
As<- data17.9.2019_As-data17.9.2019_As*(KorFak17.9.2019_As/100)

data17.9.2019_Se<-data17.9.2019$Se
KorFak17.9.2019_Se<-KorFak17.9.2019$lDrift_Se
Se<- data17.9.2019_Se-data17.9.2019_Se*(KorFak17.9.2019_Se/100)

data17.9.2019_Rb<-data17.9.2019$Rb
KorFak17.9.2019_Rb<-KorFak17.9.2019$lDrift_Rb
Rb<- data17.9.2019_Rb-data17.9.2019_Rb*(KorFak17.9.2019_Rb/100)

data17.9.2019_Sr<-data17.9.2019$Sr
KorFak17.9.2019_Sr<-KorFak17.9.2019$lDrift_Sr
Sr<- data17.9.2019_Sr-data17.9.2019_Sr*(KorFak17.9.2019_Sr/100)

data17.9.2019_Y<-data17.9.2019$Y
KorFak17.9.2019_Y<-KorFak17.9.2019$lDrift_Y
Y<- data17.9.2019_Y-data17.9.2019_Y*(KorFak17.9.2019_Y/100)

data17.9.2019_Zr<-data17.9.2019$Zr
KorFak17.9.2019_Zr<-KorFak17.9.2019$lDrift_Zr
Zr<- data17.9.2019_Zr-data17.9.2019_Zr*(KorFak17.9.2019_Zr/100)

data17.9.2019_Nb<-data17.9.2019$Nb
KorFak17.9.2019_Nb<-KorFak17.9.2019$lDrift_Nb
Nb<- data17.9.2019_Nb-data17.9.2019_Nb*(KorFak17.9.2019_Nb/100)

data17.9.2019_Mo<-data17.9.2019$Mo
KorFak17.9.2019_Mo<-KorFak17.9.2019$lDrift_Mo
Mo<- data17.9.2019_Mo-data17.9.2019_Mo*(KorFak17.9.2019_Mo/100)

data17.9.2019_Ag<-data17.9.2019$Ag
KorFak17.9.2019_Ag<-KorFak17.9.2019$lDrift_Ag
Ag<- data17.9.2019_Ag-data17.9.2019_Ag*(KorFak17.9.2019_Ag/100)

data17.9.2019_Cd<-data17.9.2019$Cd
KorFak17.9.2019_Cd<-KorFak17.9.2019$lDrift_Cd
Cd<- data17.9.2019_Cd-data17.9.2019_Cd*(KorFak17.9.2019_Cd/100)

data17.9.2019_Sn<-data17.9.2019$Sn
KorFak17.9.2019_Sn<-KorFak17.9.2019$lDrift_Sn
Sn<- data17.9.2019_Sn-data17.9.2019_Sn*(KorFak17.9.2019_Sn/100)

data17.9.2019_Sb<-data17.9.2019$Sb
KorFak17.9.2019_Sb<-KorFak17.9.2019$lDrift_Sb
Sb<- data17.9.2019_Sb-data17.9.2019_Sb*(KorFak17.9.2019_Sb/100)

data17.9.2019_Te<-data17.9.2019$Te
KorFak17.9.2019_Te<-KorFak17.9.2019$lDrift_Te
Te<- data17.9.2019_Te-data17.9.2019_Te*(KorFak17.9.2019_Te/100)

data17.9.2019_Cs<-data17.9.2019$Cs
KorFak17.9.2019_Cs<-KorFak17.9.2019$lDrift_Cs
Cs<- data17.9.2019_Cs-data17.9.2019_Cs*(KorFak17.9.2019_Cs/100)

data17.9.2019_Ba<-data17.9.2019$Ba
KorFak17.9.2019_Ba<-KorFak17.9.2019$lDrift_Ba
Ba<- data17.9.2019_Ba-data17.9.2019_Ba*(KorFak17.9.2019_Ba/100)

data17.9.2019_La<-data17.9.2019$La
KorFak17.9.2019_La<-KorFak17.9.2019$lDrift_La
La<- data17.9.2019_La-data17.9.2019_La*(KorFak17.9.2019_La/100)

data17.9.2019_Pb<-data17.9.2019$Pb
KorFak17.9.2019_Pb<-KorFak17.9.2019$lDrift_Pb
Pb<- data17.9.2019_Pb-data17.9.2019_Pb*(KorFak17.9.2019_Pb/100)

data17.9.2019_Th<-data17.9.2019$Th
KorFak17.9.2019_Th<-KorFak17.9.2019$lDrift_Th
Th<- data17.9.2019_Th-data17.9.2019_Th*(KorFak17.9.2019_Th/100)

data17.9.2019_U<-data17.9.2019$U
KorFak17.9.2019_U<-KorFak17.9.2019$lDrift_U
U<- data17.9.2019_U-data17.9.2019_U*(KorFak17.9.2019_U/100)

Data_OG_lDrift_Kor17.9.2019<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.5 l-Drift Korrektur des 4.2.2020

KorFak4.2.2020<-KorFak %>% filter(Datum_median=="4.2.2020")
data4.2.2020<-data %>% filter(Datum=="4.2.2020")
Probennummer<-data4.2.2020$Probennummer
Datum<-data4.2.2020$Datum

data4.2.2020_Si<-data4.2.2020$Si
KorFak4.2.2020_Si<-KorFak4.2.2020$lDrift_Si
Si<- data4.2.2020_Si-data4.2.2020_Si*(KorFak4.2.2020_Si/100)

data4.2.2020_Ti<-data4.2.2020$Ti
KorFak4.2.2020_Ti<-KorFak4.2.2020$lDrift_Ti
Ti<- data4.2.2020_Ti-data4.2.2020_Ti*(KorFak4.2.2020_Ti/100)

data4.2.2020_Al<-data4.2.2020$Al
KorFak4.2.2020_Al<-KorFak4.2.2020$lDrift_Al
Al<- data4.2.2020_Al-data4.2.2020_Al*(KorFak4.2.2020_Al/100)

data4.2.2020_Fe<-data4.2.2020$Fe
KorFak4.2.2020_Fe<-KorFak4.2.2020$lDrift_Fe
Fe<- data4.2.2020_Fe-data4.2.2020_Fe*(KorFak4.2.2020_Fe/100)

data4.2.2020_Mn<-data4.2.2020$Mn
KorFak4.2.2020_Mn<-KorFak4.2.2020$lDrift_Mn
Mn<- data4.2.2020_Mn-data4.2.2020_Mn*(KorFak4.2.2020_Mn/100)

data4.2.2020_Mg<-data4.2.2020$Mg
KorFak4.2.2020_Mg<-KorFak4.2.2020$lDrift_Mg
Mg<- data4.2.2020_Mg-data4.2.2020_Mg*(KorFak4.2.2020_Mg/100)

data4.2.2020_Ca<-data4.2.2020$Ca
KorFak4.2.2020_Ca<-KorFak4.2.2020$lDrift_Ca
Ca<- data4.2.2020_Ca-data4.2.2020_Ca*(KorFak4.2.2020_Ca/100)

data4.2.2020_K<-data4.2.2020$K
KorFak4.2.2020_K<-KorFak4.2.2020$lDrift_K
K<- data4.2.2020_K-data4.2.2020_K*(KorFak4.2.2020_K/100)

data4.2.2020_P<-data4.2.2020$P
KorFak4.2.2020_P<-KorFak4.2.2020$lDrift_P
P<- data4.2.2020_P-data4.2.2020_P*(KorFak4.2.2020_P/100)

data4.2.2020_S<-data4.2.2020$S
KorFak4.2.2020_S<-KorFak4.2.2020$lDrift_S
S<- data4.2.2020_S-data4.2.2020_S*(KorFak4.2.2020_S/100)

data4.2.2020_Cl<-data4.2.2020$Cl
KorFak4.2.2020_Cl<-KorFak4.2.2020$lDrift_Cl
Cl<- data4.2.2020_Cl-data4.2.2020_Cl*(KorFak4.2.2020_Cl/100)

data4.2.2020_V<-data4.2.2020$V
KorFak4.2.2020_V<-KorFak4.2.2020$lDrift_V
V<- data4.2.2020_V-data4.2.2020_V*(KorFak4.2.2020_V/100)

data4.2.2020_Cr<-data4.2.2020$Cr
KorFak4.2.2020_Cr<-KorFak4.2.2020$lDrift_Cr
Cr<- data4.2.2020_Cr-data4.2.2020_Cr*(KorFak4.2.2020_Cr/100)

data4.2.2020_Ni<-data4.2.2020$Ni
KorFak4.2.2020_Ni<-KorFak4.2.2020$lDrift_Ni
Ni<- data4.2.2020_Ni-data4.2.2020_Ni*(KorFak4.2.2020_Ni/100)

data4.2.2020_Cu<-data4.2.2020$Cu
KorFak4.2.2020_Cu<-KorFak4.2.2020$lDrift_Cu
Cu<- data4.2.2020_Cu-data4.2.2020_Cu*(KorFak4.2.2020_Cu/100)

data4.2.2020_Zn<-data4.2.2020$Zn
KorFak4.2.2020_Zn<-KorFak4.2.2020$lDrift_Zn
Zn<- data4.2.2020_Zn-data4.2.2020_Zn*(KorFak4.2.2020_Zn/100)

data4.2.2020_As<-data4.2.2020$As
KorFak4.2.2020_As<-KorFak4.2.2020$lDrift_As
As<- data4.2.2020_As-data4.2.2020_As*(KorFak4.2.2020_As/100)

data4.2.2020_Se<-data4.2.2020$Se
KorFak4.2.2020_Se<-KorFak4.2.2020$lDrift_Se
Se<- data4.2.2020_Se-data4.2.2020_Se*(KorFak4.2.2020_Se/100)

data4.2.2020_Rb<-data4.2.2020$Rb
KorFak4.2.2020_Rb<-KorFak4.2.2020$lDrift_Rb
Rb<- data4.2.2020_Rb-data4.2.2020_Rb*(KorFak4.2.2020_Rb/100)

data4.2.2020_Sr<-data4.2.2020$Sr
KorFak4.2.2020_Sr<-KorFak4.2.2020$lDrift_Sr
Sr<- data4.2.2020_Sr-data4.2.2020_Sr*(KorFak4.2.2020_Sr/100)

data4.2.2020_Y<-data4.2.2020$Y
KorFak4.2.2020_Y<-KorFak4.2.2020$lDrift_Y
Y<- data4.2.2020_Y-data4.2.2020_Y*(KorFak4.2.2020_Y/100)

data4.2.2020_Zr<-data4.2.2020$Zr
KorFak4.2.2020_Zr<-KorFak4.2.2020$lDrift_Zr
Zr<- data4.2.2020_Zr-data4.2.2020_Zr*(KorFak4.2.2020_Zr/100)

data4.2.2020_Nb<-data4.2.2020$Nb
KorFak4.2.2020_Nb<-KorFak4.2.2020$lDrift_Nb
Nb<- data4.2.2020_Nb-data4.2.2020_Nb*(KorFak4.2.2020_Nb/100)

data4.2.2020_Mo<-data4.2.2020$Mo
KorFak4.2.2020_Mo<-KorFak4.2.2020$lDrift_Mo
Mo<- data4.2.2020_Mo-data4.2.2020_Mo*(KorFak4.2.2020_Mo/100)

data4.2.2020_Ag<-data4.2.2020$Ag
KorFak4.2.2020_Ag<-KorFak4.2.2020$lDrift_Ag
Ag<- data4.2.2020_Ag-data4.2.2020_Ag*(KorFak4.2.2020_Ag/100)

data4.2.2020_Cd<-data4.2.2020$Cd
KorFak4.2.2020_Cd<-KorFak4.2.2020$lDrift_Cd
Cd<- data4.2.2020_Cd-data4.2.2020_Cd*(KorFak4.2.2020_Cd/100)

data4.2.2020_Sn<-data4.2.2020$Sn
KorFak4.2.2020_Sn<-KorFak4.2.2020$lDrift_Sn
Sn<- data4.2.2020_Sn-data4.2.2020_Sn*(KorFak4.2.2020_Sn/100)

data4.2.2020_Sb<-data4.2.2020$Sb
KorFak4.2.2020_Sb<-KorFak4.2.2020$lDrift_Sb
Sb<- data4.2.2020_Sb-data4.2.2020_Sb*(KorFak4.2.2020_Sb/100)

data4.2.2020_Te<-data4.2.2020$Te
KorFak4.2.2020_Te<-KorFak4.2.2020$lDrift_Te
Te<- data4.2.2020_Te-data4.2.2020_Te*(KorFak4.2.2020_Te/100)

data4.2.2020_Cs<-data4.2.2020$Cs
KorFak4.2.2020_Cs<-KorFak4.2.2020$lDrift_Cs
Cs<- data4.2.2020_Cs-data4.2.2020_Cs*(KorFak4.2.2020_Cs/100)

data4.2.2020_Ba<-data4.2.2020$Ba
KorFak4.2.2020_Ba<-KorFak4.2.2020$lDrift_Ba
Ba<- data4.2.2020_Ba-data4.2.2020_Ba*(KorFak4.2.2020_Ba/100)

data4.2.2020_La<-data4.2.2020$La
KorFak4.2.2020_La<-KorFak4.2.2020$lDrift_La
La<- data4.2.2020_La-data4.2.2020_La*(KorFak4.2.2020_La/100)

data4.2.2020_Pb<-data4.2.2020$Pb
KorFak4.2.2020_Pb<-KorFak4.2.2020$lDrift_Pb
Pb<- data4.2.2020_Pb-data4.2.2020_Pb*(KorFak4.2.2020_Pb/100)

data4.2.2020_Th<-data4.2.2020$Th
KorFak4.2.2020_Th<-KorFak4.2.2020$lDrift_Th
Th<- data4.2.2020_Th-data4.2.2020_Th*(KorFak4.2.2020_Th/100)

data4.2.2020_U<-data4.2.2020$U
KorFak4.2.2020_U<-KorFak4.2.2020$lDrift_U
U<- data4.2.2020_U-data4.2.2020_U*(KorFak4.2.2020_U/100)

Data_OG_lDrift_Kor4.2.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.6 l-Drift Korrektur des 6.2.2020

KorFak6.2.2020<-KorFak %>% filter(Datum_median=="6.2.2020")
data6.2.2020<-data %>% filter(Datum=="6.2.2020")
Probennummer<-data6.2.2020$Probennummer
Datum<-data6.2.2020$Datum

data6.2.2020_Si<-data6.2.2020$Si
KorFak6.2.2020_Si<-KorFak6.2.2020$lDrift_Si
Si<- data6.2.2020_Si-data6.2.2020_Si*(KorFak6.2.2020_Si/100)

data6.2.2020_Ti<-data6.2.2020$Ti
KorFak6.2.2020_Ti<-KorFak6.2.2020$lDrift_Ti
Ti<- data6.2.2020_Ti-data6.2.2020_Ti*(KorFak6.2.2020_Ti/100)

data6.2.2020_Al<-data6.2.2020$Al
KorFak6.2.2020_Al<-KorFak6.2.2020$lDrift_Al
Al<- data6.2.2020_Al-data6.2.2020_Al*(KorFak6.2.2020_Al/100)

data6.2.2020_Fe<-data6.2.2020$Fe
KorFak6.2.2020_Fe<-KorFak6.2.2020$lDrift_Fe
Fe<- data6.2.2020_Fe-data6.2.2020_Fe*(KorFak6.2.2020_Fe/100)

data6.2.2020_Mn<-data6.2.2020$Mn
KorFak6.2.2020_Mn<-KorFak6.2.2020$lDrift_Mn
Mn<- data6.2.2020_Mn-data6.2.2020_Mn*(KorFak6.2.2020_Mn/100)

data6.2.2020_Mg<-data6.2.2020$Mg
KorFak6.2.2020_Mg<-KorFak6.2.2020$lDrift_Mg
Mg<- data6.2.2020_Mg-data6.2.2020_Mg*(KorFak6.2.2020_Mg/100)

data6.2.2020_Ca<-data6.2.2020$Ca
KorFak6.2.2020_Ca<-KorFak6.2.2020$lDrift_Ca
Ca<- data6.2.2020_Ca-data6.2.2020_Ca*(KorFak6.2.2020_Ca/100)

data6.2.2020_K<-data6.2.2020$K
KorFak6.2.2020_K<-KorFak6.2.2020$lDrift_K
K<- data6.2.2020_K-data6.2.2020_K*(KorFak6.2.2020_K/100)

data6.2.2020_P<-data6.2.2020$P
KorFak6.2.2020_P<-KorFak6.2.2020$lDrift_P
P<- data6.2.2020_P-data6.2.2020_P*(KorFak6.2.2020_P/100)

data6.2.2020_S<-data6.2.2020$S
KorFak6.2.2020_S<-KorFak6.2.2020$lDrift_S
S<- data6.2.2020_S-data6.2.2020_S*(KorFak6.2.2020_S/100)

data6.2.2020_Cl<-data6.2.2020$Cl
KorFak6.2.2020_Cl<-KorFak6.2.2020$lDrift_Cl
Cl<- data6.2.2020_Cl-data6.2.2020_Cl*(KorFak6.2.2020_Cl/100)

data6.2.2020_V<-data6.2.2020$V
KorFak6.2.2020_V<-KorFak6.2.2020$lDrift_V
V<- data6.2.2020_V-data6.2.2020_V*(KorFak6.2.2020_V/100)

data6.2.2020_Cr<-data6.2.2020$Cr
KorFak6.2.2020_Cr<-KorFak6.2.2020$lDrift_Cr
Cr<- data6.2.2020_Cr-data6.2.2020_Cr*(KorFak6.2.2020_Cr/100)

data6.2.2020_Ni<-data6.2.2020$Ni
KorFak6.2.2020_Ni<-KorFak6.2.2020$lDrift_Ni
Ni<- data6.2.2020_Ni-data6.2.2020_Ni*(KorFak6.2.2020_Ni/100)

data6.2.2020_Cu<-data6.2.2020$Cu
KorFak6.2.2020_Cu<-KorFak6.2.2020$lDrift_Cu
Cu<- data6.2.2020_Cu-data6.2.2020_Cu*(KorFak6.2.2020_Cu/100)

data6.2.2020_Zn<-data6.2.2020$Zn
KorFak6.2.2020_Zn<-KorFak6.2.2020$lDrift_Zn
Zn<- data6.2.2020_Zn-data6.2.2020_Zn*(KorFak6.2.2020_Zn/100)

data6.2.2020_As<-data6.2.2020$As
KorFak6.2.2020_As<-KorFak6.2.2020$lDrift_As
As<- data6.2.2020_As-data6.2.2020_As*(KorFak6.2.2020_As/100)

data6.2.2020_Se<-data6.2.2020$Se
KorFak6.2.2020_Se<-KorFak6.2.2020$lDrift_Se
Se<- data6.2.2020_Se-data6.2.2020_Se*(KorFak6.2.2020_Se/100)

data6.2.2020_Rb<-data6.2.2020$Rb
KorFak6.2.2020_Rb<-KorFak6.2.2020$lDrift_Rb
Rb<- data6.2.2020_Rb-data6.2.2020_Rb*(KorFak6.2.2020_Rb/100)

data6.2.2020_Sr<-data6.2.2020$Sr
KorFak6.2.2020_Sr<-KorFak6.2.2020$lDrift_Sr
Sr<- data6.2.2020_Sr-data6.2.2020_Sr*(KorFak6.2.2020_Sr/100)

data6.2.2020_Y<-data6.2.2020$Y
KorFak6.2.2020_Y<-KorFak6.2.2020$lDrift_Y
Y<- data6.2.2020_Y-data6.2.2020_Y*(KorFak6.2.2020_Y/100)

data6.2.2020_Zr<-data6.2.2020$Zr
KorFak6.2.2020_Zr<-KorFak6.2.2020$lDrift_Zr
Zr<- data6.2.2020_Zr-data6.2.2020_Zr*(KorFak6.2.2020_Zr/100)

data6.2.2020_Nb<-data6.2.2020$Nb
KorFak6.2.2020_Nb<-KorFak6.2.2020$lDrift_Nb
Nb<- data6.2.2020_Nb-data6.2.2020_Nb*(KorFak6.2.2020_Nb/100)

data6.2.2020_Mo<-data6.2.2020$Mo
KorFak6.2.2020_Mo<-KorFak6.2.2020$lDrift_Mo
Mo<- data6.2.2020_Mo-data6.2.2020_Mo*(KorFak6.2.2020_Mo/100)

data6.2.2020_Ag<-data6.2.2020$Ag
KorFak6.2.2020_Ag<-KorFak6.2.2020$lDrift_Ag
Ag<- data6.2.2020_Ag-data6.2.2020_Ag*(KorFak6.2.2020_Ag/100)

data6.2.2020_Cd<-data6.2.2020$Cd
KorFak6.2.2020_Cd<-KorFak6.2.2020$lDrift_Cd
Cd<- data6.2.2020_Cd-data6.2.2020_Cd*(KorFak6.2.2020_Cd/100)

data6.2.2020_Sn<-data6.2.2020$Sn
KorFak6.2.2020_Sn<-KorFak6.2.2020$lDrift_Sn
Sn<- data6.2.2020_Sn-data6.2.2020_Sn*(KorFak6.2.2020_Sn/100)

data6.2.2020_Sb<-data6.2.2020$Sb
KorFak6.2.2020_Sb<-KorFak6.2.2020$lDrift_Sb
Sb<- data6.2.2020_Sb-data6.2.2020_Sb*(KorFak6.2.2020_Sb/100)

data6.2.2020_Te<-data6.2.2020$Te
KorFak6.2.2020_Te<-KorFak6.2.2020$lDrift_Te
Te<- data6.2.2020_Te-data6.2.2020_Te*(KorFak6.2.2020_Te/100)

data6.2.2020_Cs<-data6.2.2020$Cs
KorFak6.2.2020_Cs<-KorFak6.2.2020$lDrift_Cs
Cs<- data6.2.2020_Cs-data6.2.2020_Cs*(KorFak6.2.2020_Cs/100)

data6.2.2020_Ba<-data6.2.2020$Ba
KorFak6.2.2020_Ba<-KorFak6.2.2020$lDrift_Ba
Ba<- data6.2.2020_Ba-data6.2.2020_Ba*(KorFak6.2.2020_Ba/100)

data6.2.2020_La<-data6.2.2020$La
KorFak6.2.2020_La<-KorFak6.2.2020$lDrift_La
La<- data6.2.2020_La-data6.2.2020_La*(KorFak6.2.2020_La/100)

data6.2.2020_Pb<-data6.2.2020$Pb
KorFak6.2.2020_Pb<-KorFak6.2.2020$lDrift_Pb
Pb<- data6.2.2020_Pb-data6.2.2020_Pb*(KorFak6.2.2020_Pb/100)

data6.2.2020_Th<-data6.2.2020$Th
KorFak6.2.2020_Th<-KorFak6.2.2020$lDrift_Th
Th<- data6.2.2020_Th-data6.2.2020_Th*(KorFak6.2.2020_Th/100)

data6.2.2020_U<-data6.2.2020$U
KorFak6.2.2020_U<-KorFak6.2.2020$lDrift_U
U<- data6.2.2020_U-data6.2.2020_U*(KorFak6.2.2020_U/100)

Data_OG_lDrift_Kor6.2.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.7 l-Drift Korrektur des 4.3.2020

KorFak4.3.2020<-KorFak %>% filter(Datum_median=="4.3.2020")
data4.3.2020<-data %>% filter(Datum=="4.3.2020")
Probennummer<-data4.3.2020$Probennummer
Datum<-data4.3.2020$Datum

data4.3.2020_Si<-data4.3.2020$Si
KorFak4.3.2020_Si<-KorFak4.3.2020$lDrift_Si
Si<- data4.3.2020_Si-data4.3.2020_Si*(KorFak4.3.2020_Si/100)

data4.3.2020_Ti<-data4.3.2020$Ti
KorFak4.3.2020_Ti<-KorFak4.3.2020$lDrift_Ti
Ti<- data4.3.2020_Ti-data4.3.2020_Ti*(KorFak4.3.2020_Ti/100)

data4.3.2020_Al<-data4.3.2020$Al
KorFak4.3.2020_Al<-KorFak4.3.2020$lDrift_Al
Al<- data4.3.2020_Al-data4.3.2020_Al*(KorFak4.3.2020_Al/100)

data4.3.2020_Fe<-data4.3.2020$Fe
KorFak4.3.2020_Fe<-KorFak4.3.2020$lDrift_Fe
Fe<- data4.3.2020_Fe-data4.3.2020_Fe*(KorFak4.3.2020_Fe/100)

data4.3.2020_Mn<-data4.3.2020$Mn
KorFak4.3.2020_Mn<-KorFak4.3.2020$lDrift_Mn
Mn<- data4.3.2020_Mn-data4.3.2020_Mn*(KorFak4.3.2020_Mn/100)

data4.3.2020_Mg<-data4.3.2020$Mg
KorFak4.3.2020_Mg<-KorFak4.3.2020$lDrift_Mg
Mg<- data4.3.2020_Mg-data4.3.2020_Mg*(KorFak4.3.2020_Mg/100)

data4.3.2020_Ca<-data4.3.2020$Ca
KorFak4.3.2020_Ca<-KorFak4.3.2020$lDrift_Ca
Ca<- data4.3.2020_Ca-data4.3.2020_Ca*(KorFak4.3.2020_Ca/100)

data4.3.2020_K<-data4.3.2020$K
KorFak4.3.2020_K<-KorFak4.3.2020$lDrift_K
K<- data4.3.2020_K-data4.3.2020_K*(KorFak4.3.2020_K/100)

data4.3.2020_P<-data4.3.2020$P
KorFak4.3.2020_P<-KorFak4.3.2020$lDrift_P
P<- data4.3.2020_P-data4.3.2020_P*(KorFak4.3.2020_P/100)

data4.3.2020_S<-data4.3.2020$S
KorFak4.3.2020_S<-KorFak4.3.2020$lDrift_S
S<- data4.3.2020_S-data4.3.2020_S*(KorFak4.3.2020_S/100)

data4.3.2020_Cl<-data4.3.2020$Cl
KorFak4.3.2020_Cl<-KorFak4.3.2020$lDrift_Cl
Cl<- data4.3.2020_Cl-data4.3.2020_Cl*(KorFak4.3.2020_Cl/100)

data4.3.2020_V<-data4.3.2020$V
KorFak4.3.2020_V<-KorFak4.3.2020$lDrift_V
V<- data4.3.2020_V-data4.3.2020_V*(KorFak4.3.2020_V/100)

data4.3.2020_Cr<-data4.3.2020$Cr
KorFak4.3.2020_Cr<-KorFak4.3.2020$lDrift_Cr
Cr<- data4.3.2020_Cr-data4.3.2020_Cr*(KorFak4.3.2020_Cr/100)

data4.3.2020_Ni<-data4.3.2020$Ni
KorFak4.3.2020_Ni<-KorFak4.3.2020$lDrift_Ni
Ni<- data4.3.2020_Ni-data4.3.2020_Ni*(KorFak4.3.2020_Ni/100)

data4.3.2020_Cu<-data4.3.2020$Cu
KorFak4.3.2020_Cu<-KorFak4.3.2020$lDrift_Cu
Cu<- data4.3.2020_Cu-data4.3.2020_Cu*(KorFak4.3.2020_Cu/100)

data4.3.2020_Zn<-data4.3.2020$Zn
KorFak4.3.2020_Zn<-KorFak4.3.2020$lDrift_Zn
Zn<- data4.3.2020_Zn-data4.3.2020_Zn*(KorFak4.3.2020_Zn/100)

data4.3.2020_As<-data4.3.2020$As
KorFak4.3.2020_As<-KorFak4.3.2020$lDrift_As
As<- data4.3.2020_As-data4.3.2020_As*(KorFak4.3.2020_As/100)

data4.3.2020_Se<-data4.3.2020$Se
KorFak4.3.2020_Se<-KorFak4.3.2020$lDrift_Se
Se<- data4.3.2020_Se-data4.3.2020_Se*(KorFak4.3.2020_Se/100)

data4.3.2020_Rb<-data4.3.2020$Rb
KorFak4.3.2020_Rb<-KorFak4.3.2020$lDrift_Rb
Rb<- data4.3.2020_Rb-data4.3.2020_Rb*(KorFak4.3.2020_Rb/100)

data4.3.2020_Sr<-data4.3.2020$Sr
KorFak4.3.2020_Sr<-KorFak4.3.2020$lDrift_Sr
Sr<- data4.3.2020_Sr-data4.3.2020_Sr*(KorFak4.3.2020_Sr/100)

data4.3.2020_Y<-data4.3.2020$Y
KorFak4.3.2020_Y<-KorFak4.3.2020$lDrift_Y
Y<- data4.3.2020_Y-data4.3.2020_Y*(KorFak4.3.2020_Y/100)

data4.3.2020_Zr<-data4.3.2020$Zr
KorFak4.3.2020_Zr<-KorFak4.3.2020$lDrift_Zr
Zr<- data4.3.2020_Zr-data4.3.2020_Zr*(KorFak4.3.2020_Zr/100)

data4.3.2020_Nb<-data4.3.2020$Nb
KorFak4.3.2020_Nb<-KorFak4.3.2020$lDrift_Nb
Nb<- data4.3.2020_Nb-data4.3.2020_Nb*(KorFak4.3.2020_Nb/100)

data4.3.2020_Mo<-data4.3.2020$Mo
KorFak4.3.2020_Mo<-KorFak4.3.2020$lDrift_Mo
Mo<- data4.3.2020_Mo-data4.3.2020_Mo*(KorFak4.3.2020_Mo/100)

data4.3.2020_Ag<-data4.3.2020$Ag
KorFak4.3.2020_Ag<-KorFak4.3.2020$lDrift_Ag
Ag<- data4.3.2020_Ag-data4.3.2020_Ag*(KorFak4.3.2020_Ag/100)

data4.3.2020_Cd<-data4.3.2020$Cd
KorFak4.3.2020_Cd<-KorFak4.3.2020$lDrift_Cd
Cd<- data4.3.2020_Cd-data4.3.2020_Cd*(KorFak4.3.2020_Cd/100)

data4.3.2020_Sn<-data4.3.2020$Sn
KorFak4.3.2020_Sn<-KorFak4.3.2020$lDrift_Sn
Sn<- data4.3.2020_Sn-data4.3.2020_Sn*(KorFak4.3.2020_Sn/100)

data4.3.2020_Sb<-data4.3.2020$Sb
KorFak4.3.2020_Sb<-KorFak4.3.2020$lDrift_Sb
Sb<- data4.3.2020_Sb-data4.3.2020_Sb*(KorFak4.3.2020_Sb/100)

data4.3.2020_Te<-data4.3.2020$Te
KorFak4.3.2020_Te<-KorFak4.3.2020$lDrift_Te
Te<- data4.3.2020_Te-data4.3.2020_Te*(KorFak4.3.2020_Te/100)

data4.3.2020_Cs<-data4.3.2020$Cs
KorFak4.3.2020_Cs<-KorFak4.3.2020$lDrift_Cs
Cs<- data4.3.2020_Cs-data4.3.2020_Cs*(KorFak4.3.2020_Cs/100)

data4.3.2020_Ba<-data4.3.2020$Ba
KorFak4.3.2020_Ba<-KorFak4.3.2020$lDrift_Ba
Ba<- data4.3.2020_Ba-data4.3.2020_Ba*(KorFak4.3.2020_Ba/100)

data4.3.2020_La<-data4.3.2020$La
KorFak4.3.2020_La<-KorFak4.3.2020$lDrift_La
La<- data4.3.2020_La-data4.3.2020_La*(KorFak4.3.2020_La/100)

data4.3.2020_Pb<-data4.3.2020$Pb
KorFak4.3.2020_Pb<-KorFak4.3.2020$lDrift_Pb
Pb<- data4.3.2020_Pb-data4.3.2020_Pb*(KorFak4.3.2020_Pb/100)

data4.3.2020_Th<-data4.3.2020$Th
KorFak4.3.2020_Th<-KorFak4.3.2020$lDrift_Th
Th<- data4.3.2020_Th-data4.3.2020_Th*(KorFak4.3.2020_Th/100)

data4.3.2020_U<-data4.3.2020$U
KorFak4.3.2020_U<-KorFak4.3.2020$lDrift_U
U<- data4.3.2020_U-data4.3.2020_U*(KorFak4.3.2020_U/100)

Data_OG_lDrift_Kor4.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.8 l-Drift Korrektur des 5.3.2020

KorFak5.3.2020<-KorFak %>% filter(Datum_median=="5.3.2020")
data5.3.2020<-data %>% filter(Datum=="5.3.2020")
Probennummer<-data5.3.2020$Probennummer
Datum<-data5.3.2020$Datum

data5.3.2020_Si<-data5.3.2020$Si
KorFak5.3.2020_Si<-KorFak5.3.2020$lDrift_Si
Si<- data5.3.2020_Si-data5.3.2020_Si*(KorFak5.3.2020_Si/100)

data5.3.2020_Ti<-data5.3.2020$Ti
KorFak5.3.2020_Ti<-KorFak5.3.2020$lDrift_Ti
Ti<- data5.3.2020_Ti-data5.3.2020_Ti*(KorFak5.3.2020_Ti/100)

data5.3.2020_Al<-data5.3.2020$Al
KorFak5.3.2020_Al<-KorFak5.3.2020$lDrift_Al
Al<- data5.3.2020_Al-data5.3.2020_Al*(KorFak5.3.2020_Al/100)

data5.3.2020_Fe<-data5.3.2020$Fe
KorFak5.3.2020_Fe<-KorFak5.3.2020$lDrift_Fe
Fe<- data5.3.2020_Fe-data5.3.2020_Fe*(KorFak5.3.2020_Fe/100)

data5.3.2020_Mn<-data5.3.2020$Mn
KorFak5.3.2020_Mn<-KorFak5.3.2020$lDrift_Mn
Mn<- data5.3.2020_Mn-data5.3.2020_Mn*(KorFak5.3.2020_Mn/100)

data5.3.2020_Mg<-data5.3.2020$Mg
KorFak5.3.2020_Mg<-KorFak5.3.2020$lDrift_Mg
Mg<- data5.3.2020_Mg-data5.3.2020_Mg*(KorFak5.3.2020_Mg/100)

data5.3.2020_Ca<-data5.3.2020$Ca
KorFak5.3.2020_Ca<-KorFak5.3.2020$lDrift_Ca
Ca<- data5.3.2020_Ca-data5.3.2020_Ca*(KorFak5.3.2020_Ca/100)

data5.3.2020_K<-data5.3.2020$K
KorFak5.3.2020_K<-KorFak5.3.2020$lDrift_K
K<- data5.3.2020_K-data5.3.2020_K*(KorFak5.3.2020_K/100)

data5.3.2020_P<-data5.3.2020$P
KorFak5.3.2020_P<-KorFak5.3.2020$lDrift_P
P<- data5.3.2020_P-data5.3.2020_P*(KorFak5.3.2020_P/100)

data5.3.2020_S<-data5.3.2020$S
KorFak5.3.2020_S<-KorFak5.3.2020$lDrift_S
S<- data5.3.2020_S-data5.3.2020_S*(KorFak5.3.2020_S/100)

data5.3.2020_Cl<-data5.3.2020$Cl
KorFak5.3.2020_Cl<-KorFak5.3.2020$lDrift_Cl
Cl<- data5.3.2020_Cl-data5.3.2020_Cl*(KorFak5.3.2020_Cl/100)

data5.3.2020_V<-data5.3.2020$V
KorFak5.3.2020_V<-KorFak5.3.2020$lDrift_V
V<- data5.3.2020_V-data5.3.2020_V*(KorFak5.3.2020_V/100)

data5.3.2020_Cr<-data5.3.2020$Cr
KorFak5.3.2020_Cr<-KorFak5.3.2020$lDrift_Cr
Cr<- data5.3.2020_Cr-data5.3.2020_Cr*(KorFak5.3.2020_Cr/100)

data5.3.2020_Ni<-data5.3.2020$Ni
KorFak5.3.2020_Ni<-KorFak5.3.2020$lDrift_Ni
Ni<- data5.3.2020_Ni-data5.3.2020_Ni*(KorFak5.3.2020_Ni/100)

data5.3.2020_Cu<-data5.3.2020$Cu
KorFak5.3.2020_Cu<-KorFak5.3.2020$lDrift_Cu
Cu<- data5.3.2020_Cu-data5.3.2020_Cu*(KorFak5.3.2020_Cu/100)

data5.3.2020_Zn<-data5.3.2020$Zn
KorFak5.3.2020_Zn<-KorFak5.3.2020$lDrift_Zn
Zn<- data5.3.2020_Zn-data5.3.2020_Zn*(KorFak5.3.2020_Zn/100)

data5.3.2020_As<-data5.3.2020$As
KorFak5.3.2020_As<-KorFak5.3.2020$lDrift_As
As<- data5.3.2020_As-data5.3.2020_As*(KorFak5.3.2020_As/100)

data5.3.2020_Se<-data5.3.2020$Se
KorFak5.3.2020_Se<-KorFak5.3.2020$lDrift_Se
Se<- data5.3.2020_Se-data5.3.2020_Se*(KorFak5.3.2020_Se/100)

data5.3.2020_Rb<-data5.3.2020$Rb
KorFak5.3.2020_Rb<-KorFak5.3.2020$lDrift_Rb
Rb<- data5.3.2020_Rb-data5.3.2020_Rb*(KorFak5.3.2020_Rb/100)

data5.3.2020_Sr<-data5.3.2020$Sr
KorFak5.3.2020_Sr<-KorFak5.3.2020$lDrift_Sr
Sr<- data5.3.2020_Sr-data5.3.2020_Sr*(KorFak5.3.2020_Sr/100)

data5.3.2020_Y<-data5.3.2020$Y
KorFak5.3.2020_Y<-KorFak5.3.2020$lDrift_Y
Y<- data5.3.2020_Y-data5.3.2020_Y*(KorFak5.3.2020_Y/100)

data5.3.2020_Zr<-data5.3.2020$Zr
KorFak5.3.2020_Zr<-KorFak5.3.2020$lDrift_Zr
Zr<- data5.3.2020_Zr-data5.3.2020_Zr*(KorFak5.3.2020_Zr/100)

data5.3.2020_Nb<-data5.3.2020$Nb
KorFak5.3.2020_Nb<-KorFak5.3.2020$lDrift_Nb
Nb<- data5.3.2020_Nb-data5.3.2020_Nb*(KorFak5.3.2020_Nb/100)

data5.3.2020_Mo<-data5.3.2020$Mo
KorFak5.3.2020_Mo<-KorFak5.3.2020$lDrift_Mo
Mo<- data5.3.2020_Mo-data5.3.2020_Mo*(KorFak5.3.2020_Mo/100)

data5.3.2020_Ag<-data5.3.2020$Ag
KorFak5.3.2020_Ag<-KorFak5.3.2020$lDrift_Ag
Ag<- data5.3.2020_Ag-data5.3.2020_Ag*(KorFak5.3.2020_Ag/100)

data5.3.2020_Cd<-data5.3.2020$Cd
KorFak5.3.2020_Cd<-KorFak5.3.2020$lDrift_Cd
Cd<- data5.3.2020_Cd-data5.3.2020_Cd*(KorFak5.3.2020_Cd/100)

data5.3.2020_Sn<-data5.3.2020$Sn
KorFak5.3.2020_Sn<-KorFak5.3.2020$lDrift_Sn
Sn<- data5.3.2020_Sn-data5.3.2020_Sn*(KorFak5.3.2020_Sn/100)

data5.3.2020_Sb<-data5.3.2020$Sb
KorFak5.3.2020_Sb<-KorFak5.3.2020$lDrift_Sb
Sb<- data5.3.2020_Sb-data5.3.2020_Sb*(KorFak5.3.2020_Sb/100)

data5.3.2020_Te<-data5.3.2020$Te
KorFak5.3.2020_Te<-KorFak5.3.2020$lDrift_Te
Te<- data5.3.2020_Te-data5.3.2020_Te*(KorFak5.3.2020_Te/100)

data5.3.2020_Cs<-data5.3.2020$Cs
KorFak5.3.2020_Cs<-KorFak5.3.2020$lDrift_Cs
Cs<- data5.3.2020_Cs-data5.3.2020_Cs*(KorFak5.3.2020_Cs/100)

data5.3.2020_Ba<-data5.3.2020$Ba
KorFak5.3.2020_Ba<-KorFak5.3.2020$lDrift_Ba
Ba<- data5.3.2020_Ba-data5.3.2020_Ba*(KorFak5.3.2020_Ba/100)

data5.3.2020_La<-data5.3.2020$La
KorFak5.3.2020_La<-KorFak5.3.2020$lDrift_La
La<- data5.3.2020_La-data5.3.2020_La*(KorFak5.3.2020_La/100)

data5.3.2020_Pb<-data5.3.2020$Pb
KorFak5.3.2020_Pb<-KorFak5.3.2020$lDrift_Pb
Pb<- data5.3.2020_Pb-data5.3.2020_Pb*(KorFak5.3.2020_Pb/100)

data5.3.2020_Th<-data5.3.2020$Th
KorFak5.3.2020_Th<-KorFak5.3.2020$lDrift_Th
Th<- data5.3.2020_Th-data5.3.2020_Th*(KorFak5.3.2020_Th/100)

data5.3.2020_U<-data5.3.2020$U
KorFak5.3.2020_U<-KorFak5.3.2020$lDrift_U
U<- data5.3.2020_U-data5.3.2020_U*(KorFak5.3.2020_U/100)

Data_OG_lDrift_Kor5.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.9 l-Drift Korrektur des 6.3.2020

KorFak6.3.2020<-KorFak %>% filter(Datum_median=="6.3.2020")
data6.3.2020<-data %>% filter(Datum=="6.3.2020")
Probennummer<-data6.3.2020$Probennummer
Datum<-data6.3.2020$Datum

data6.3.2020_Si<-data6.3.2020$Si
KorFak6.3.2020_Si<-KorFak6.3.2020$lDrift_Si
Si<- data6.3.2020_Si-data6.3.2020_Si*(KorFak6.3.2020_Si/100)

data6.3.2020_Ti<-data6.3.2020$Ti
KorFak6.3.2020_Ti<-KorFak6.3.2020$lDrift_Ti
Ti<- data6.3.2020_Ti-data6.3.2020_Ti*(KorFak6.3.2020_Ti/100)

data6.3.2020_Al<-data6.3.2020$Al
KorFak6.3.2020_Al<-KorFak6.3.2020$lDrift_Al
Al<- data6.3.2020_Al-data6.3.2020_Al*(KorFak6.3.2020_Al/100)

data6.3.2020_Fe<-data6.3.2020$Fe
KorFak6.3.2020_Fe<-KorFak6.3.2020$lDrift_Fe
Fe<- data6.3.2020_Fe-data6.3.2020_Fe*(KorFak6.3.2020_Fe/100)

data6.3.2020_Mn<-data6.3.2020$Mn
KorFak6.3.2020_Mn<-KorFak6.3.2020$lDrift_Mn
Mn<- data6.3.2020_Mn-data6.3.2020_Mn*(KorFak6.3.2020_Mn/100)

data6.3.2020_Mg<-data6.3.2020$Mg
KorFak6.3.2020_Mg<-KorFak6.3.2020$lDrift_Mg
Mg<- data6.3.2020_Mg-data6.3.2020_Mg*(KorFak6.3.2020_Mg/100)

data6.3.2020_Ca<-data6.3.2020$Ca
KorFak6.3.2020_Ca<-KorFak6.3.2020$lDrift_Ca
Ca<- data6.3.2020_Ca-data6.3.2020_Ca*(KorFak6.3.2020_Ca/100)

data6.3.2020_K<-data6.3.2020$K
KorFak6.3.2020_K<-KorFak6.3.2020$lDrift_K
K<- data6.3.2020_K-data6.3.2020_K*(KorFak6.3.2020_K/100)

data6.3.2020_P<-data6.3.2020$P
KorFak6.3.2020_P<-KorFak6.3.2020$lDrift_P
P<- data6.3.2020_P-data6.3.2020_P*(KorFak6.3.2020_P/100)

data6.3.2020_S<-data6.3.2020$S
KorFak6.3.2020_S<-KorFak6.3.2020$lDrift_S
S<- data6.3.2020_S-data6.3.2020_S*(KorFak6.3.2020_S/100)

data6.3.2020_Cl<-data6.3.2020$Cl
KorFak6.3.2020_Cl<-KorFak6.3.2020$lDrift_Cl
Cl<- data6.3.2020_Cl-data6.3.2020_Cl*(KorFak6.3.2020_Cl/100)

data6.3.2020_V<-data6.3.2020$V
KorFak6.3.2020_V<-KorFak6.3.2020$lDrift_V
V<- data6.3.2020_V-data6.3.2020_V*(KorFak6.3.2020_V/100)

data6.3.2020_Cr<-data6.3.2020$Cr
KorFak6.3.2020_Cr<-KorFak6.3.2020$lDrift_Cr
Cr<- data6.3.2020_Cr-data6.3.2020_Cr*(KorFak6.3.2020_Cr/100)

data6.3.2020_Ni<-data6.3.2020$Ni
KorFak6.3.2020_Ni<-KorFak6.3.2020$lDrift_Ni
Ni<- data6.3.2020_Ni-data6.3.2020_Ni*(KorFak6.3.2020_Ni/100)

data6.3.2020_Cu<-data6.3.2020$Cu
KorFak6.3.2020_Cu<-KorFak6.3.2020$lDrift_Cu
Cu<- data6.3.2020_Cu-data6.3.2020_Cu*(KorFak6.3.2020_Cu/100)

data6.3.2020_Zn<-data6.3.2020$Zn
KorFak6.3.2020_Zn<-KorFak6.3.2020$lDrift_Zn
Zn<- data6.3.2020_Zn-data6.3.2020_Zn*(KorFak6.3.2020_Zn/100)

data6.3.2020_As<-data6.3.2020$As
KorFak6.3.2020_As<-KorFak6.3.2020$lDrift_As
As<- data6.3.2020_As-data6.3.2020_As*(KorFak6.3.2020_As/100)

data6.3.2020_Se<-data6.3.2020$Se
KorFak6.3.2020_Se<-KorFak6.3.2020$lDrift_Se
Se<- data6.3.2020_Se-data6.3.2020_Se*(KorFak6.3.2020_Se/100)

data6.3.2020_Rb<-data6.3.2020$Rb
KorFak6.3.2020_Rb<-KorFak6.3.2020$lDrift_Rb
Rb<- data6.3.2020_Rb-data6.3.2020_Rb*(KorFak6.3.2020_Rb/100)

data6.3.2020_Sr<-data6.3.2020$Sr
KorFak6.3.2020_Sr<-KorFak6.3.2020$lDrift_Sr
Sr<- data6.3.2020_Sr-data6.3.2020_Sr*(KorFak6.3.2020_Sr/100)

data6.3.2020_Y<-data6.3.2020$Y
KorFak6.3.2020_Y<-KorFak6.3.2020$lDrift_Y
Y<- data6.3.2020_Y-data6.3.2020_Y*(KorFak6.3.2020_Y/100)

data6.3.2020_Zr<-data6.3.2020$Zr
KorFak6.3.2020_Zr<-KorFak6.3.2020$lDrift_Zr
Zr<- data6.3.2020_Zr-data6.3.2020_Zr*(KorFak6.3.2020_Zr/100)

data6.3.2020_Nb<-data6.3.2020$Nb
KorFak6.3.2020_Nb<-KorFak6.3.2020$lDrift_Nb
Nb<- data6.3.2020_Nb-data6.3.2020_Nb*(KorFak6.3.2020_Nb/100)

data6.3.2020_Mo<-data6.3.2020$Mo
KorFak6.3.2020_Mo<-KorFak6.3.2020$lDrift_Mo
Mo<- data6.3.2020_Mo-data6.3.2020_Mo*(KorFak6.3.2020_Mo/100)

data6.3.2020_Ag<-data6.3.2020$Ag
KorFak6.3.2020_Ag<-KorFak6.3.2020$lDrift_Ag
Ag<- data6.3.2020_Ag-data6.3.2020_Ag*(KorFak6.3.2020_Ag/100)

data6.3.2020_Cd<-data6.3.2020$Cd
KorFak6.3.2020_Cd<-KorFak6.3.2020$lDrift_Cd
Cd<- data6.3.2020_Cd-data6.3.2020_Cd*(KorFak6.3.2020_Cd/100)

data6.3.2020_Sn<-data6.3.2020$Sn
KorFak6.3.2020_Sn<-KorFak6.3.2020$lDrift_Sn
Sn<- data6.3.2020_Sn-data6.3.2020_Sn*(KorFak6.3.2020_Sn/100)

data6.3.2020_Sb<-data6.3.2020$Sb
KorFak6.3.2020_Sb<-KorFak6.3.2020$lDrift_Sb
Sb<- data6.3.2020_Sb-data6.3.2020_Sb*(KorFak6.3.2020_Sb/100)

data6.3.2020_Te<-data6.3.2020$Te
KorFak6.3.2020_Te<-KorFak6.3.2020$lDrift_Te
Te<- data6.3.2020_Te-data6.3.2020_Te*(KorFak6.3.2020_Te/100)

data6.3.2020_Cs<-data6.3.2020$Cs
KorFak6.3.2020_Cs<-KorFak6.3.2020$lDrift_Cs
Cs<- data6.3.2020_Cs-data6.3.2020_Cs*(KorFak6.3.2020_Cs/100)

data6.3.2020_Ba<-data6.3.2020$Ba
KorFak6.3.2020_Ba<-KorFak6.3.2020$lDrift_Ba
Ba<- data6.3.2020_Ba-data6.3.2020_Ba*(KorFak6.3.2020_Ba/100)

data6.3.2020_La<-data6.3.2020$La
KorFak6.3.2020_La<-KorFak6.3.2020$lDrift_La
La<- data6.3.2020_La-data6.3.2020_La*(KorFak6.3.2020_La/100)

data6.3.2020_Pb<-data6.3.2020$Pb
KorFak6.3.2020_Pb<-KorFak6.3.2020$lDrift_Pb
Pb<- data6.3.2020_Pb-data6.3.2020_Pb*(KorFak6.3.2020_Pb/100)

data6.3.2020_Th<-data6.3.2020$Th
KorFak6.3.2020_Th<-KorFak6.3.2020$lDrift_Th
Th<- data6.3.2020_Th-data6.3.2020_Th*(KorFak6.3.2020_Th/100)

data6.3.2020_U<-data6.3.2020$U
KorFak6.3.2020_U<-KorFak6.3.2020$lDrift_U
U<- data6.3.2020_U-data6.3.2020_U*(KorFak6.3.2020_U/100)

Data_OG_lDrift_Kor6.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.10 l-Drift Korrektur des 8.3.2020

KorFak8.3.2020<-KorFak %>% filter(Datum_median=="8.3.2020")
data8.3.2020<-data %>% filter(Datum=="8.3.2020")
Probennummer<-data8.3.2020$Probennummer
Datum<-data8.3.2020$Datum

data8.3.2020_Si<-data8.3.2020$Si
KorFak8.3.2020_Si<-KorFak8.3.2020$lDrift_Si
Si<- data8.3.2020_Si-data8.3.2020_Si*(KorFak8.3.2020_Si/100)

data8.3.2020_Ti<-data8.3.2020$Ti
KorFak8.3.2020_Ti<-KorFak8.3.2020$lDrift_Ti
Ti<- data8.3.2020_Ti-data8.3.2020_Ti*(KorFak8.3.2020_Ti/100)

data8.3.2020_Al<-data8.3.2020$Al
KorFak8.3.2020_Al<-KorFak8.3.2020$lDrift_Al
Al<- data8.3.2020_Al-data8.3.2020_Al*(KorFak8.3.2020_Al/100)

data8.3.2020_Fe<-data8.3.2020$Fe
KorFak8.3.2020_Fe<-KorFak8.3.2020$lDrift_Fe
Fe<- data8.3.2020_Fe-data8.3.2020_Fe*(KorFak8.3.2020_Fe/100)

data8.3.2020_Mn<-data8.3.2020$Mn
KorFak8.3.2020_Mn<-KorFak8.3.2020$lDrift_Mn
Mn<- data8.3.2020_Mn-data8.3.2020_Mn*(KorFak8.3.2020_Mn/100)

data8.3.2020_Mg<-data8.3.2020$Mg
KorFak8.3.2020_Mg<-KorFak8.3.2020$lDrift_Mg
Mg<- data8.3.2020_Mg-data8.3.2020_Mg*(KorFak8.3.2020_Mg/100)

data8.3.2020_Ca<-data8.3.2020$Ca
KorFak8.3.2020_Ca<-KorFak8.3.2020$lDrift_Ca
Ca<- data8.3.2020_Ca-data8.3.2020_Ca*(KorFak8.3.2020_Ca/100)

data8.3.2020_K<-data8.3.2020$K
KorFak8.3.2020_K<-KorFak8.3.2020$lDrift_K
K<- data8.3.2020_K-data8.3.2020_K*(KorFak8.3.2020_K/100)

data8.3.2020_P<-data8.3.2020$P
KorFak8.3.2020_P<-KorFak8.3.2020$lDrift_P
P<- data8.3.2020_P-data8.3.2020_P*(KorFak8.3.2020_P/100)

data8.3.2020_S<-data8.3.2020$S
KorFak8.3.2020_S<-KorFak8.3.2020$lDrift_S
S<- data8.3.2020_S-data8.3.2020_S*(KorFak8.3.2020_S/100)

data8.3.2020_Cl<-data8.3.2020$Cl
KorFak8.3.2020_Cl<-KorFak8.3.2020$lDrift_Cl
Cl<- data8.3.2020_Cl-data8.3.2020_Cl*(KorFak8.3.2020_Cl/100)

data8.3.2020_V<-data8.3.2020$V
KorFak8.3.2020_V<-KorFak8.3.2020$lDrift_V
V<- data8.3.2020_V-data8.3.2020_V*(KorFak8.3.2020_V/100)

data8.3.2020_Cr<-data8.3.2020$Cr
KorFak8.3.2020_Cr<-KorFak8.3.2020$lDrift_Cr
Cr<- data8.3.2020_Cr-data8.3.2020_Cr*(KorFak8.3.2020_Cr/100)

data8.3.2020_Ni<-data8.3.2020$Ni
KorFak8.3.2020_Ni<-KorFak8.3.2020$lDrift_Ni
Ni<- data8.3.2020_Ni-data8.3.2020_Ni*(KorFak8.3.2020_Ni/100)

data8.3.2020_Cu<-data8.3.2020$Cu
KorFak8.3.2020_Cu<-KorFak8.3.2020$lDrift_Cu
Cu<- data8.3.2020_Cu-data8.3.2020_Cu*(KorFak8.3.2020_Cu/100)

data8.3.2020_Zn<-data8.3.2020$Zn
KorFak8.3.2020_Zn<-KorFak8.3.2020$lDrift_Zn
Zn<- data8.3.2020_Zn-data8.3.2020_Zn*(KorFak8.3.2020_Zn/100)

data8.3.2020_As<-data8.3.2020$As
KorFak8.3.2020_As<-KorFak8.3.2020$lDrift_As
As<- data8.3.2020_As-data8.3.2020_As*(KorFak8.3.2020_As/100)

data8.3.2020_Se<-data8.3.2020$Se
KorFak8.3.2020_Se<-KorFak8.3.2020$lDrift_Se
Se<- data8.3.2020_Se-data8.3.2020_Se*(KorFak8.3.2020_Se/100)

data8.3.2020_Rb<-data8.3.2020$Rb
KorFak8.3.2020_Rb<-KorFak8.3.2020$lDrift_Rb
Rb<- data8.3.2020_Rb-data8.3.2020_Rb*(KorFak8.3.2020_Rb/100)

data8.3.2020_Sr<-data8.3.2020$Sr
KorFak8.3.2020_Sr<-KorFak8.3.2020$lDrift_Sr
Sr<- data8.3.2020_Sr-data8.3.2020_Sr*(KorFak8.3.2020_Sr/100)

data8.3.2020_Y<-data8.3.2020$Y
KorFak8.3.2020_Y<-KorFak8.3.2020$lDrift_Y
Y<- data8.3.2020_Y-data8.3.2020_Y*(KorFak8.3.2020_Y/100)

data8.3.2020_Zr<-data8.3.2020$Zr
KorFak8.3.2020_Zr<-KorFak8.3.2020$lDrift_Zr
Zr<- data8.3.2020_Zr-data8.3.2020_Zr*(KorFak8.3.2020_Zr/100)

data8.3.2020_Nb<-data8.3.2020$Nb
KorFak8.3.2020_Nb<-KorFak8.3.2020$lDrift_Nb
Nb<- data8.3.2020_Nb-data8.3.2020_Nb*(KorFak8.3.2020_Nb/100)

data8.3.2020_Mo<-data8.3.2020$Mo
KorFak8.3.2020_Mo<-KorFak8.3.2020$lDrift_Mo
Mo<- data8.3.2020_Mo-data8.3.2020_Mo*(KorFak8.3.2020_Mo/100)

data8.3.2020_Ag<-data8.3.2020$Ag
KorFak8.3.2020_Ag<-KorFak8.3.2020$lDrift_Ag
Ag<- data8.3.2020_Ag-data8.3.2020_Ag*(KorFak8.3.2020_Ag/100)

data8.3.2020_Cd<-data8.3.2020$Cd
KorFak8.3.2020_Cd<-KorFak8.3.2020$lDrift_Cd
Cd<- data8.3.2020_Cd-data8.3.2020_Cd*(KorFak8.3.2020_Cd/100)

data8.3.2020_Sn<-data8.3.2020$Sn
KorFak8.3.2020_Sn<-KorFak8.3.2020$lDrift_Sn
Sn<- data8.3.2020_Sn-data8.3.2020_Sn*(KorFak8.3.2020_Sn/100)

data8.3.2020_Sb<-data8.3.2020$Sb
KorFak8.3.2020_Sb<-KorFak8.3.2020$lDrift_Sb
Sb<- data8.3.2020_Sb-data8.3.2020_Sb*(KorFak8.3.2020_Sb/100)

data8.3.2020_Te<-data8.3.2020$Te
KorFak8.3.2020_Te<-KorFak8.3.2020$lDrift_Te
Te<- data8.3.2020_Te-data8.3.2020_Te*(KorFak8.3.2020_Te/100)

data8.3.2020_Cs<-data8.3.2020$Cs
KorFak8.3.2020_Cs<-KorFak8.3.2020$lDrift_Cs
Cs<- data8.3.2020_Cs-data8.3.2020_Cs*(KorFak8.3.2020_Cs/100)

data8.3.2020_Ba<-data8.3.2020$Ba
KorFak8.3.2020_Ba<-KorFak8.3.2020$lDrift_Ba
Ba<- data8.3.2020_Ba-data8.3.2020_Ba*(KorFak8.3.2020_Ba/100)

data8.3.2020_La<-data8.3.2020$La
KorFak8.3.2020_La<-KorFak8.3.2020$lDrift_La
La<- data8.3.2020_La-data8.3.2020_La*(KorFak8.3.2020_La/100)

data8.3.2020_Pb<-data8.3.2020$Pb
KorFak8.3.2020_Pb<-KorFak8.3.2020$lDrift_Pb
Pb<- data8.3.2020_Pb-data8.3.2020_Pb*(KorFak8.3.2020_Pb/100)

data8.3.2020_Th<-data8.3.2020$Th
KorFak8.3.2020_Th<-KorFak8.3.2020$lDrift_Th
Th<- data8.3.2020_Th-data8.3.2020_Th*(KorFak8.3.2020_Th/100)

data8.3.2020_U<-data8.3.2020$U
KorFak8.3.2020_U<-KorFak8.3.2020$lDrift_U
U<- data8.3.2020_U-data8.3.2020_U*(KorFak8.3.2020_U/100)

Data_OG_lDrift_Kor8.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.11 l-Drift Korrektur des 10.3.2020

KorFak10.3.2020<-KorFak %>% filter(Datum_median=="10.3.2020")
data10.3.2020<-data %>% filter(Datum=="10.3.2020")
Probennummer<-data10.3.2020$Probennummer
Datum<-data10.3.2020$Datum

data10.3.2020_Si<-data10.3.2020$Si
KorFak10.3.2020_Si<-KorFak10.3.2020$lDrift_Si
Si<- data10.3.2020_Si-data10.3.2020_Si*(KorFak10.3.2020_Si/100)

data10.3.2020_Ti<-data10.3.2020$Ti
KorFak10.3.2020_Ti<-KorFak10.3.2020$lDrift_Ti
Ti<- data10.3.2020_Ti-data10.3.2020_Ti*(KorFak10.3.2020_Ti/100)

data10.3.2020_Al<-data10.3.2020$Al
KorFak10.3.2020_Al<-KorFak10.3.2020$lDrift_Al
Al<- data10.3.2020_Al-data10.3.2020_Al*(KorFak10.3.2020_Al/100)

data10.3.2020_Fe<-data10.3.2020$Fe
KorFak10.3.2020_Fe<-KorFak10.3.2020$lDrift_Fe
Fe<- data10.3.2020_Fe-data10.3.2020_Fe*(KorFak10.3.2020_Fe/100)

data10.3.2020_Mn<-data10.3.2020$Mn
KorFak10.3.2020_Mn<-KorFak10.3.2020$lDrift_Mn
Mn<- data10.3.2020_Mn-data10.3.2020_Mn*(KorFak10.3.2020_Mn/100)

data10.3.2020_Mg<-data10.3.2020$Mg
KorFak10.3.2020_Mg<-KorFak10.3.2020$lDrift_Mg
Mg<- data10.3.2020_Mg-data10.3.2020_Mg*(KorFak10.3.2020_Mg/100)

data10.3.2020_Ca<-data10.3.2020$Ca
KorFak10.3.2020_Ca<-KorFak10.3.2020$lDrift_Ca
Ca<- data10.3.2020_Ca-data10.3.2020_Ca*(KorFak10.3.2020_Ca/100)

data10.3.2020_K<-data10.3.2020$K
KorFak10.3.2020_K<-KorFak10.3.2020$lDrift_K
K<- data10.3.2020_K-data10.3.2020_K*(KorFak10.3.2020_K/100)

data10.3.2020_P<-data10.3.2020$P
KorFak10.3.2020_P<-KorFak10.3.2020$lDrift_P
P<- data10.3.2020_P-data10.3.2020_P*(KorFak10.3.2020_P/100)

data10.3.2020_S<-data10.3.2020$S
KorFak10.3.2020_S<-KorFak10.3.2020$lDrift_S
S<- data10.3.2020_S-data10.3.2020_S*(KorFak10.3.2020_S/100)

data10.3.2020_Cl<-data10.3.2020$Cl
KorFak10.3.2020_Cl<-KorFak10.3.2020$lDrift_Cl
Cl<- data10.3.2020_Cl-data10.3.2020_Cl*(KorFak10.3.2020_Cl/100)

data10.3.2020_V<-data10.3.2020$V
KorFak10.3.2020_V<-KorFak10.3.2020$lDrift_V
V<- data10.3.2020_V-data10.3.2020_V*(KorFak10.3.2020_V/100)

data10.3.2020_Cr<-data10.3.2020$Cr
KorFak10.3.2020_Cr<-KorFak10.3.2020$lDrift_Cr
Cr<- data10.3.2020_Cr-data10.3.2020_Cr*(KorFak10.3.2020_Cr/100)

data10.3.2020_Ni<-data10.3.2020$Ni
KorFak10.3.2020_Ni<-KorFak10.3.2020$lDrift_Ni
Ni<- data10.3.2020_Ni-data10.3.2020_Ni*(KorFak10.3.2020_Ni/100)

data10.3.2020_Cu<-data10.3.2020$Cu
KorFak10.3.2020_Cu<-KorFak10.3.2020$lDrift_Cu
Cu<- data10.3.2020_Cu-data10.3.2020_Cu*(KorFak10.3.2020_Cu/100)

data10.3.2020_Zn<-data10.3.2020$Zn
KorFak10.3.2020_Zn<-KorFak10.3.2020$lDrift_Zn
Zn<- data10.3.2020_Zn-data10.3.2020_Zn*(KorFak10.3.2020_Zn/100)

data10.3.2020_As<-data10.3.2020$As
KorFak10.3.2020_As<-KorFak10.3.2020$lDrift_As
As<- data10.3.2020_As-data10.3.2020_As*(KorFak10.3.2020_As/100)

data10.3.2020_Se<-data10.3.2020$Se
KorFak10.3.2020_Se<-KorFak10.3.2020$lDrift_Se
Se<- data10.3.2020_Se-data10.3.2020_Se*(KorFak10.3.2020_Se/100)

data10.3.2020_Rb<-data10.3.2020$Rb
KorFak10.3.2020_Rb<-KorFak10.3.2020$lDrift_Rb
Rb<- data10.3.2020_Rb-data10.3.2020_Rb*(KorFak10.3.2020_Rb/100)

data10.3.2020_Sr<-data10.3.2020$Sr
KorFak10.3.2020_Sr<-KorFak10.3.2020$lDrift_Sr
Sr<- data10.3.2020_Sr-data10.3.2020_Sr*(KorFak10.3.2020_Sr/100)

data10.3.2020_Y<-data10.3.2020$Y
KorFak10.3.2020_Y<-KorFak10.3.2020$lDrift_Y
Y<- data10.3.2020_Y-data10.3.2020_Y*(KorFak10.3.2020_Y/100)

data10.3.2020_Zr<-data10.3.2020$Zr
KorFak10.3.2020_Zr<-KorFak10.3.2020$lDrift_Zr
Zr<- data10.3.2020_Zr-data10.3.2020_Zr*(KorFak10.3.2020_Zr/100)

data10.3.2020_Nb<-data10.3.2020$Nb
KorFak10.3.2020_Nb<-KorFak10.3.2020$lDrift_Nb
Nb<- data10.3.2020_Nb-data10.3.2020_Nb*(KorFak10.3.2020_Nb/100)

data10.3.2020_Mo<-data10.3.2020$Mo
KorFak10.3.2020_Mo<-KorFak10.3.2020$lDrift_Mo
Mo<- data10.3.2020_Mo-data10.3.2020_Mo*(KorFak10.3.2020_Mo/100)

data10.3.2020_Ag<-data10.3.2020$Ag
KorFak10.3.2020_Ag<-KorFak10.3.2020$lDrift_Ag
Ag<- data10.3.2020_Ag-data10.3.2020_Ag*(KorFak10.3.2020_Ag/100)

data10.3.2020_Cd<-data10.3.2020$Cd
KorFak10.3.2020_Cd<-KorFak10.3.2020$lDrift_Cd
Cd<- data10.3.2020_Cd-data10.3.2020_Cd*(KorFak10.3.2020_Cd/100)

data10.3.2020_Sn<-data10.3.2020$Sn
KorFak10.3.2020_Sn<-KorFak10.3.2020$lDrift_Sn
Sn<- data10.3.2020_Sn-data10.3.2020_Sn*(KorFak10.3.2020_Sn/100)

data10.3.2020_Sb<-data10.3.2020$Sb
KorFak10.3.2020_Sb<-KorFak10.3.2020$lDrift_Sb
Sb<- data10.3.2020_Sb-data10.3.2020_Sb*(KorFak10.3.2020_Sb/100)

data10.3.2020_Te<-data10.3.2020$Te
KorFak10.3.2020_Te<-KorFak10.3.2020$lDrift_Te
Te<- data10.3.2020_Te-data10.3.2020_Te*(KorFak10.3.2020_Te/100)

data10.3.2020_Cs<-data10.3.2020$Cs
KorFak10.3.2020_Cs<-KorFak10.3.2020$lDrift_Cs
Cs<- data10.3.2020_Cs-data10.3.2020_Cs*(KorFak10.3.2020_Cs/100)

data10.3.2020_Ba<-data10.3.2020$Ba
KorFak10.3.2020_Ba<-KorFak10.3.2020$lDrift_Ba
Ba<- data10.3.2020_Ba-data10.3.2020_Ba*(KorFak10.3.2020_Ba/100)

data10.3.2020_La<-data10.3.2020$La
KorFak10.3.2020_La<-KorFak10.3.2020$lDrift_La
La<- data10.3.2020_La-data10.3.2020_La*(KorFak10.3.2020_La/100)

data10.3.2020_Pb<-data10.3.2020$Pb
KorFak10.3.2020_Pb<-KorFak10.3.2020$lDrift_Pb
Pb<- data10.3.2020_Pb-data10.3.2020_Pb*(KorFak10.3.2020_Pb/100)

data10.3.2020_Th<-data10.3.2020$Th
KorFak10.3.2020_Th<-KorFak10.3.2020$lDrift_Th
Th<- data10.3.2020_Th-data10.3.2020_Th*(KorFak10.3.2020_Th/100)

data10.3.2020_U<-data10.3.2020$U
KorFak10.3.2020_U<-KorFak10.3.2020$lDrift_U
U<- data10.3.2020_U-data10.3.2020_U*(KorFak10.3.2020_U/100)

Data_OG_lDrift_Kor10.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.12 l-Drift Korrektur des 11.3.2020

KorFak11.3.2020<-KorFak %>% filter(Datum_median=="11.3.2020")
data11.3.2020<-data %>% filter(Datum=="11.3.2020")
Probennummer<-data11.3.2020$Probennummer
Datum<-data11.3.2020$Datum

data11.3.2020_Si<-data11.3.2020$Si
KorFak11.3.2020_Si<-KorFak11.3.2020$lDrift_Si
Si<- data11.3.2020_Si-data11.3.2020_Si*(KorFak11.3.2020_Si/100)

data11.3.2020_Ti<-data11.3.2020$Ti
KorFak11.3.2020_Ti<-KorFak11.3.2020$lDrift_Ti
Ti<- data11.3.2020_Ti-data11.3.2020_Ti*(KorFak11.3.2020_Ti/100)

data11.3.2020_Al<-data11.3.2020$Al
KorFak11.3.2020_Al<-KorFak11.3.2020$lDrift_Al
Al<- data11.3.2020_Al-data11.3.2020_Al*(KorFak11.3.2020_Al/100)

data11.3.2020_Fe<-data11.3.2020$Fe
KorFak11.3.2020_Fe<-KorFak11.3.2020$lDrift_Fe
Fe<- data11.3.2020_Fe-data11.3.2020_Fe*(KorFak11.3.2020_Fe/100)

data11.3.2020_Mn<-data11.3.2020$Mn
KorFak11.3.2020_Mn<-KorFak11.3.2020$lDrift_Mn
Mn<- data11.3.2020_Mn-data11.3.2020_Mn*(KorFak11.3.2020_Mn/100)

data11.3.2020_Mg<-data11.3.2020$Mg
KorFak11.3.2020_Mg<-KorFak11.3.2020$lDrift_Mg
Mg<- data11.3.2020_Mg-data11.3.2020_Mg*(KorFak11.3.2020_Mg/100)

data11.3.2020_Ca<-data11.3.2020$Ca
KorFak11.3.2020_Ca<-KorFak11.3.2020$lDrift_Ca
Ca<- data11.3.2020_Ca-data11.3.2020_Ca*(KorFak11.3.2020_Ca/100)

data11.3.2020_K<-data11.3.2020$K
KorFak11.3.2020_K<-KorFak11.3.2020$lDrift_K
K<- data11.3.2020_K-data11.3.2020_K*(KorFak11.3.2020_K/100)

data11.3.2020_P<-data11.3.2020$P
KorFak11.3.2020_P<-KorFak11.3.2020$lDrift_P
P<- data11.3.2020_P-data11.3.2020_P*(KorFak11.3.2020_P/100)

data11.3.2020_S<-data11.3.2020$S
KorFak11.3.2020_S<-KorFak11.3.2020$lDrift_S
S<- data11.3.2020_S-data11.3.2020_S*(KorFak11.3.2020_S/100)

data11.3.2020_Cl<-data11.3.2020$Cl
KorFak11.3.2020_Cl<-KorFak11.3.2020$lDrift_Cl
Cl<- data11.3.2020_Cl-data11.3.2020_Cl*(KorFak11.3.2020_Cl/100)

data11.3.2020_V<-data11.3.2020$V
KorFak11.3.2020_V<-KorFak11.3.2020$lDrift_V
V<- data11.3.2020_V-data11.3.2020_V*(KorFak11.3.2020_V/100)

data11.3.2020_Cr<-data11.3.2020$Cr
KorFak11.3.2020_Cr<-KorFak11.3.2020$lDrift_Cr
Cr<- data11.3.2020_Cr-data11.3.2020_Cr*(KorFak11.3.2020_Cr/100)

data11.3.2020_Ni<-data11.3.2020$Ni
KorFak11.3.2020_Ni<-KorFak11.3.2020$lDrift_Ni
Ni<- data11.3.2020_Ni-data11.3.2020_Ni*(KorFak11.3.2020_Ni/100)

data11.3.2020_Cu<-data11.3.2020$Cu
KorFak11.3.2020_Cu<-KorFak11.3.2020$lDrift_Cu
Cu<- data11.3.2020_Cu-data11.3.2020_Cu*(KorFak11.3.2020_Cu/100)

data11.3.2020_Zn<-data11.3.2020$Zn
KorFak11.3.2020_Zn<-KorFak11.3.2020$lDrift_Zn
Zn<- data11.3.2020_Zn-data11.3.2020_Zn*(KorFak11.3.2020_Zn/100)

data11.3.2020_As<-data11.3.2020$As
KorFak11.3.2020_As<-KorFak11.3.2020$lDrift_As
As<- data11.3.2020_As-data11.3.2020_As*(KorFak11.3.2020_As/100)

data11.3.2020_Se<-data11.3.2020$Se
KorFak11.3.2020_Se<-KorFak11.3.2020$lDrift_Se
Se<- data11.3.2020_Se-data11.3.2020_Se*(KorFak11.3.2020_Se/100)

data11.3.2020_Rb<-data11.3.2020$Rb
KorFak11.3.2020_Rb<-KorFak11.3.2020$lDrift_Rb
Rb<- data11.3.2020_Rb-data11.3.2020_Rb*(KorFak11.3.2020_Rb/100)

data11.3.2020_Sr<-data11.3.2020$Sr
KorFak11.3.2020_Sr<-KorFak11.3.2020$lDrift_Sr
Sr<- data11.3.2020_Sr-data11.3.2020_Sr*(KorFak11.3.2020_Sr/100)

data11.3.2020_Y<-data11.3.2020$Y
KorFak11.3.2020_Y<-KorFak11.3.2020$lDrift_Y
Y<- data11.3.2020_Y-data11.3.2020_Y*(KorFak11.3.2020_Y/100)

data11.3.2020_Zr<-data11.3.2020$Zr
KorFak11.3.2020_Zr<-KorFak11.3.2020$lDrift_Zr
Zr<- data11.3.2020_Zr-data11.3.2020_Zr*(KorFak11.3.2020_Zr/100)

data11.3.2020_Nb<-data11.3.2020$Nb
KorFak11.3.2020_Nb<-KorFak11.3.2020$lDrift_Nb
Nb<- data11.3.2020_Nb-data11.3.2020_Nb*(KorFak11.3.2020_Nb/100)

data11.3.2020_Mo<-data11.3.2020$Mo
KorFak11.3.2020_Mo<-KorFak11.3.2020$lDrift_Mo
Mo<- data11.3.2020_Mo-data11.3.2020_Mo*(KorFak11.3.2020_Mo/100)

data11.3.2020_Ag<-data11.3.2020$Ag
KorFak11.3.2020_Ag<-KorFak11.3.2020$lDrift_Ag
Ag<- data11.3.2020_Ag-data11.3.2020_Ag*(KorFak11.3.2020_Ag/100)

data11.3.2020_Cd<-data11.3.2020$Cd
KorFak11.3.2020_Cd<-KorFak11.3.2020$lDrift_Cd
Cd<- data11.3.2020_Cd-data11.3.2020_Cd*(KorFak11.3.2020_Cd/100)

data11.3.2020_Sn<-data11.3.2020$Sn
KorFak11.3.2020_Sn<-KorFak11.3.2020$lDrift_Sn
Sn<- data11.3.2020_Sn-data11.3.2020_Sn*(KorFak11.3.2020_Sn/100)

data11.3.2020_Sb<-data11.3.2020$Sb
KorFak11.3.2020_Sb<-KorFak11.3.2020$lDrift_Sb
Sb<- data11.3.2020_Sb-data11.3.2020_Sb*(KorFak11.3.2020_Sb/100)

data11.3.2020_Te<-data11.3.2020$Te
KorFak11.3.2020_Te<-KorFak11.3.2020$lDrift_Te
Te<- data11.3.2020_Te-data11.3.2020_Te*(KorFak11.3.2020_Te/100)

data11.3.2020_Cs<-data11.3.2020$Cs
KorFak11.3.2020_Cs<-KorFak11.3.2020$lDrift_Cs
Cs<- data11.3.2020_Cs-data11.3.2020_Cs*(KorFak11.3.2020_Cs/100)

data11.3.2020_Ba<-data11.3.2020$Ba
KorFak11.3.2020_Ba<-KorFak11.3.2020$lDrift_Ba
Ba<- data11.3.2020_Ba-data11.3.2020_Ba*(KorFak11.3.2020_Ba/100)

data11.3.2020_La<-data11.3.2020$La
KorFak11.3.2020_La<-KorFak11.3.2020$lDrift_La
La<- data11.3.2020_La-data11.3.2020_La*(KorFak11.3.2020_La/100)

data11.3.2020_Pb<-data11.3.2020$Pb
KorFak11.3.2020_Pb<-KorFak11.3.2020$lDrift_Pb
Pb<- data11.3.2020_Pb-data11.3.2020_Pb*(KorFak11.3.2020_Pb/100)

data11.3.2020_Th<-data11.3.2020$Th
KorFak11.3.2020_Th<-KorFak11.3.2020$lDrift_Th
Th<- data11.3.2020_Th-data11.3.2020_Th*(KorFak11.3.2020_Th/100)

data11.3.2020_U<-data11.3.2020$U
KorFak11.3.2020_U<-KorFak11.3.2020$lDrift_U
U<- data11.3.2020_U-data11.3.2020_U*(KorFak11.3.2020_U/100)

Data_OG_lDrift_Kor11.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.13 l-Drift Korrektur des 12.3.2020

KorFak12.3.2020<-KorFak %>% filter(Datum_median=="12.3.2020")
data12.3.2020<-data %>% filter(Datum=="12.3.2020")
Probennummer<-data12.3.2020$Probennummer
Datum<-data12.3.2020$Datum

data12.3.2020_Si<-data12.3.2020$Si
KorFak12.3.2020_Si<-KorFak12.3.2020$lDrift_Si
Si<- data12.3.2020_Si-data12.3.2020_Si*(KorFak12.3.2020_Si/100)

data12.3.2020_Ti<-data12.3.2020$Ti
KorFak12.3.2020_Ti<-KorFak12.3.2020$lDrift_Ti
Ti<- data12.3.2020_Ti-data12.3.2020_Ti*(KorFak12.3.2020_Ti/100)

data12.3.2020_Al<-data12.3.2020$Al
KorFak12.3.2020_Al<-KorFak12.3.2020$lDrift_Al
Al<- data12.3.2020_Al-data12.3.2020_Al*(KorFak12.3.2020_Al/100)

data12.3.2020_Fe<-data12.3.2020$Fe
KorFak12.3.2020_Fe<-KorFak12.3.2020$lDrift_Fe
Fe<- data12.3.2020_Fe-data12.3.2020_Fe*(KorFak12.3.2020_Fe/100)

data12.3.2020_Mn<-data12.3.2020$Mn
KorFak12.3.2020_Mn<-KorFak12.3.2020$lDrift_Mn
Mn<- data12.3.2020_Mn-data12.3.2020_Mn*(KorFak12.3.2020_Mn/100)

data12.3.2020_Mg<-data12.3.2020$Mg
KorFak12.3.2020_Mg<-KorFak12.3.2020$lDrift_Mg
Mg<- data12.3.2020_Mg-data12.3.2020_Mg*(KorFak12.3.2020_Mg/100)

data12.3.2020_Ca<-data12.3.2020$Ca
KorFak12.3.2020_Ca<-KorFak12.3.2020$lDrift_Ca
Ca<- data12.3.2020_Ca-data12.3.2020_Ca*(KorFak12.3.2020_Ca/100)

data12.3.2020_K<-data12.3.2020$K
KorFak12.3.2020_K<-KorFak12.3.2020$lDrift_K
K<- data12.3.2020_K-data12.3.2020_K*(KorFak12.3.2020_K/100)

data12.3.2020_P<-data12.3.2020$P
KorFak12.3.2020_P<-KorFak12.3.2020$lDrift_P
P<- data12.3.2020_P-data12.3.2020_P*(KorFak12.3.2020_P/100)

data12.3.2020_S<-data12.3.2020$S
KorFak12.3.2020_S<-KorFak12.3.2020$lDrift_S
S<- data12.3.2020_S-data12.3.2020_S*(KorFak12.3.2020_S/100)

data12.3.2020_Cl<-data12.3.2020$Cl
KorFak12.3.2020_Cl<-KorFak12.3.2020$lDrift_Cl
Cl<- data12.3.2020_Cl-data12.3.2020_Cl*(KorFak12.3.2020_Cl/100)

data12.3.2020_V<-data12.3.2020$V
KorFak12.3.2020_V<-KorFak12.3.2020$lDrift_V
V<- data12.3.2020_V-data12.3.2020_V*(KorFak12.3.2020_V/100)

data12.3.2020_Cr<-data12.3.2020$Cr
KorFak12.3.2020_Cr<-KorFak12.3.2020$lDrift_Cr
Cr<- data12.3.2020_Cr-data12.3.2020_Cr*(KorFak12.3.2020_Cr/100)

data12.3.2020_Ni<-data12.3.2020$Ni
KorFak12.3.2020_Ni<-KorFak12.3.2020$lDrift_Ni
Ni<- data12.3.2020_Ni-data12.3.2020_Ni*(KorFak12.3.2020_Ni/100)

data12.3.2020_Cu<-data12.3.2020$Cu
KorFak12.3.2020_Cu<-KorFak12.3.2020$lDrift_Cu
Cu<- data12.3.2020_Cu-data12.3.2020_Cu*(KorFak12.3.2020_Cu/100)

data12.3.2020_Zn<-data12.3.2020$Zn
KorFak12.3.2020_Zn<-KorFak12.3.2020$lDrift_Zn
Zn<- data12.3.2020_Zn-data12.3.2020_Zn*(KorFak12.3.2020_Zn/100)

data12.3.2020_As<-data12.3.2020$As
KorFak12.3.2020_As<-KorFak12.3.2020$lDrift_As
As<- data12.3.2020_As-data12.3.2020_As*(KorFak12.3.2020_As/100)

data12.3.2020_Se<-data12.3.2020$Se
KorFak12.3.2020_Se<-KorFak12.3.2020$lDrift_Se
Se<- data12.3.2020_Se-data12.3.2020_Se*(KorFak12.3.2020_Se/100)

data12.3.2020_Rb<-data12.3.2020$Rb
KorFak12.3.2020_Rb<-KorFak12.3.2020$lDrift_Rb
Rb<- data12.3.2020_Rb-data12.3.2020_Rb*(KorFak12.3.2020_Rb/100)

data12.3.2020_Sr<-data12.3.2020$Sr
KorFak12.3.2020_Sr<-KorFak12.3.2020$lDrift_Sr
Sr<- data12.3.2020_Sr-data12.3.2020_Sr*(KorFak12.3.2020_Sr/100)

data12.3.2020_Y<-data12.3.2020$Y
KorFak12.3.2020_Y<-KorFak12.3.2020$lDrift_Y
Y<- data12.3.2020_Y-data12.3.2020_Y*(KorFak12.3.2020_Y/100)

data12.3.2020_Zr<-data12.3.2020$Zr
KorFak12.3.2020_Zr<-KorFak12.3.2020$lDrift_Zr
Zr<- data12.3.2020_Zr-data12.3.2020_Zr*(KorFak12.3.2020_Zr/100)

data12.3.2020_Nb<-data12.3.2020$Nb
KorFak12.3.2020_Nb<-KorFak12.3.2020$lDrift_Nb
Nb<- data12.3.2020_Nb-data12.3.2020_Nb*(KorFak12.3.2020_Nb/100)

data12.3.2020_Mo<-data12.3.2020$Mo
KorFak12.3.2020_Mo<-KorFak12.3.2020$lDrift_Mo
Mo<- data12.3.2020_Mo-data12.3.2020_Mo*(KorFak12.3.2020_Mo/100)

data12.3.2020_Ag<-data12.3.2020$Ag
KorFak12.3.2020_Ag<-KorFak12.3.2020$lDrift_Ag
Ag<- data12.3.2020_Ag-data12.3.2020_Ag*(KorFak12.3.2020_Ag/100)

data12.3.2020_Cd<-data12.3.2020$Cd
KorFak12.3.2020_Cd<-KorFak12.3.2020$lDrift_Cd
Cd<- data12.3.2020_Cd-data12.3.2020_Cd*(KorFak12.3.2020_Cd/100)

data12.3.2020_Sn<-data12.3.2020$Sn
KorFak12.3.2020_Sn<-KorFak12.3.2020$lDrift_Sn
Sn<- data12.3.2020_Sn-data12.3.2020_Sn*(KorFak12.3.2020_Sn/100)

data12.3.2020_Sb<-data12.3.2020$Sb
KorFak12.3.2020_Sb<-KorFak12.3.2020$lDrift_Sb
Sb<- data12.3.2020_Sb-data12.3.2020_Sb*(KorFak12.3.2020_Sb/100)

data12.3.2020_Te<-data12.3.2020$Te
KorFak12.3.2020_Te<-KorFak12.3.2020$lDrift_Te
Te<- data12.3.2020_Te-data12.3.2020_Te*(KorFak12.3.2020_Te/100)

data12.3.2020_Cs<-data12.3.2020$Cs
KorFak12.3.2020_Cs<-KorFak12.3.2020$lDrift_Cs
Cs<- data12.3.2020_Cs-data12.3.2020_Cs*(KorFak12.3.2020_Cs/100)

data12.3.2020_Ba<-data12.3.2020$Ba
KorFak12.3.2020_Ba<-KorFak12.3.2020$lDrift_Ba
Ba<- data12.3.2020_Ba-data12.3.2020_Ba*(KorFak12.3.2020_Ba/100)

data12.3.2020_La<-data12.3.2020$La
KorFak12.3.2020_La<-KorFak12.3.2020$lDrift_La
La<- data12.3.2020_La-data12.3.2020_La*(KorFak12.3.2020_La/100)

data12.3.2020_Pb<-data12.3.2020$Pb
KorFak12.3.2020_Pb<-KorFak12.3.2020$lDrift_Pb
Pb<- data12.3.2020_Pb-data12.3.2020_Pb*(KorFak12.3.2020_Pb/100)

data12.3.2020_Th<-data12.3.2020$Th
KorFak12.3.2020_Th<-KorFak12.3.2020$lDrift_Th
Th<- data12.3.2020_Th-data12.3.2020_Th*(KorFak12.3.2020_Th/100)

data12.3.2020_U<-data12.3.2020$U
KorFak12.3.2020_U<-KorFak12.3.2020$lDrift_U
U<- data12.3.2020_U-data12.3.2020_U*(KorFak12.3.2020_U/100)

Data_OG_lDrift_Kor12.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.14 l-Drift Korrektur des 13.3.2020

KorFak13.3.2020<-KorFak %>% filter(Datum_median=="13.3.2020")
data13.3.2020<-data %>% filter(Datum=="13.3.2020")
Probennummer<-data13.3.2020$Probennummer
Datum<-data13.3.2020$Datum

data13.3.2020_Si<-data13.3.2020$Si
KorFak13.3.2020_Si<-KorFak13.3.2020$lDrift_Si
Si<- data13.3.2020_Si-data13.3.2020_Si*(KorFak13.3.2020_Si/100)

data13.3.2020_Ti<-data13.3.2020$Ti
KorFak13.3.2020_Ti<-KorFak13.3.2020$lDrift_Ti
Ti<- data13.3.2020_Ti-data13.3.2020_Ti*(KorFak13.3.2020_Ti/100)

data13.3.2020_Al<-data13.3.2020$Al
KorFak13.3.2020_Al<-KorFak13.3.2020$lDrift_Al
Al<- data13.3.2020_Al-data13.3.2020_Al*(KorFak13.3.2020_Al/100)

data13.3.2020_Fe<-data13.3.2020$Fe
KorFak13.3.2020_Fe<-KorFak13.3.2020$lDrift_Fe
Fe<- data13.3.2020_Fe-data13.3.2020_Fe*(KorFak13.3.2020_Fe/100)

data13.3.2020_Mn<-data13.3.2020$Mn
KorFak13.3.2020_Mn<-KorFak13.3.2020$lDrift_Mn
Mn<- data13.3.2020_Mn-data13.3.2020_Mn*(KorFak13.3.2020_Mn/100)

data13.3.2020_Mg<-data13.3.2020$Mg
KorFak13.3.2020_Mg<-KorFak13.3.2020$lDrift_Mg
Mg<- data13.3.2020_Mg-data13.3.2020_Mg*(KorFak13.3.2020_Mg/100)

data13.3.2020_Ca<-data13.3.2020$Ca
KorFak13.3.2020_Ca<-KorFak13.3.2020$lDrift_Ca
Ca<- data13.3.2020_Ca-data13.3.2020_Ca*(KorFak13.3.2020_Ca/100)

data13.3.2020_K<-data13.3.2020$K
KorFak13.3.2020_K<-KorFak13.3.2020$lDrift_K
K<- data13.3.2020_K-data13.3.2020_K*(KorFak13.3.2020_K/100)

data13.3.2020_P<-data13.3.2020$P
KorFak13.3.2020_P<-KorFak13.3.2020$lDrift_P
P<- data13.3.2020_P-data13.3.2020_P*(KorFak13.3.2020_P/100)

data13.3.2020_S<-data13.3.2020$S
KorFak13.3.2020_S<-KorFak13.3.2020$lDrift_S
S<- data13.3.2020_S-data13.3.2020_S*(KorFak13.3.2020_S/100)

data13.3.2020_Cl<-data13.3.2020$Cl
KorFak13.3.2020_Cl<-KorFak13.3.2020$lDrift_Cl
Cl<- data13.3.2020_Cl-data13.3.2020_Cl*(KorFak13.3.2020_Cl/100)

data13.3.2020_V<-data13.3.2020$V
KorFak13.3.2020_V<-KorFak13.3.2020$lDrift_V
V<- data13.3.2020_V-data13.3.2020_V*(KorFak13.3.2020_V/100)

data13.3.2020_Cr<-data13.3.2020$Cr
KorFak13.3.2020_Cr<-KorFak13.3.2020$lDrift_Cr
Cr<- data13.3.2020_Cr-data13.3.2020_Cr*(KorFak13.3.2020_Cr/100)

data13.3.2020_Ni<-data13.3.2020$Ni
KorFak13.3.2020_Ni<-KorFak13.3.2020$lDrift_Ni
Ni<- data13.3.2020_Ni-data13.3.2020_Ni*(KorFak13.3.2020_Ni/100)

data13.3.2020_Cu<-data13.3.2020$Cu
KorFak13.3.2020_Cu<-KorFak13.3.2020$lDrift_Cu
Cu<- data13.3.2020_Cu-data13.3.2020_Cu*(KorFak13.3.2020_Cu/100)

data13.3.2020_Zn<-data13.3.2020$Zn
KorFak13.3.2020_Zn<-KorFak13.3.2020$lDrift_Zn
Zn<- data13.3.2020_Zn-data13.3.2020_Zn*(KorFak13.3.2020_Zn/100)

data13.3.2020_As<-data13.3.2020$As
KorFak13.3.2020_As<-KorFak13.3.2020$lDrift_As
As<- data13.3.2020_As-data13.3.2020_As*(KorFak13.3.2020_As/100)

data13.3.2020_Se<-data13.3.2020$Se
KorFak13.3.2020_Se<-KorFak13.3.2020$lDrift_Se
Se<- data13.3.2020_Se-data13.3.2020_Se*(KorFak13.3.2020_Se/100)

data13.3.2020_Rb<-data13.3.2020$Rb
KorFak13.3.2020_Rb<-KorFak13.3.2020$lDrift_Rb
Rb<- data13.3.2020_Rb-data13.3.2020_Rb*(KorFak13.3.2020_Rb/100)

data13.3.2020_Sr<-data13.3.2020$Sr
KorFak13.3.2020_Sr<-KorFak13.3.2020$lDrift_Sr
Sr<- data13.3.2020_Sr-data13.3.2020_Sr*(KorFak13.3.2020_Sr/100)

data13.3.2020_Y<-data13.3.2020$Y
KorFak13.3.2020_Y<-KorFak13.3.2020$lDrift_Y
Y<- data13.3.2020_Y-data13.3.2020_Y*(KorFak13.3.2020_Y/100)

data13.3.2020_Zr<-data13.3.2020$Zr
KorFak13.3.2020_Zr<-KorFak13.3.2020$lDrift_Zr
Zr<- data13.3.2020_Zr-data13.3.2020_Zr*(KorFak13.3.2020_Zr/100)

data13.3.2020_Nb<-data13.3.2020$Nb
KorFak13.3.2020_Nb<-KorFak13.3.2020$lDrift_Nb
Nb<- data13.3.2020_Nb-data13.3.2020_Nb*(KorFak13.3.2020_Nb/100)

data13.3.2020_Mo<-data13.3.2020$Mo
KorFak13.3.2020_Mo<-KorFak13.3.2020$lDrift_Mo
Mo<- data13.3.2020_Mo-data13.3.2020_Mo*(KorFak13.3.2020_Mo/100)

data13.3.2020_Ag<-data13.3.2020$Ag
KorFak13.3.2020_Ag<-KorFak13.3.2020$lDrift_Ag
Ag<- data13.3.2020_Ag-data13.3.2020_Ag*(KorFak13.3.2020_Ag/100)

data13.3.2020_Cd<-data13.3.2020$Cd
KorFak13.3.2020_Cd<-KorFak13.3.2020$lDrift_Cd
Cd<- data13.3.2020_Cd-data13.3.2020_Cd*(KorFak13.3.2020_Cd/100)

data13.3.2020_Sn<-data13.3.2020$Sn
KorFak13.3.2020_Sn<-KorFak13.3.2020$lDrift_Sn
Sn<- data13.3.2020_Sn-data13.3.2020_Sn*(KorFak13.3.2020_Sn/100)

data13.3.2020_Sb<-data13.3.2020$Sb
KorFak13.3.2020_Sb<-KorFak13.3.2020$lDrift_Sb
Sb<- data13.3.2020_Sb-data13.3.2020_Sb*(KorFak13.3.2020_Sb/100)

data13.3.2020_Te<-data13.3.2020$Te
KorFak13.3.2020_Te<-KorFak13.3.2020$lDrift_Te
Te<- data13.3.2020_Te-data13.3.2020_Te*(KorFak13.3.2020_Te/100)

data13.3.2020_Cs<-data13.3.2020$Cs
KorFak13.3.2020_Cs<-KorFak13.3.2020$lDrift_Cs
Cs<- data13.3.2020_Cs-data13.3.2020_Cs*(KorFak13.3.2020_Cs/100)

data13.3.2020_Ba<-data13.3.2020$Ba
KorFak13.3.2020_Ba<-KorFak13.3.2020$lDrift_Ba
Ba<- data13.3.2020_Ba-data13.3.2020_Ba*(KorFak13.3.2020_Ba/100)

data13.3.2020_La<-data13.3.2020$La
KorFak13.3.2020_La<-KorFak13.3.2020$lDrift_La
La<- data13.3.2020_La-data13.3.2020_La*(KorFak13.3.2020_La/100)

data13.3.2020_Pb<-data13.3.2020$Pb
KorFak13.3.2020_Pb<-KorFak13.3.2020$lDrift_Pb
Pb<- data13.3.2020_Pb-data13.3.2020_Pb*(KorFak13.3.2020_Pb/100)

data13.3.2020_Th<-data13.3.2020$Th
KorFak13.3.2020_Th<-KorFak13.3.2020$lDrift_Th
Th<- data13.3.2020_Th-data13.3.2020_Th*(KorFak13.3.2020_Th/100)

data13.3.2020_U<-data13.3.2020$U
KorFak13.3.2020_U<-KorFak13.3.2020$lDrift_U
U<- data13.3.2020_U-data13.3.2020_U*(KorFak13.3.2020_U/100)

Data_OG_lDrift_Kor13.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.15 l-Drift Korrektur des 14.3.2020

KorFak14.3.2020<-KorFak %>% filter(Datum_median=="14.3.2020")
data14.3.2020<-data %>% filter(Datum=="14.3.2020")
Probennummer<-data14.3.2020$Probennummer
Datum<-data14.3.2020$Datum

data14.3.2020_Si<-data14.3.2020$Si
KorFak14.3.2020_Si<-KorFak14.3.2020$lDrift_Si
Si<- data14.3.2020_Si-data14.3.2020_Si*(KorFak14.3.2020_Si/100)

data14.3.2020_Ti<-data14.3.2020$Ti
KorFak14.3.2020_Ti<-KorFak14.3.2020$lDrift_Ti
Ti<- data14.3.2020_Ti-data14.3.2020_Ti*(KorFak14.3.2020_Ti/100)

data14.3.2020_Al<-data14.3.2020$Al
KorFak14.3.2020_Al<-KorFak14.3.2020$lDrift_Al
Al<- data14.3.2020_Al-data14.3.2020_Al*(KorFak14.3.2020_Al/100)

data14.3.2020_Fe<-data14.3.2020$Fe
KorFak14.3.2020_Fe<-KorFak14.3.2020$lDrift_Fe
Fe<- data14.3.2020_Fe-data14.3.2020_Fe*(KorFak14.3.2020_Fe/100)

data14.3.2020_Mn<-data14.3.2020$Mn
KorFak14.3.2020_Mn<-KorFak14.3.2020$lDrift_Mn
Mn<- data14.3.2020_Mn-data14.3.2020_Mn*(KorFak14.3.2020_Mn/100)

data14.3.2020_Mg<-data14.3.2020$Mg
KorFak14.3.2020_Mg<-KorFak14.3.2020$lDrift_Mg
Mg<- data14.3.2020_Mg-data14.3.2020_Mg*(KorFak14.3.2020_Mg/100)

data14.3.2020_Ca<-data14.3.2020$Ca
KorFak14.3.2020_Ca<-KorFak14.3.2020$lDrift_Ca
Ca<- data14.3.2020_Ca-data14.3.2020_Ca*(KorFak14.3.2020_Ca/100)

data14.3.2020_K<-data14.3.2020$K
KorFak14.3.2020_K<-KorFak14.3.2020$lDrift_K
K<- data14.3.2020_K-data14.3.2020_K*(KorFak14.3.2020_K/100)

data14.3.2020_P<-data14.3.2020$P
KorFak14.3.2020_P<-KorFak14.3.2020$lDrift_P
P<- data14.3.2020_P-data14.3.2020_P*(KorFak14.3.2020_P/100)

data14.3.2020_S<-data14.3.2020$S
KorFak14.3.2020_S<-KorFak14.3.2020$lDrift_S
S<- data14.3.2020_S-data14.3.2020_S*(KorFak14.3.2020_S/100)

data14.3.2020_Cl<-data14.3.2020$Cl
KorFak14.3.2020_Cl<-KorFak14.3.2020$lDrift_Cl
Cl<- data14.3.2020_Cl-data14.3.2020_Cl*(KorFak14.3.2020_Cl/100)

data14.3.2020_V<-data14.3.2020$V
KorFak14.3.2020_V<-KorFak14.3.2020$lDrift_V
V<- data14.3.2020_V-data14.3.2020_V*(KorFak14.3.2020_V/100)

data14.3.2020_Cr<-data14.3.2020$Cr
KorFak14.3.2020_Cr<-KorFak14.3.2020$lDrift_Cr
Cr<- data14.3.2020_Cr-data14.3.2020_Cr*(KorFak14.3.2020_Cr/100)

data14.3.2020_Ni<-data14.3.2020$Ni
KorFak14.3.2020_Ni<-KorFak14.3.2020$lDrift_Ni
Ni<- data14.3.2020_Ni-data14.3.2020_Ni*(KorFak14.3.2020_Ni/100)

data14.3.2020_Cu<-data14.3.2020$Cu
KorFak14.3.2020_Cu<-KorFak14.3.2020$lDrift_Cu
Cu<- data14.3.2020_Cu-data14.3.2020_Cu*(KorFak14.3.2020_Cu/100)

data14.3.2020_Zn<-data14.3.2020$Zn
KorFak14.3.2020_Zn<-KorFak14.3.2020$lDrift_Zn
Zn<- data14.3.2020_Zn-data14.3.2020_Zn*(KorFak14.3.2020_Zn/100)

data14.3.2020_As<-data14.3.2020$As
KorFak14.3.2020_As<-KorFak14.3.2020$lDrift_As
As<- data14.3.2020_As-data14.3.2020_As*(KorFak14.3.2020_As/100)

data14.3.2020_Se<-data14.3.2020$Se
KorFak14.3.2020_Se<-KorFak14.3.2020$lDrift_Se
Se<- data14.3.2020_Se-data14.3.2020_Se*(KorFak14.3.2020_Se/100)

data14.3.2020_Rb<-data14.3.2020$Rb
KorFak14.3.2020_Rb<-KorFak14.3.2020$lDrift_Rb
Rb<- data14.3.2020_Rb-data14.3.2020_Rb*(KorFak14.3.2020_Rb/100)

data14.3.2020_Sr<-data14.3.2020$Sr
KorFak14.3.2020_Sr<-KorFak14.3.2020$lDrift_Sr
Sr<- data14.3.2020_Sr-data14.3.2020_Sr*(KorFak14.3.2020_Sr/100)

data14.3.2020_Y<-data14.3.2020$Y
KorFak14.3.2020_Y<-KorFak14.3.2020$lDrift_Y
Y<- data14.3.2020_Y-data14.3.2020_Y*(KorFak14.3.2020_Y/100)

data14.3.2020_Zr<-data14.3.2020$Zr
KorFak14.3.2020_Zr<-KorFak14.3.2020$lDrift_Zr
Zr<- data14.3.2020_Zr-data14.3.2020_Zr*(KorFak14.3.2020_Zr/100)

data14.3.2020_Nb<-data14.3.2020$Nb
KorFak14.3.2020_Nb<-KorFak14.3.2020$lDrift_Nb
Nb<- data14.3.2020_Nb-data14.3.2020_Nb*(KorFak14.3.2020_Nb/100)

data14.3.2020_Mo<-data14.3.2020$Mo
KorFak14.3.2020_Mo<-KorFak14.3.2020$lDrift_Mo
Mo<- data14.3.2020_Mo-data14.3.2020_Mo*(KorFak14.3.2020_Mo/100)

data14.3.2020_Ag<-data14.3.2020$Ag
KorFak14.3.2020_Ag<-KorFak14.3.2020$lDrift_Ag
Ag<- data14.3.2020_Ag-data14.3.2020_Ag*(KorFak14.3.2020_Ag/100)

data14.3.2020_Cd<-data14.3.2020$Cd
KorFak14.3.2020_Cd<-KorFak14.3.2020$lDrift_Cd
Cd<- data14.3.2020_Cd-data14.3.2020_Cd*(KorFak14.3.2020_Cd/100)

data14.3.2020_Sn<-data14.3.2020$Sn
KorFak14.3.2020_Sn<-KorFak14.3.2020$lDrift_Sn
Sn<- data14.3.2020_Sn-data14.3.2020_Sn*(KorFak14.3.2020_Sn/100)

data14.3.2020_Sb<-data14.3.2020$Sb
KorFak14.3.2020_Sb<-KorFak14.3.2020$lDrift_Sb
Sb<- data14.3.2020_Sb-data14.3.2020_Sb*(KorFak14.3.2020_Sb/100)

data14.3.2020_Te<-data14.3.2020$Te
KorFak14.3.2020_Te<-KorFak14.3.2020$lDrift_Te
Te<- data14.3.2020_Te-data14.3.2020_Te*(KorFak14.3.2020_Te/100)

data14.3.2020_Cs<-data14.3.2020$Cs
KorFak14.3.2020_Cs<-KorFak14.3.2020$lDrift_Cs
Cs<- data14.3.2020_Cs-data14.3.2020_Cs*(KorFak14.3.2020_Cs/100)

data14.3.2020_Ba<-data14.3.2020$Ba
KorFak14.3.2020_Ba<-KorFak14.3.2020$lDrift_Ba
Ba<- data14.3.2020_Ba-data14.3.2020_Ba*(KorFak14.3.2020_Ba/100)

data14.3.2020_La<-data14.3.2020$La
KorFak14.3.2020_La<-KorFak14.3.2020$lDrift_La
La<- data14.3.2020_La-data14.3.2020_La*(KorFak14.3.2020_La/100)

data14.3.2020_Pb<-data14.3.2020$Pb
KorFak14.3.2020_Pb<-KorFak14.3.2020$lDrift_Pb
Pb<- data14.3.2020_Pb-data14.3.2020_Pb*(KorFak14.3.2020_Pb/100)

data14.3.2020_Th<-data14.3.2020$Th
KorFak14.3.2020_Th<-KorFak14.3.2020$lDrift_Th
Th<- data14.3.2020_Th-data14.3.2020_Th*(KorFak14.3.2020_Th/100)

data14.3.2020_U<-data14.3.2020$U
KorFak14.3.2020_U<-KorFak14.3.2020$lDrift_U
U<- data14.3.2020_U-data14.3.2020_U*(KorFak14.3.2020_U/100)

Data_OG_lDrift_Kor14.3.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.16 l-Drift Korrektur des 25.5.2020

KorFak25.5.2020<-KorFak %>% filter(Datum_median=="25.5.2020")
data25.5.2020<-data %>% filter(Datum=="25.5.2020")
Probennummer<-data25.5.2020$Probennummer
Datum<-data25.5.2020$Datum

data25.5.2020_Si<-data25.5.2020$Si
KorFak25.5.2020_Si<-KorFak25.5.2020$lDrift_Si
Si<- data25.5.2020_Si-data25.5.2020_Si*(KorFak25.5.2020_Si/100)

data25.5.2020_Ti<-data25.5.2020$Ti
KorFak25.5.2020_Ti<-KorFak25.5.2020$lDrift_Ti
Ti<- data25.5.2020_Ti-data25.5.2020_Ti*(KorFak25.5.2020_Ti/100)

data25.5.2020_Al<-data25.5.2020$Al
KorFak25.5.2020_Al<-KorFak25.5.2020$lDrift_Al
Al<- data25.5.2020_Al-data25.5.2020_Al*(KorFak25.5.2020_Al/100)

data25.5.2020_Fe<-data25.5.2020$Fe
KorFak25.5.2020_Fe<-KorFak25.5.2020$lDrift_Fe
Fe<- data25.5.2020_Fe-data25.5.2020_Fe*(KorFak25.5.2020_Fe/100)

data25.5.2020_Mn<-data25.5.2020$Mn
KorFak25.5.2020_Mn<-KorFak25.5.2020$lDrift_Mn
Mn<- data25.5.2020_Mn-data25.5.2020_Mn*(KorFak25.5.2020_Mn/100)

data25.5.2020_Mg<-data25.5.2020$Mg
KorFak25.5.2020_Mg<-KorFak25.5.2020$lDrift_Mg
Mg<- data25.5.2020_Mg-data25.5.2020_Mg*(KorFak25.5.2020_Mg/100)

data25.5.2020_Ca<-data25.5.2020$Ca
KorFak25.5.2020_Ca<-KorFak25.5.2020$lDrift_Ca
Ca<- data25.5.2020_Ca-data25.5.2020_Ca*(KorFak25.5.2020_Ca/100)

data25.5.2020_K<-data25.5.2020$K
KorFak25.5.2020_K<-KorFak25.5.2020$lDrift_K
K<- data25.5.2020_K-data25.5.2020_K*(KorFak25.5.2020_K/100)

data25.5.2020_P<-data25.5.2020$P
KorFak25.5.2020_P<-KorFak25.5.2020$lDrift_P
P<- data25.5.2020_P-data25.5.2020_P*(KorFak25.5.2020_P/100)

data25.5.2020_S<-data25.5.2020$S
KorFak25.5.2020_S<-KorFak25.5.2020$lDrift_S
S<- data25.5.2020_S-data25.5.2020_S*(KorFak25.5.2020_S/100)

data25.5.2020_Cl<-data25.5.2020$Cl
KorFak25.5.2020_Cl<-KorFak25.5.2020$lDrift_Cl
Cl<- data25.5.2020_Cl-data25.5.2020_Cl*(KorFak25.5.2020_Cl/100)

data25.5.2020_V<-data25.5.2020$V
KorFak25.5.2020_V<-KorFak25.5.2020$lDrift_V
V<- data25.5.2020_V-data25.5.2020_V*(KorFak25.5.2020_V/100)

data25.5.2020_Cr<-data25.5.2020$Cr
KorFak25.5.2020_Cr<-KorFak25.5.2020$lDrift_Cr
Cr<- data25.5.2020_Cr-data25.5.2020_Cr*(KorFak25.5.2020_Cr/100)

data25.5.2020_Ni<-data25.5.2020$Ni
KorFak25.5.2020_Ni<-KorFak25.5.2020$lDrift_Ni
Ni<- data25.5.2020_Ni-data25.5.2020_Ni*(KorFak25.5.2020_Ni/100)

data25.5.2020_Cu<-data25.5.2020$Cu
KorFak25.5.2020_Cu<-KorFak25.5.2020$lDrift_Cu
Cu<- data25.5.2020_Cu-data25.5.2020_Cu*(KorFak25.5.2020_Cu/100)

data25.5.2020_Zn<-data25.5.2020$Zn
KorFak25.5.2020_Zn<-KorFak25.5.2020$lDrift_Zn
Zn<- data25.5.2020_Zn-data25.5.2020_Zn*(KorFak25.5.2020_Zn/100)

data25.5.2020_As<-data25.5.2020$As
KorFak25.5.2020_As<-KorFak25.5.2020$lDrift_As
As<- data25.5.2020_As-data25.5.2020_As*(KorFak25.5.2020_As/100)

data25.5.2020_Se<-data25.5.2020$Se
KorFak25.5.2020_Se<-KorFak25.5.2020$lDrift_Se
Se<- data25.5.2020_Se-data25.5.2020_Se*(KorFak25.5.2020_Se/100)

data25.5.2020_Rb<-data25.5.2020$Rb
KorFak25.5.2020_Rb<-KorFak25.5.2020$lDrift_Rb
Rb<- data25.5.2020_Rb-data25.5.2020_Rb*(KorFak25.5.2020_Rb/100)

data25.5.2020_Sr<-data25.5.2020$Sr
KorFak25.5.2020_Sr<-KorFak25.5.2020$lDrift_Sr
Sr<- data25.5.2020_Sr-data25.5.2020_Sr*(KorFak25.5.2020_Sr/100)

data25.5.2020_Y<-data25.5.2020$Y
KorFak25.5.2020_Y<-KorFak25.5.2020$lDrift_Y
Y<- data25.5.2020_Y-data25.5.2020_Y*(KorFak25.5.2020_Y/100)

data25.5.2020_Zr<-data25.5.2020$Zr
KorFak25.5.2020_Zr<-KorFak25.5.2020$lDrift_Zr
Zr<- data25.5.2020_Zr-data25.5.2020_Zr*(KorFak25.5.2020_Zr/100)

data25.5.2020_Nb<-data25.5.2020$Nb
KorFak25.5.2020_Nb<-KorFak25.5.2020$lDrift_Nb
Nb<- data25.5.2020_Nb-data25.5.2020_Nb*(KorFak25.5.2020_Nb/100)

data25.5.2020_Mo<-data25.5.2020$Mo
KorFak25.5.2020_Mo<-KorFak25.5.2020$lDrift_Mo
Mo<- data25.5.2020_Mo-data25.5.2020_Mo*(KorFak25.5.2020_Mo/100)

data25.5.2020_Ag<-data25.5.2020$Ag
KorFak25.5.2020_Ag<-KorFak25.5.2020$lDrift_Ag
Ag<- data25.5.2020_Ag-data25.5.2020_Ag*(KorFak25.5.2020_Ag/100)

data25.5.2020_Cd<-data25.5.2020$Cd
KorFak25.5.2020_Cd<-KorFak25.5.2020$lDrift_Cd
Cd<- data25.5.2020_Cd-data25.5.2020_Cd*(KorFak25.5.2020_Cd/100)

data25.5.2020_Sn<-data25.5.2020$Sn
KorFak25.5.2020_Sn<-KorFak25.5.2020$lDrift_Sn
Sn<- data25.5.2020_Sn-data25.5.2020_Sn*(KorFak25.5.2020_Sn/100)

data25.5.2020_Sb<-data25.5.2020$Sb
KorFak25.5.2020_Sb<-KorFak25.5.2020$lDrift_Sb
Sb<- data25.5.2020_Sb-data25.5.2020_Sb*(KorFak25.5.2020_Sb/100)

data25.5.2020_Te<-data25.5.2020$Te
KorFak25.5.2020_Te<-KorFak25.5.2020$lDrift_Te
Te<- data25.5.2020_Te-data25.5.2020_Te*(KorFak25.5.2020_Te/100)

data25.5.2020_Cs<-data25.5.2020$Cs
KorFak25.5.2020_Cs<-KorFak25.5.2020$lDrift_Cs
Cs<- data25.5.2020_Cs-data25.5.2020_Cs*(KorFak25.5.2020_Cs/100)

data25.5.2020_Ba<-data25.5.2020$Ba
KorFak25.5.2020_Ba<-KorFak25.5.2020$lDrift_Ba
Ba<- data25.5.2020_Ba-data25.5.2020_Ba*(KorFak25.5.2020_Ba/100)

data25.5.2020_La<-data25.5.2020$La
KorFak25.5.2020_La<-KorFak25.5.2020$lDrift_La
La<- data25.5.2020_La-data25.5.2020_La*(KorFak25.5.2020_La/100)

data25.5.2020_Pb<-data25.5.2020$Pb
KorFak25.5.2020_Pb<-KorFak25.5.2020$lDrift_Pb
Pb<- data25.5.2020_Pb-data25.5.2020_Pb*(KorFak25.5.2020_Pb/100)

data25.5.2020_Th<-data25.5.2020$Th
KorFak25.5.2020_Th<-KorFak25.5.2020$lDrift_Th
Th<- data25.5.2020_Th-data25.5.2020_Th*(KorFak25.5.2020_Th/100)

data25.5.2020_U<-data25.5.2020$U
KorFak25.5.2020_U<-KorFak25.5.2020$lDrift_U
U<- data25.5.2020_U-data25.5.2020_U*(KorFak25.5.2020_U/100)

Data_OG_lDrift_Kor25.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.17 l-Drift Korrektur des 26.5.2020

KorFak26.5.2020<-KorFak %>% filter(Datum_median=="26.5.2020")
data26.5.2020<-data %>% filter(Datum=="26.5.2020")
Probennummer<-data26.5.2020$Probennummer
Datum<-data26.5.2020$Datum

data26.5.2020_Si<-data26.5.2020$Si
KorFak26.5.2020_Si<-KorFak26.5.2020$lDrift_Si
Si<- data26.5.2020_Si-data26.5.2020_Si*(KorFak26.5.2020_Si/100)

data26.5.2020_Ti<-data26.5.2020$Ti
KorFak26.5.2020_Ti<-KorFak26.5.2020$lDrift_Ti
Ti<- data26.5.2020_Ti-data26.5.2020_Ti*(KorFak26.5.2020_Ti/100)

data26.5.2020_Al<-data26.5.2020$Al
KorFak26.5.2020_Al<-KorFak26.5.2020$lDrift_Al
Al<- data26.5.2020_Al-data26.5.2020_Al*(KorFak26.5.2020_Al/100)

data26.5.2020_Fe<-data26.5.2020$Fe
KorFak26.5.2020_Fe<-KorFak26.5.2020$lDrift_Fe
Fe<- data26.5.2020_Fe-data26.5.2020_Fe*(KorFak26.5.2020_Fe/100)

data26.5.2020_Mn<-data26.5.2020$Mn
KorFak26.5.2020_Mn<-KorFak26.5.2020$lDrift_Mn
Mn<- data26.5.2020_Mn-data26.5.2020_Mn*(KorFak26.5.2020_Mn/100)

data26.5.2020_Mg<-data26.5.2020$Mg
KorFak26.5.2020_Mg<-KorFak26.5.2020$lDrift_Mg
Mg<- data26.5.2020_Mg-data26.5.2020_Mg*(KorFak26.5.2020_Mg/100)

data26.5.2020_Ca<-data26.5.2020$Ca
KorFak26.5.2020_Ca<-KorFak26.5.2020$lDrift_Ca
Ca<- data26.5.2020_Ca-data26.5.2020_Ca*(KorFak26.5.2020_Ca/100)

data26.5.2020_K<-data26.5.2020$K
KorFak26.5.2020_K<-KorFak26.5.2020$lDrift_K
K<- data26.5.2020_K-data26.5.2020_K*(KorFak26.5.2020_K/100)

data26.5.2020_P<-data26.5.2020$P
KorFak26.5.2020_P<-KorFak26.5.2020$lDrift_P
P<- data26.5.2020_P-data26.5.2020_P*(KorFak26.5.2020_P/100)

data26.5.2020_S<-data26.5.2020$S
KorFak26.5.2020_S<-KorFak26.5.2020$lDrift_S
S<- data26.5.2020_S-data26.5.2020_S*(KorFak26.5.2020_S/100)

data26.5.2020_Cl<-data26.5.2020$Cl
KorFak26.5.2020_Cl<-KorFak26.5.2020$lDrift_Cl
Cl<- data26.5.2020_Cl-data26.5.2020_Cl*(KorFak26.5.2020_Cl/100)

data26.5.2020_V<-data26.5.2020$V
KorFak26.5.2020_V<-KorFak26.5.2020$lDrift_V
V<- data26.5.2020_V-data26.5.2020_V*(KorFak26.5.2020_V/100)

data26.5.2020_Cr<-data26.5.2020$Cr
KorFak26.5.2020_Cr<-KorFak26.5.2020$lDrift_Cr
Cr<- data26.5.2020_Cr-data26.5.2020_Cr*(KorFak26.5.2020_Cr/100)

data26.5.2020_Ni<-data26.5.2020$Ni
KorFak26.5.2020_Ni<-KorFak26.5.2020$lDrift_Ni
Ni<- data26.5.2020_Ni-data26.5.2020_Ni*(KorFak26.5.2020_Ni/100)

data26.5.2020_Cu<-data26.5.2020$Cu
KorFak26.5.2020_Cu<-KorFak26.5.2020$lDrift_Cu
Cu<- data26.5.2020_Cu-data26.5.2020_Cu*(KorFak26.5.2020_Cu/100)

data26.5.2020_Zn<-data26.5.2020$Zn
KorFak26.5.2020_Zn<-KorFak26.5.2020$lDrift_Zn
Zn<- data26.5.2020_Zn-data26.5.2020_Zn*(KorFak26.5.2020_Zn/100)

data26.5.2020_As<-data26.5.2020$As
KorFak26.5.2020_As<-KorFak26.5.2020$lDrift_As
As<- data26.5.2020_As-data26.5.2020_As*(KorFak26.5.2020_As/100)

data26.5.2020_Se<-data26.5.2020$Se
KorFak26.5.2020_Se<-KorFak26.5.2020$lDrift_Se
Se<- data26.5.2020_Se-data26.5.2020_Se*(KorFak26.5.2020_Se/100)

data26.5.2020_Rb<-data26.5.2020$Rb
KorFak26.5.2020_Rb<-KorFak26.5.2020$lDrift_Rb
Rb<- data26.5.2020_Rb-data26.5.2020_Rb*(KorFak26.5.2020_Rb/100)

data26.5.2020_Sr<-data26.5.2020$Sr
KorFak26.5.2020_Sr<-KorFak26.5.2020$lDrift_Sr
Sr<- data26.5.2020_Sr-data26.5.2020_Sr*(KorFak26.5.2020_Sr/100)

data26.5.2020_Y<-data26.5.2020$Y
KorFak26.5.2020_Y<-KorFak26.5.2020$lDrift_Y
Y<- data26.5.2020_Y-data26.5.2020_Y*(KorFak26.5.2020_Y/100)

data26.5.2020_Zr<-data26.5.2020$Zr
KorFak26.5.2020_Zr<-KorFak26.5.2020$lDrift_Zr
Zr<- data26.5.2020_Zr-data26.5.2020_Zr*(KorFak26.5.2020_Zr/100)

data26.5.2020_Nb<-data26.5.2020$Nb
KorFak26.5.2020_Nb<-KorFak26.5.2020$lDrift_Nb
Nb<- data26.5.2020_Nb-data26.5.2020_Nb*(KorFak26.5.2020_Nb/100)

data26.5.2020_Mo<-data26.5.2020$Mo
KorFak26.5.2020_Mo<-KorFak26.5.2020$lDrift_Mo
Mo<- data26.5.2020_Mo-data26.5.2020_Mo*(KorFak26.5.2020_Mo/100)

data26.5.2020_Ag<-data26.5.2020$Ag
KorFak26.5.2020_Ag<-KorFak26.5.2020$lDrift_Ag
Ag<- data26.5.2020_Ag-data26.5.2020_Ag*(KorFak26.5.2020_Ag/100)

data26.5.2020_Cd<-data26.5.2020$Cd
KorFak26.5.2020_Cd<-KorFak26.5.2020$lDrift_Cd
Cd<- data26.5.2020_Cd-data26.5.2020_Cd*(KorFak26.5.2020_Cd/100)

data26.5.2020_Sn<-data26.5.2020$Sn
KorFak26.5.2020_Sn<-KorFak26.5.2020$lDrift_Sn
Sn<- data26.5.2020_Sn-data26.5.2020_Sn*(KorFak26.5.2020_Sn/100)

data26.5.2020_Sb<-data26.5.2020$Sb
KorFak26.5.2020_Sb<-KorFak26.5.2020$lDrift_Sb
Sb<- data26.5.2020_Sb-data26.5.2020_Sb*(KorFak26.5.2020_Sb/100)

data26.5.2020_Te<-data26.5.2020$Te
KorFak26.5.2020_Te<-KorFak26.5.2020$lDrift_Te
Te<- data26.5.2020_Te-data26.5.2020_Te*(KorFak26.5.2020_Te/100)

data26.5.2020_Cs<-data26.5.2020$Cs
KorFak26.5.2020_Cs<-KorFak26.5.2020$lDrift_Cs
Cs<- data26.5.2020_Cs-data26.5.2020_Cs*(KorFak26.5.2020_Cs/100)

data26.5.2020_Ba<-data26.5.2020$Ba
KorFak26.5.2020_Ba<-KorFak26.5.2020$lDrift_Ba
Ba<- data26.5.2020_Ba-data26.5.2020_Ba*(KorFak26.5.2020_Ba/100)

data26.5.2020_La<-data26.5.2020$La
KorFak26.5.2020_La<-KorFak26.5.2020$lDrift_La
La<- data26.5.2020_La-data26.5.2020_La*(KorFak26.5.2020_La/100)

data26.5.2020_Pb<-data26.5.2020$Pb
KorFak26.5.2020_Pb<-KorFak26.5.2020$lDrift_Pb
Pb<- data26.5.2020_Pb-data26.5.2020_Pb*(KorFak26.5.2020_Pb/100)

data26.5.2020_Th<-data26.5.2020$Th
KorFak26.5.2020_Th<-KorFak26.5.2020$lDrift_Th
Th<- data26.5.2020_Th-data26.5.2020_Th*(KorFak26.5.2020_Th/100)

data26.5.2020_U<-data26.5.2020$U
KorFak26.5.2020_U<-KorFak26.5.2020$lDrift_U
U<- data26.5.2020_U-data26.5.2020_U*(KorFak26.5.2020_U/100)

Data_OG_lDrift_Kor26.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.18 l-Drift Korrektur des 27.5.2020

KorFak27.5.2020<-KorFak %>% filter(Datum_median=="27.5.2020")
data27.5.2020<-data %>% filter(Datum=="27.5.2020")
Probennummer<-data27.5.2020$Probennummer
Datum<-data27.5.2020$Datum

data27.5.2020_Si<-data27.5.2020$Si
KorFak27.5.2020_Si<-KorFak27.5.2020$lDrift_Si
Si<- data27.5.2020_Si-data27.5.2020_Si*(KorFak27.5.2020_Si/100)

data27.5.2020_Ti<-data27.5.2020$Ti
KorFak27.5.2020_Ti<-KorFak27.5.2020$lDrift_Ti
Ti<- data27.5.2020_Ti-data27.5.2020_Ti*(KorFak27.5.2020_Ti/100)

data27.5.2020_Al<-data27.5.2020$Al
KorFak27.5.2020_Al<-KorFak27.5.2020$lDrift_Al
Al<- data27.5.2020_Al-data27.5.2020_Al*(KorFak27.5.2020_Al/100)

data27.5.2020_Fe<-data27.5.2020$Fe
KorFak27.5.2020_Fe<-KorFak27.5.2020$lDrift_Fe
Fe<- data27.5.2020_Fe-data27.5.2020_Fe*(KorFak27.5.2020_Fe/100)

data27.5.2020_Mn<-data27.5.2020$Mn
KorFak27.5.2020_Mn<-KorFak27.5.2020$lDrift_Mn
Mn<- data27.5.2020_Mn-data27.5.2020_Mn*(KorFak27.5.2020_Mn/100)

data27.5.2020_Mg<-data27.5.2020$Mg
KorFak27.5.2020_Mg<-KorFak27.5.2020$lDrift_Mg
Mg<- data27.5.2020_Mg-data27.5.2020_Mg*(KorFak27.5.2020_Mg/100)

data27.5.2020_Ca<-data27.5.2020$Ca
KorFak27.5.2020_Ca<-KorFak27.5.2020$lDrift_Ca
Ca<- data27.5.2020_Ca-data27.5.2020_Ca*(KorFak27.5.2020_Ca/100)

data27.5.2020_K<-data27.5.2020$K
KorFak27.5.2020_K<-KorFak27.5.2020$lDrift_K
K<- data27.5.2020_K-data27.5.2020_K*(KorFak27.5.2020_K/100)

data27.5.2020_P<-data27.5.2020$P
KorFak27.5.2020_P<-KorFak27.5.2020$lDrift_P
P<- data27.5.2020_P-data27.5.2020_P*(KorFak27.5.2020_P/100)

data27.5.2020_S<-data27.5.2020$S
KorFak27.5.2020_S<-KorFak27.5.2020$lDrift_S
S<- data27.5.2020_S-data27.5.2020_S*(KorFak27.5.2020_S/100)

data27.5.2020_Cl<-data27.5.2020$Cl
KorFak27.5.2020_Cl<-KorFak27.5.2020$lDrift_Cl
Cl<- data27.5.2020_Cl-data27.5.2020_Cl*(KorFak27.5.2020_Cl/100)

data27.5.2020_V<-data27.5.2020$V
KorFak27.5.2020_V<-KorFak27.5.2020$lDrift_V
V<- data27.5.2020_V-data27.5.2020_V*(KorFak27.5.2020_V/100)

data27.5.2020_Cr<-data27.5.2020$Cr
KorFak27.5.2020_Cr<-KorFak27.5.2020$lDrift_Cr
Cr<- data27.5.2020_Cr-data27.5.2020_Cr*(KorFak27.5.2020_Cr/100)

data27.5.2020_Ni<-data27.5.2020$Ni
KorFak27.5.2020_Ni<-KorFak27.5.2020$lDrift_Ni
Ni<- data27.5.2020_Ni-data27.5.2020_Ni*(KorFak27.5.2020_Ni/100)

data27.5.2020_Cu<-data27.5.2020$Cu
KorFak27.5.2020_Cu<-KorFak27.5.2020$lDrift_Cu
Cu<- data27.5.2020_Cu-data27.5.2020_Cu*(KorFak27.5.2020_Cu/100)

data27.5.2020_Zn<-data27.5.2020$Zn
KorFak27.5.2020_Zn<-KorFak27.5.2020$lDrift_Zn
Zn<- data27.5.2020_Zn-data27.5.2020_Zn*(KorFak27.5.2020_Zn/100)

data27.5.2020_As<-data27.5.2020$As
KorFak27.5.2020_As<-KorFak27.5.2020$lDrift_As
As<- data27.5.2020_As-data27.5.2020_As*(KorFak27.5.2020_As/100)

data27.5.2020_Se<-data27.5.2020$Se
KorFak27.5.2020_Se<-KorFak27.5.2020$lDrift_Se
Se<- data27.5.2020_Se-data27.5.2020_Se*(KorFak27.5.2020_Se/100)

data27.5.2020_Rb<-data27.5.2020$Rb
KorFak27.5.2020_Rb<-KorFak27.5.2020$lDrift_Rb
Rb<- data27.5.2020_Rb-data27.5.2020_Rb*(KorFak27.5.2020_Rb/100)

data27.5.2020_Sr<-data27.5.2020$Sr
KorFak27.5.2020_Sr<-KorFak27.5.2020$lDrift_Sr
Sr<- data27.5.2020_Sr-data27.5.2020_Sr*(KorFak27.5.2020_Sr/100)

data27.5.2020_Y<-data27.5.2020$Y
KorFak27.5.2020_Y<-KorFak27.5.2020$lDrift_Y
Y<- data27.5.2020_Y-data27.5.2020_Y*(KorFak27.5.2020_Y/100)

data27.5.2020_Zr<-data27.5.2020$Zr
KorFak27.5.2020_Zr<-KorFak27.5.2020$lDrift_Zr
Zr<- data27.5.2020_Zr-data27.5.2020_Zr*(KorFak27.5.2020_Zr/100)

data27.5.2020_Nb<-data27.5.2020$Nb
KorFak27.5.2020_Nb<-KorFak27.5.2020$lDrift_Nb
Nb<- data27.5.2020_Nb-data27.5.2020_Nb*(KorFak27.5.2020_Nb/100)

data27.5.2020_Mo<-data27.5.2020$Mo
KorFak27.5.2020_Mo<-KorFak27.5.2020$lDrift_Mo
Mo<- data27.5.2020_Mo-data27.5.2020_Mo*(KorFak27.5.2020_Mo/100)

data27.5.2020_Ag<-data27.5.2020$Ag
KorFak27.5.2020_Ag<-KorFak27.5.2020$lDrift_Ag
Ag<- data27.5.2020_Ag-data27.5.2020_Ag*(KorFak27.5.2020_Ag/100)

data27.5.2020_Cd<-data27.5.2020$Cd
KorFak27.5.2020_Cd<-KorFak27.5.2020$lDrift_Cd
Cd<- data27.5.2020_Cd-data27.5.2020_Cd*(KorFak27.5.2020_Cd/100)

data27.5.2020_Sn<-data27.5.2020$Sn
KorFak27.5.2020_Sn<-KorFak27.5.2020$lDrift_Sn
Sn<- data27.5.2020_Sn-data27.5.2020_Sn*(KorFak27.5.2020_Sn/100)

data27.5.2020_Sb<-data27.5.2020$Sb
KorFak27.5.2020_Sb<-KorFak27.5.2020$lDrift_Sb
Sb<- data27.5.2020_Sb-data27.5.2020_Sb*(KorFak27.5.2020_Sb/100)

data27.5.2020_Te<-data27.5.2020$Te
KorFak27.5.2020_Te<-KorFak27.5.2020$lDrift_Te
Te<- data27.5.2020_Te-data27.5.2020_Te*(KorFak27.5.2020_Te/100)

data27.5.2020_Cs<-data27.5.2020$Cs
KorFak27.5.2020_Cs<-KorFak27.5.2020$lDrift_Cs
Cs<- data27.5.2020_Cs-data27.5.2020_Cs*(KorFak27.5.2020_Cs/100)

data27.5.2020_Ba<-data27.5.2020$Ba
KorFak27.5.2020_Ba<-KorFak27.5.2020$lDrift_Ba
Ba<- data27.5.2020_Ba-data27.5.2020_Ba*(KorFak27.5.2020_Ba/100)

data27.5.2020_La<-data27.5.2020$La
KorFak27.5.2020_La<-KorFak27.5.2020$lDrift_La
La<- data27.5.2020_La-data27.5.2020_La*(KorFak27.5.2020_La/100)

data27.5.2020_Pb<-data27.5.2020$Pb
KorFak27.5.2020_Pb<-KorFak27.5.2020$lDrift_Pb
Pb<- data27.5.2020_Pb-data27.5.2020_Pb*(KorFak27.5.2020_Pb/100)

data27.5.2020_Th<-data27.5.2020$Th
KorFak27.5.2020_Th<-KorFak27.5.2020$lDrift_Th
Th<- data27.5.2020_Th-data27.5.2020_Th*(KorFak27.5.2020_Th/100)

data27.5.2020_U<-data27.5.2020$U
KorFak27.5.2020_U<-KorFak27.5.2020$lDrift_U
U<- data27.5.2020_U-data27.5.2020_U*(KorFak27.5.2020_U/100)

Data_OG_lDrift_Kor27.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.19 l-Drift Korrektur des 28.5.2020

KorFak28.5.2020<-KorFak %>% filter(Datum_median=="28.5.2020")
data28.5.2020<-data %>% filter(Datum=="28.5.2020")
Probennummer<-data28.5.2020$Probennummer
Datum<-data28.5.2020$Datum

data28.5.2020_Si<-data28.5.2020$Si
KorFak28.5.2020_Si<-KorFak28.5.2020$lDrift_Si
Si<- data28.5.2020_Si-data28.5.2020_Si*(KorFak28.5.2020_Si/100)

data28.5.2020_Ti<-data28.5.2020$Ti
KorFak28.5.2020_Ti<-KorFak28.5.2020$lDrift_Ti
Ti<- data28.5.2020_Ti-data28.5.2020_Ti*(KorFak28.5.2020_Ti/100)

data28.5.2020_Al<-data28.5.2020$Al
KorFak28.5.2020_Al<-KorFak28.5.2020$lDrift_Al
Al<- data28.5.2020_Al-data28.5.2020_Al*(KorFak28.5.2020_Al/100)

data28.5.2020_Fe<-data28.5.2020$Fe
KorFak28.5.2020_Fe<-KorFak28.5.2020$lDrift_Fe
Fe<- data28.5.2020_Fe-data28.5.2020_Fe*(KorFak28.5.2020_Fe/100)

data28.5.2020_Mn<-data28.5.2020$Mn
KorFak28.5.2020_Mn<-KorFak28.5.2020$lDrift_Mn
Mn<- data28.5.2020_Mn-data28.5.2020_Mn*(KorFak28.5.2020_Mn/100)

data28.5.2020_Mg<-data28.5.2020$Mg
KorFak28.5.2020_Mg<-KorFak28.5.2020$lDrift_Mg
Mg<- data28.5.2020_Mg-data28.5.2020_Mg*(KorFak28.5.2020_Mg/100)

data28.5.2020_Ca<-data28.5.2020$Ca
KorFak28.5.2020_Ca<-KorFak28.5.2020$lDrift_Ca
Ca<- data28.5.2020_Ca-data28.5.2020_Ca*(KorFak28.5.2020_Ca/100)

data28.5.2020_K<-data28.5.2020$K
KorFak28.5.2020_K<-KorFak28.5.2020$lDrift_K
K<- data28.5.2020_K-data28.5.2020_K*(KorFak28.5.2020_K/100)

data28.5.2020_P<-data28.5.2020$P
KorFak28.5.2020_P<-KorFak28.5.2020$lDrift_P
P<- data28.5.2020_P-data28.5.2020_P*(KorFak28.5.2020_P/100)

data28.5.2020_S<-data28.5.2020$S
KorFak28.5.2020_S<-KorFak28.5.2020$lDrift_S
S<- data28.5.2020_S-data28.5.2020_S*(KorFak28.5.2020_S/100)

data28.5.2020_Cl<-data28.5.2020$Cl
KorFak28.5.2020_Cl<-KorFak28.5.2020$lDrift_Cl
Cl<- data28.5.2020_Cl-data28.5.2020_Cl*(KorFak28.5.2020_Cl/100)

data28.5.2020_V<-data28.5.2020$V
KorFak28.5.2020_V<-KorFak28.5.2020$lDrift_V
V<- data28.5.2020_V-data28.5.2020_V*(KorFak28.5.2020_V/100)

data28.5.2020_Cr<-data28.5.2020$Cr
KorFak28.5.2020_Cr<-KorFak28.5.2020$lDrift_Cr
Cr<- data28.5.2020_Cr-data28.5.2020_Cr*(KorFak28.5.2020_Cr/100)

data28.5.2020_Ni<-data28.5.2020$Ni
KorFak28.5.2020_Ni<-KorFak28.5.2020$lDrift_Ni
Ni<- data28.5.2020_Ni-data28.5.2020_Ni*(KorFak28.5.2020_Ni/100)

data28.5.2020_Cu<-data28.5.2020$Cu
KorFak28.5.2020_Cu<-KorFak28.5.2020$lDrift_Cu
Cu<- data28.5.2020_Cu-data28.5.2020_Cu*(KorFak28.5.2020_Cu/100)

data28.5.2020_Zn<-data28.5.2020$Zn
KorFak28.5.2020_Zn<-KorFak28.5.2020$lDrift_Zn
Zn<- data28.5.2020_Zn-data28.5.2020_Zn*(KorFak28.5.2020_Zn/100)

data28.5.2020_As<-data28.5.2020$As
KorFak28.5.2020_As<-KorFak28.5.2020$lDrift_As
As<- data28.5.2020_As-data28.5.2020_As*(KorFak28.5.2020_As/100)

data28.5.2020_Se<-data28.5.2020$Se
KorFak28.5.2020_Se<-KorFak28.5.2020$lDrift_Se
Se<- data28.5.2020_Se-data28.5.2020_Se*(KorFak28.5.2020_Se/100)

data28.5.2020_Rb<-data28.5.2020$Rb
KorFak28.5.2020_Rb<-KorFak28.5.2020$lDrift_Rb
Rb<- data28.5.2020_Rb-data28.5.2020_Rb*(KorFak28.5.2020_Rb/100)

data28.5.2020_Sr<-data28.5.2020$Sr
KorFak28.5.2020_Sr<-KorFak28.5.2020$lDrift_Sr
Sr<- data28.5.2020_Sr-data28.5.2020_Sr*(KorFak28.5.2020_Sr/100)

data28.5.2020_Y<-data28.5.2020$Y
KorFak28.5.2020_Y<-KorFak28.5.2020$lDrift_Y
Y<- data28.5.2020_Y-data28.5.2020_Y*(KorFak28.5.2020_Y/100)

data28.5.2020_Zr<-data28.5.2020$Zr
KorFak28.5.2020_Zr<-KorFak28.5.2020$lDrift_Zr
Zr<- data28.5.2020_Zr-data28.5.2020_Zr*(KorFak28.5.2020_Zr/100)

data28.5.2020_Nb<-data28.5.2020$Nb
KorFak28.5.2020_Nb<-KorFak28.5.2020$lDrift_Nb
Nb<- data28.5.2020_Nb-data28.5.2020_Nb*(KorFak28.5.2020_Nb/100)

data28.5.2020_Mo<-data28.5.2020$Mo
KorFak28.5.2020_Mo<-KorFak28.5.2020$lDrift_Mo
Mo<- data28.5.2020_Mo-data28.5.2020_Mo*(KorFak28.5.2020_Mo/100)

data28.5.2020_Ag<-data28.5.2020$Ag
KorFak28.5.2020_Ag<-KorFak28.5.2020$lDrift_Ag
Ag<- data28.5.2020_Ag-data28.5.2020_Ag*(KorFak28.5.2020_Ag/100)

data28.5.2020_Cd<-data28.5.2020$Cd
KorFak28.5.2020_Cd<-KorFak28.5.2020$lDrift_Cd
Cd<- data28.5.2020_Cd-data28.5.2020_Cd*(KorFak28.5.2020_Cd/100)

data28.5.2020_Sn<-data28.5.2020$Sn
KorFak28.5.2020_Sn<-KorFak28.5.2020$lDrift_Sn
Sn<- data28.5.2020_Sn-data28.5.2020_Sn*(KorFak28.5.2020_Sn/100)

data28.5.2020_Sb<-data28.5.2020$Sb
KorFak28.5.2020_Sb<-KorFak28.5.2020$lDrift_Sb
Sb<- data28.5.2020_Sb-data28.5.2020_Sb*(KorFak28.5.2020_Sb/100)

data28.5.2020_Te<-data28.5.2020$Te
KorFak28.5.2020_Te<-KorFak28.5.2020$lDrift_Te
Te<- data28.5.2020_Te-data28.5.2020_Te*(KorFak28.5.2020_Te/100)

data28.5.2020_Cs<-data28.5.2020$Cs
KorFak28.5.2020_Cs<-KorFak28.5.2020$lDrift_Cs
Cs<- data28.5.2020_Cs-data28.5.2020_Cs*(KorFak28.5.2020_Cs/100)

data28.5.2020_Ba<-data28.5.2020$Ba
KorFak28.5.2020_Ba<-KorFak28.5.2020$lDrift_Ba
Ba<- data28.5.2020_Ba-data28.5.2020_Ba*(KorFak28.5.2020_Ba/100)

data28.5.2020_La<-data28.5.2020$La
KorFak28.5.2020_La<-KorFak28.5.2020$lDrift_La
La<- data28.5.2020_La-data28.5.2020_La*(KorFak28.5.2020_La/100)

data28.5.2020_Pb<-data28.5.2020$Pb
KorFak28.5.2020_Pb<-KorFak28.5.2020$lDrift_Pb
Pb<- data28.5.2020_Pb-data28.5.2020_Pb*(KorFak28.5.2020_Pb/100)

data28.5.2020_Th<-data28.5.2020$Th
KorFak28.5.2020_Th<-KorFak28.5.2020$lDrift_Th
Th<- data28.5.2020_Th-data28.5.2020_Th*(KorFak28.5.2020_Th/100)

data28.5.2020_U<-data28.5.2020$U
KorFak28.5.2020_U<-KorFak28.5.2020$lDrift_U
U<- data28.5.2020_U-data28.5.2020_U*(KorFak28.5.2020_U/100)

Data_OG_lDrift_Kor28.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.20 l-Drift Korrektur des 29.5.2020

KorFak29.5.2020<-KorFak %>% filter(Datum_median=="29.5.2020")
data29.5.2020<-data %>% filter(Datum=="29.5.2020")
Probennummer<-data29.5.2020$Probennummer
Datum<-data29.5.2020$Datum

data29.5.2020_Si<-data29.5.2020$Si
KorFak29.5.2020_Si<-KorFak29.5.2020$lDrift_Si
Si<- data29.5.2020_Si-data29.5.2020_Si*(KorFak29.5.2020_Si/100)

data29.5.2020_Ti<-data29.5.2020$Ti
KorFak29.5.2020_Ti<-KorFak29.5.2020$lDrift_Ti
Ti<- data29.5.2020_Ti-data29.5.2020_Ti*(KorFak29.5.2020_Ti/100)

data29.5.2020_Al<-data29.5.2020$Al
KorFak29.5.2020_Al<-KorFak29.5.2020$lDrift_Al
Al<- data29.5.2020_Al-data29.5.2020_Al*(KorFak29.5.2020_Al/100)

data29.5.2020_Fe<-data29.5.2020$Fe
KorFak29.5.2020_Fe<-KorFak29.5.2020$lDrift_Fe
Fe<- data29.5.2020_Fe-data29.5.2020_Fe*(KorFak29.5.2020_Fe/100)

data29.5.2020_Mn<-data29.5.2020$Mn
KorFak29.5.2020_Mn<-KorFak29.5.2020$lDrift_Mn
Mn<- data29.5.2020_Mn-data29.5.2020_Mn*(KorFak29.5.2020_Mn/100)

data29.5.2020_Mg<-data29.5.2020$Mg
KorFak29.5.2020_Mg<-KorFak29.5.2020$lDrift_Mg
Mg<- data29.5.2020_Mg-data29.5.2020_Mg*(KorFak29.5.2020_Mg/100)

data29.5.2020_Ca<-data29.5.2020$Ca
KorFak29.5.2020_Ca<-KorFak29.5.2020$lDrift_Ca
Ca<- data29.5.2020_Ca-data29.5.2020_Ca*(KorFak29.5.2020_Ca/100)

data29.5.2020_K<-data29.5.2020$K
KorFak29.5.2020_K<-KorFak29.5.2020$lDrift_K
K<- data29.5.2020_K-data29.5.2020_K*(KorFak29.5.2020_K/100)

data29.5.2020_P<-data29.5.2020$P
KorFak29.5.2020_P<-KorFak29.5.2020$lDrift_P
P<- data29.5.2020_P-data29.5.2020_P*(KorFak29.5.2020_P/100)

data29.5.2020_S<-data29.5.2020$S
KorFak29.5.2020_S<-KorFak29.5.2020$lDrift_S
S<- data29.5.2020_S-data29.5.2020_S*(KorFak29.5.2020_S/100)

data29.5.2020_Cl<-data29.5.2020$Cl
KorFak29.5.2020_Cl<-KorFak29.5.2020$lDrift_Cl
Cl<- data29.5.2020_Cl-data29.5.2020_Cl*(KorFak29.5.2020_Cl/100)

data29.5.2020_V<-data29.5.2020$V
KorFak29.5.2020_V<-KorFak29.5.2020$lDrift_V
V<- data29.5.2020_V-data29.5.2020_V*(KorFak29.5.2020_V/100)

data29.5.2020_Cr<-data29.5.2020$Cr
KorFak29.5.2020_Cr<-KorFak29.5.2020$lDrift_Cr
Cr<- data29.5.2020_Cr-data29.5.2020_Cr*(KorFak29.5.2020_Cr/100)

data29.5.2020_Ni<-data29.5.2020$Ni
KorFak29.5.2020_Ni<-KorFak29.5.2020$lDrift_Ni
Ni<- data29.5.2020_Ni-data29.5.2020_Ni*(KorFak29.5.2020_Ni/100)

data29.5.2020_Cu<-data29.5.2020$Cu
KorFak29.5.2020_Cu<-KorFak29.5.2020$lDrift_Cu
Cu<- data29.5.2020_Cu-data29.5.2020_Cu*(KorFak29.5.2020_Cu/100)

data29.5.2020_Zn<-data29.5.2020$Zn
KorFak29.5.2020_Zn<-KorFak29.5.2020$lDrift_Zn
Zn<- data29.5.2020_Zn-data29.5.2020_Zn*(KorFak29.5.2020_Zn/100)

data29.5.2020_As<-data29.5.2020$As
KorFak29.5.2020_As<-KorFak29.5.2020$lDrift_As
As<- data29.5.2020_As-data29.5.2020_As*(KorFak29.5.2020_As/100)

data29.5.2020_Se<-data29.5.2020$Se
KorFak29.5.2020_Se<-KorFak29.5.2020$lDrift_Se
Se<- data29.5.2020_Se-data29.5.2020_Se*(KorFak29.5.2020_Se/100)

data29.5.2020_Rb<-data29.5.2020$Rb
KorFak29.5.2020_Rb<-KorFak29.5.2020$lDrift_Rb
Rb<- data29.5.2020_Rb-data29.5.2020_Rb*(KorFak29.5.2020_Rb/100)

data29.5.2020_Sr<-data29.5.2020$Sr
KorFak29.5.2020_Sr<-KorFak29.5.2020$lDrift_Sr
Sr<- data29.5.2020_Sr-data29.5.2020_Sr*(KorFak29.5.2020_Sr/100)

data29.5.2020_Y<-data29.5.2020$Y
KorFak29.5.2020_Y<-KorFak29.5.2020$lDrift_Y
Y<- data29.5.2020_Y-data29.5.2020_Y*(KorFak29.5.2020_Y/100)

data29.5.2020_Zr<-data29.5.2020$Zr
KorFak29.5.2020_Zr<-KorFak29.5.2020$lDrift_Zr
Zr<- data29.5.2020_Zr-data29.5.2020_Zr*(KorFak29.5.2020_Zr/100)

data29.5.2020_Nb<-data29.5.2020$Nb
KorFak29.5.2020_Nb<-KorFak29.5.2020$lDrift_Nb
Nb<- data29.5.2020_Nb-data29.5.2020_Nb*(KorFak29.5.2020_Nb/100)

data29.5.2020_Mo<-data29.5.2020$Mo
KorFak29.5.2020_Mo<-KorFak29.5.2020$lDrift_Mo
Mo<- data29.5.2020_Mo-data29.5.2020_Mo*(KorFak29.5.2020_Mo/100)

data29.5.2020_Ag<-data29.5.2020$Ag
KorFak29.5.2020_Ag<-KorFak29.5.2020$lDrift_Ag
Ag<- data29.5.2020_Ag-data29.5.2020_Ag*(KorFak29.5.2020_Ag/100)

data29.5.2020_Cd<-data29.5.2020$Cd
KorFak29.5.2020_Cd<-KorFak29.5.2020$lDrift_Cd
Cd<- data29.5.2020_Cd-data29.5.2020_Cd*(KorFak29.5.2020_Cd/100)

data29.5.2020_Sn<-data29.5.2020$Sn
KorFak29.5.2020_Sn<-KorFak29.5.2020$lDrift_Sn
Sn<- data29.5.2020_Sn-data29.5.2020_Sn*(KorFak29.5.2020_Sn/100)

data29.5.2020_Sb<-data29.5.2020$Sb
KorFak29.5.2020_Sb<-KorFak29.5.2020$lDrift_Sb
Sb<- data29.5.2020_Sb-data29.5.2020_Sb*(KorFak29.5.2020_Sb/100)

data29.5.2020_Te<-data29.5.2020$Te
KorFak29.5.2020_Te<-KorFak29.5.2020$lDrift_Te
Te<- data29.5.2020_Te-data29.5.2020_Te*(KorFak29.5.2020_Te/100)

data29.5.2020_Cs<-data29.5.2020$Cs
KorFak29.5.2020_Cs<-KorFak29.5.2020$lDrift_Cs
Cs<- data29.5.2020_Cs-data29.5.2020_Cs*(KorFak29.5.2020_Cs/100)

data29.5.2020_Ba<-data29.5.2020$Ba
KorFak29.5.2020_Ba<-KorFak29.5.2020$lDrift_Ba
Ba<- data29.5.2020_Ba-data29.5.2020_Ba*(KorFak29.5.2020_Ba/100)

data29.5.2020_La<-data29.5.2020$La
KorFak29.5.2020_La<-KorFak29.5.2020$lDrift_La
La<- data29.5.2020_La-data29.5.2020_La*(KorFak29.5.2020_La/100)

data29.5.2020_Pb<-data29.5.2020$Pb
KorFak29.5.2020_Pb<-KorFak29.5.2020$lDrift_Pb
Pb<- data29.5.2020_Pb-data29.5.2020_Pb*(KorFak29.5.2020_Pb/100)

data29.5.2020_Th<-data29.5.2020$Th
KorFak29.5.2020_Th<-KorFak29.5.2020$lDrift_Th
Th<- data29.5.2020_Th-data29.5.2020_Th*(KorFak29.5.2020_Th/100)

data29.5.2020_U<-data29.5.2020$U
KorFak29.5.2020_U<-KorFak29.5.2020$lDrift_U
U<- data29.5.2020_U-data29.5.2020_U*(KorFak29.5.2020_U/100)

Data_OG_lDrift_Kor29.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.21 l-Drift Korrektur des 30.5.2020

KorFak30.5.2020<-KorFak %>% filter(Datum_median=="30.5.2020")
data30.5.2020<-data %>% filter(Datum=="30.5.2020")
Probennummer<-data30.5.2020$Probennummer
Datum<-data30.5.2020$Datum

data30.5.2020_Si<-data30.5.2020$Si
KorFak30.5.2020_Si<-KorFak30.5.2020$lDrift_Si
Si<- data30.5.2020_Si-data30.5.2020_Si*(KorFak30.5.2020_Si/100)

data30.5.2020_Ti<-data30.5.2020$Ti
KorFak30.5.2020_Ti<-KorFak30.5.2020$lDrift_Ti
Ti<- data30.5.2020_Ti-data30.5.2020_Ti*(KorFak30.5.2020_Ti/100)

data30.5.2020_Al<-data30.5.2020$Al
KorFak30.5.2020_Al<-KorFak30.5.2020$lDrift_Al
Al<- data30.5.2020_Al-data30.5.2020_Al*(KorFak30.5.2020_Al/100)

data30.5.2020_Fe<-data30.5.2020$Fe
KorFak30.5.2020_Fe<-KorFak30.5.2020$lDrift_Fe
Fe<- data30.5.2020_Fe-data30.5.2020_Fe*(KorFak30.5.2020_Fe/100)

data30.5.2020_Mn<-data30.5.2020$Mn
KorFak30.5.2020_Mn<-KorFak30.5.2020$lDrift_Mn
Mn<- data30.5.2020_Mn-data30.5.2020_Mn*(KorFak30.5.2020_Mn/100)

data30.5.2020_Mg<-data30.5.2020$Mg
KorFak30.5.2020_Mg<-KorFak30.5.2020$lDrift_Mg
Mg<- data30.5.2020_Mg-data30.5.2020_Mg*(KorFak30.5.2020_Mg/100)

data30.5.2020_Ca<-data30.5.2020$Ca
KorFak30.5.2020_Ca<-KorFak30.5.2020$lDrift_Ca
Ca<- data30.5.2020_Ca-data30.5.2020_Ca*(KorFak30.5.2020_Ca/100)

data30.5.2020_K<-data30.5.2020$K
KorFak30.5.2020_K<-KorFak30.5.2020$lDrift_K
K<- data30.5.2020_K-data30.5.2020_K*(KorFak30.5.2020_K/100)

data30.5.2020_P<-data30.5.2020$P
KorFak30.5.2020_P<-KorFak30.5.2020$lDrift_P
P<- data30.5.2020_P-data30.5.2020_P*(KorFak30.5.2020_P/100)

data30.5.2020_S<-data30.5.2020$S
KorFak30.5.2020_S<-KorFak30.5.2020$lDrift_S
S<- data30.5.2020_S-data30.5.2020_S*(KorFak30.5.2020_S/100)

data30.5.2020_Cl<-data30.5.2020$Cl
KorFak30.5.2020_Cl<-KorFak30.5.2020$lDrift_Cl
Cl<- data30.5.2020_Cl-data30.5.2020_Cl*(KorFak30.5.2020_Cl/100)

data30.5.2020_V<-data30.5.2020$V
KorFak30.5.2020_V<-KorFak30.5.2020$lDrift_V
V<- data30.5.2020_V-data30.5.2020_V*(KorFak30.5.2020_V/100)

data30.5.2020_Cr<-data30.5.2020$Cr
KorFak30.5.2020_Cr<-KorFak30.5.2020$lDrift_Cr
Cr<- data30.5.2020_Cr-data30.5.2020_Cr*(KorFak30.5.2020_Cr/100)

data30.5.2020_Ni<-data30.5.2020$Ni
KorFak30.5.2020_Ni<-KorFak30.5.2020$lDrift_Ni
Ni<- data30.5.2020_Ni-data30.5.2020_Ni*(KorFak30.5.2020_Ni/100)

data30.5.2020_Cu<-data30.5.2020$Cu
KorFak30.5.2020_Cu<-KorFak30.5.2020$lDrift_Cu
Cu<- data30.5.2020_Cu-data30.5.2020_Cu*(KorFak30.5.2020_Cu/100)

data30.5.2020_Zn<-data30.5.2020$Zn
KorFak30.5.2020_Zn<-KorFak30.5.2020$lDrift_Zn
Zn<- data30.5.2020_Zn-data30.5.2020_Zn*(KorFak30.5.2020_Zn/100)

data30.5.2020_As<-data30.5.2020$As
KorFak30.5.2020_As<-KorFak30.5.2020$lDrift_As
As<- data30.5.2020_As-data30.5.2020_As*(KorFak30.5.2020_As/100)

data30.5.2020_Se<-data30.5.2020$Se
KorFak30.5.2020_Se<-KorFak30.5.2020$lDrift_Se
Se<- data30.5.2020_Se-data30.5.2020_Se*(KorFak30.5.2020_Se/100)

data30.5.2020_Rb<-data30.5.2020$Rb
KorFak30.5.2020_Rb<-KorFak30.5.2020$lDrift_Rb
Rb<- data30.5.2020_Rb-data30.5.2020_Rb*(KorFak30.5.2020_Rb/100)

data30.5.2020_Sr<-data30.5.2020$Sr
KorFak30.5.2020_Sr<-KorFak30.5.2020$lDrift_Sr
Sr<- data30.5.2020_Sr-data30.5.2020_Sr*(KorFak30.5.2020_Sr/100)

data30.5.2020_Y<-data30.5.2020$Y
KorFak30.5.2020_Y<-KorFak30.5.2020$lDrift_Y
Y<- data30.5.2020_Y-data30.5.2020_Y*(KorFak30.5.2020_Y/100)

data30.5.2020_Zr<-data30.5.2020$Zr
KorFak30.5.2020_Zr<-KorFak30.5.2020$lDrift_Zr
Zr<- data30.5.2020_Zr-data30.5.2020_Zr*(KorFak30.5.2020_Zr/100)

data30.5.2020_Nb<-data30.5.2020$Nb
KorFak30.5.2020_Nb<-KorFak30.5.2020$lDrift_Nb
Nb<- data30.5.2020_Nb-data30.5.2020_Nb*(KorFak30.5.2020_Nb/100)

data30.5.2020_Mo<-data30.5.2020$Mo
KorFak30.5.2020_Mo<-KorFak30.5.2020$lDrift_Mo
Mo<- data30.5.2020_Mo-data30.5.2020_Mo*(KorFak30.5.2020_Mo/100)

data30.5.2020_Ag<-data30.5.2020$Ag
KorFak30.5.2020_Ag<-KorFak30.5.2020$lDrift_Ag
Ag<- data30.5.2020_Ag-data30.5.2020_Ag*(KorFak30.5.2020_Ag/100)

data30.5.2020_Cd<-data30.5.2020$Cd
KorFak30.5.2020_Cd<-KorFak30.5.2020$lDrift_Cd
Cd<- data30.5.2020_Cd-data30.5.2020_Cd*(KorFak30.5.2020_Cd/100)

data30.5.2020_Sn<-data30.5.2020$Sn
KorFak30.5.2020_Sn<-KorFak30.5.2020$lDrift_Sn
Sn<- data30.5.2020_Sn-data30.5.2020_Sn*(KorFak30.5.2020_Sn/100)

data30.5.2020_Sb<-data30.5.2020$Sb
KorFak30.5.2020_Sb<-KorFak30.5.2020$lDrift_Sb
Sb<- data30.5.2020_Sb-data30.5.2020_Sb*(KorFak30.5.2020_Sb/100)

data30.5.2020_Te<-data30.5.2020$Te
KorFak30.5.2020_Te<-KorFak30.5.2020$lDrift_Te
Te<- data30.5.2020_Te-data30.5.2020_Te*(KorFak30.5.2020_Te/100)

data30.5.2020_Cs<-data30.5.2020$Cs
KorFak30.5.2020_Cs<-KorFak30.5.2020$lDrift_Cs
Cs<- data30.5.2020_Cs-data30.5.2020_Cs*(KorFak30.5.2020_Cs/100)

data30.5.2020_Ba<-data30.5.2020$Ba
KorFak30.5.2020_Ba<-KorFak30.5.2020$lDrift_Ba
Ba<- data30.5.2020_Ba-data30.5.2020_Ba*(KorFak30.5.2020_Ba/100)

data30.5.2020_La<-data30.5.2020$La
KorFak30.5.2020_La<-KorFak30.5.2020$lDrift_La
La<- data30.5.2020_La-data30.5.2020_La*(KorFak30.5.2020_La/100)

data30.5.2020_Pb<-data30.5.2020$Pb
KorFak30.5.2020_Pb<-KorFak30.5.2020$lDrift_Pb
Pb<- data30.5.2020_Pb-data30.5.2020_Pb*(KorFak30.5.2020_Pb/100)

data30.5.2020_Th<-data30.5.2020$Th
KorFak30.5.2020_Th<-KorFak30.5.2020$lDrift_Th
Th<- data30.5.2020_Th-data30.5.2020_Th*(KorFak30.5.2020_Th/100)

data30.5.2020_U<-data30.5.2020$U
KorFak30.5.2020_U<-KorFak30.5.2020$lDrift_U
U<- data30.5.2020_U-data30.5.2020_U*(KorFak30.5.2020_U/100)

Data_OG_lDrift_Kor30.5.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.22 l-Drift Korrektur des 1.6.2020

KorFak1.6.2020<-KorFak %>% filter(Datum_median=="1.6.2020")
data1.6.2020<-data %>% filter(Datum=="1.6.2020")
Probennummer<-data1.6.2020$Probennummer
Datum<-data1.6.2020$Datum

data1.6.2020_Si<-data1.6.2020$Si
KorFak1.6.2020_Si<-KorFak1.6.2020$lDrift_Si
Si<- data1.6.2020_Si-data1.6.2020_Si*(KorFak1.6.2020_Si/100)

data1.6.2020_Ti<-data1.6.2020$Ti
KorFak1.6.2020_Ti<-KorFak1.6.2020$lDrift_Ti
Ti<- data1.6.2020_Ti-data1.6.2020_Ti*(KorFak1.6.2020_Ti/100)

data1.6.2020_Al<-data1.6.2020$Al
KorFak1.6.2020_Al<-KorFak1.6.2020$lDrift_Al
Al<- data1.6.2020_Al-data1.6.2020_Al*(KorFak1.6.2020_Al/100)

data1.6.2020_Fe<-data1.6.2020$Fe
KorFak1.6.2020_Fe<-KorFak1.6.2020$lDrift_Fe
Fe<- data1.6.2020_Fe-data1.6.2020_Fe*(KorFak1.6.2020_Fe/100)

data1.6.2020_Mn<-data1.6.2020$Mn
KorFak1.6.2020_Mn<-KorFak1.6.2020$lDrift_Mn
Mn<- data1.6.2020_Mn-data1.6.2020_Mn*(KorFak1.6.2020_Mn/100)

data1.6.2020_Mg<-data1.6.2020$Mg
KorFak1.6.2020_Mg<-KorFak1.6.2020$lDrift_Mg
Mg<- data1.6.2020_Mg-data1.6.2020_Mg*(KorFak1.6.2020_Mg/100)

data1.6.2020_Ca<-data1.6.2020$Ca
KorFak1.6.2020_Ca<-KorFak1.6.2020$lDrift_Ca
Ca<- data1.6.2020_Ca-data1.6.2020_Ca*(KorFak1.6.2020_Ca/100)

data1.6.2020_K<-data1.6.2020$K
KorFak1.6.2020_K<-KorFak1.6.2020$lDrift_K
K<- data1.6.2020_K-data1.6.2020_K*(KorFak1.6.2020_K/100)

data1.6.2020_P<-data1.6.2020$P
KorFak1.6.2020_P<-KorFak1.6.2020$lDrift_P
P<- data1.6.2020_P-data1.6.2020_P*(KorFak1.6.2020_P/100)

data1.6.2020_S<-data1.6.2020$S
KorFak1.6.2020_S<-KorFak1.6.2020$lDrift_S
S<- data1.6.2020_S-data1.6.2020_S*(KorFak1.6.2020_S/100)

data1.6.2020_Cl<-data1.6.2020$Cl
KorFak1.6.2020_Cl<-KorFak1.6.2020$lDrift_Cl
Cl<- data1.6.2020_Cl-data1.6.2020_Cl*(KorFak1.6.2020_Cl/100)

data1.6.2020_V<-data1.6.2020$V
KorFak1.6.2020_V<-KorFak1.6.2020$lDrift_V
V<- data1.6.2020_V-data1.6.2020_V*(KorFak1.6.2020_V/100)

data1.6.2020_Cr<-data1.6.2020$Cr
KorFak1.6.2020_Cr<-KorFak1.6.2020$lDrift_Cr
Cr<- data1.6.2020_Cr-data1.6.2020_Cr*(KorFak1.6.2020_Cr/100)

data1.6.2020_Ni<-data1.6.2020$Ni
KorFak1.6.2020_Ni<-KorFak1.6.2020$lDrift_Ni
Ni<- data1.6.2020_Ni-data1.6.2020_Ni*(KorFak1.6.2020_Ni/100)

data1.6.2020_Cu<-data1.6.2020$Cu
KorFak1.6.2020_Cu<-KorFak1.6.2020$lDrift_Cu
Cu<- data1.6.2020_Cu-data1.6.2020_Cu*(KorFak1.6.2020_Cu/100)

data1.6.2020_Zn<-data1.6.2020$Zn
KorFak1.6.2020_Zn<-KorFak1.6.2020$lDrift_Zn
Zn<- data1.6.2020_Zn-data1.6.2020_Zn*(KorFak1.6.2020_Zn/100)

data1.6.2020_As<-data1.6.2020$As
KorFak1.6.2020_As<-KorFak1.6.2020$lDrift_As
As<- data1.6.2020_As-data1.6.2020_As*(KorFak1.6.2020_As/100)

data1.6.2020_Se<-data1.6.2020$Se
KorFak1.6.2020_Se<-KorFak1.6.2020$lDrift_Se
Se<- data1.6.2020_Se-data1.6.2020_Se*(KorFak1.6.2020_Se/100)

data1.6.2020_Rb<-data1.6.2020$Rb
KorFak1.6.2020_Rb<-KorFak1.6.2020$lDrift_Rb
Rb<- data1.6.2020_Rb-data1.6.2020_Rb*(KorFak1.6.2020_Rb/100)

data1.6.2020_Sr<-data1.6.2020$Sr
KorFak1.6.2020_Sr<-KorFak1.6.2020$lDrift_Sr
Sr<- data1.6.2020_Sr-data1.6.2020_Sr*(KorFak1.6.2020_Sr/100)

data1.6.2020_Y<-data1.6.2020$Y
KorFak1.6.2020_Y<-KorFak1.6.2020$lDrift_Y
Y<- data1.6.2020_Y-data1.6.2020_Y*(KorFak1.6.2020_Y/100)

data1.6.2020_Zr<-data1.6.2020$Zr
KorFak1.6.2020_Zr<-KorFak1.6.2020$lDrift_Zr
Zr<- data1.6.2020_Zr-data1.6.2020_Zr*(KorFak1.6.2020_Zr/100)

data1.6.2020_Nb<-data1.6.2020$Nb
KorFak1.6.2020_Nb<-KorFak1.6.2020$lDrift_Nb
Nb<- data1.6.2020_Nb-data1.6.2020_Nb*(KorFak1.6.2020_Nb/100)

data1.6.2020_Mo<-data1.6.2020$Mo
KorFak1.6.2020_Mo<-KorFak1.6.2020$lDrift_Mo
Mo<- data1.6.2020_Mo-data1.6.2020_Mo*(KorFak1.6.2020_Mo/100)

data1.6.2020_Ag<-data1.6.2020$Ag
KorFak1.6.2020_Ag<-KorFak1.6.2020$lDrift_Ag
Ag<- data1.6.2020_Ag-data1.6.2020_Ag*(KorFak1.6.2020_Ag/100)

data1.6.2020_Cd<-data1.6.2020$Cd
KorFak1.6.2020_Cd<-KorFak1.6.2020$lDrift_Cd
Cd<- data1.6.2020_Cd-data1.6.2020_Cd*(KorFak1.6.2020_Cd/100)

data1.6.2020_Sn<-data1.6.2020$Sn
KorFak1.6.2020_Sn<-KorFak1.6.2020$lDrift_Sn
Sn<- data1.6.2020_Sn-data1.6.2020_Sn*(KorFak1.6.2020_Sn/100)

data1.6.2020_Sb<-data1.6.2020$Sb
KorFak1.6.2020_Sb<-KorFak1.6.2020$lDrift_Sb
Sb<- data1.6.2020_Sb-data1.6.2020_Sb*(KorFak1.6.2020_Sb/100)

data1.6.2020_Te<-data1.6.2020$Te
KorFak1.6.2020_Te<-KorFak1.6.2020$lDrift_Te
Te<- data1.6.2020_Te-data1.6.2020_Te*(KorFak1.6.2020_Te/100)

data1.6.2020_Cs<-data1.6.2020$Cs
KorFak1.6.2020_Cs<-KorFak1.6.2020$lDrift_Cs
Cs<- data1.6.2020_Cs-data1.6.2020_Cs*(KorFak1.6.2020_Cs/100)

data1.6.2020_Ba<-data1.6.2020$Ba
KorFak1.6.2020_Ba<-KorFak1.6.2020$lDrift_Ba
Ba<- data1.6.2020_Ba-data1.6.2020_Ba*(KorFak1.6.2020_Ba/100)

data1.6.2020_La<-data1.6.2020$La
KorFak1.6.2020_La<-KorFak1.6.2020$lDrift_La
La<- data1.6.2020_La-data1.6.2020_La*(KorFak1.6.2020_La/100)

data1.6.2020_Pb<-data1.6.2020$Pb
KorFak1.6.2020_Pb<-KorFak1.6.2020$lDrift_Pb
Pb<- data1.6.2020_Pb-data1.6.2020_Pb*(KorFak1.6.2020_Pb/100)

data1.6.2020_Th<-data1.6.2020$Th
KorFak1.6.2020_Th<-KorFak1.6.2020$lDrift_Th
Th<- data1.6.2020_Th-data1.6.2020_Th*(KorFak1.6.2020_Th/100)

data1.6.2020_U<-data1.6.2020$U
KorFak1.6.2020_U<-KorFak1.6.2020$lDrift_U
U<- data1.6.2020_U-data1.6.2020_U*(KorFak1.6.2020_U/100)

Data_OG_lDrift_Kor1.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.23 l-Drift Korrektur des 2.6.2020

KorFak2.6.2020<-KorFak %>% filter(Datum_median=="2.6.2020")
data2.6.2020<-data %>% filter(Datum=="2.6.2020")
Probennummer<-data2.6.2020$Probennummer
Datum<-data2.6.2020$Datum

data2.6.2020_Si<-data2.6.2020$Si
KorFak2.6.2020_Si<-KorFak2.6.2020$lDrift_Si
Si<- data2.6.2020_Si-data2.6.2020_Si*(KorFak2.6.2020_Si/100)

data2.6.2020_Ti<-data2.6.2020$Ti
KorFak2.6.2020_Ti<-KorFak2.6.2020$lDrift_Ti
Ti<- data2.6.2020_Ti-data2.6.2020_Ti*(KorFak2.6.2020_Ti/100)

data2.6.2020_Al<-data2.6.2020$Al
KorFak2.6.2020_Al<-KorFak2.6.2020$lDrift_Al
Al<- data2.6.2020_Al-data2.6.2020_Al*(KorFak2.6.2020_Al/100)

data2.6.2020_Fe<-data2.6.2020$Fe
KorFak2.6.2020_Fe<-KorFak2.6.2020$lDrift_Fe
Fe<- data2.6.2020_Fe-data2.6.2020_Fe*(KorFak2.6.2020_Fe/100)

data2.6.2020_Mn<-data2.6.2020$Mn
KorFak2.6.2020_Mn<-KorFak2.6.2020$lDrift_Mn
Mn<- data2.6.2020_Mn-data2.6.2020_Mn*(KorFak2.6.2020_Mn/100)

data2.6.2020_Mg<-data2.6.2020$Mg
KorFak2.6.2020_Mg<-KorFak2.6.2020$lDrift_Mg
Mg<- data2.6.2020_Mg-data2.6.2020_Mg*(KorFak2.6.2020_Mg/100)

data2.6.2020_Ca<-data2.6.2020$Ca
KorFak2.6.2020_Ca<-KorFak2.6.2020$lDrift_Ca
Ca<- data2.6.2020_Ca-data2.6.2020_Ca*(KorFak2.6.2020_Ca/100)

data2.6.2020_K<-data2.6.2020$K
KorFak2.6.2020_K<-KorFak2.6.2020$lDrift_K
K<- data2.6.2020_K-data2.6.2020_K*(KorFak2.6.2020_K/100)

data2.6.2020_P<-data2.6.2020$P
KorFak2.6.2020_P<-KorFak2.6.2020$lDrift_P
P<- data2.6.2020_P-data2.6.2020_P*(KorFak2.6.2020_P/100)

data2.6.2020_S<-data2.6.2020$S
KorFak2.6.2020_S<-KorFak2.6.2020$lDrift_S
S<- data2.6.2020_S-data2.6.2020_S*(KorFak2.6.2020_S/100)

data2.6.2020_Cl<-data2.6.2020$Cl
KorFak2.6.2020_Cl<-KorFak2.6.2020$lDrift_Cl
Cl<- data2.6.2020_Cl-data2.6.2020_Cl*(KorFak2.6.2020_Cl/100)

data2.6.2020_V<-data2.6.2020$V
KorFak2.6.2020_V<-KorFak2.6.2020$lDrift_V
V<- data2.6.2020_V-data2.6.2020_V*(KorFak2.6.2020_V/100)

data2.6.2020_Cr<-data2.6.2020$Cr
KorFak2.6.2020_Cr<-KorFak2.6.2020$lDrift_Cr
Cr<- data2.6.2020_Cr-data2.6.2020_Cr*(KorFak2.6.2020_Cr/100)

data2.6.2020_Ni<-data2.6.2020$Ni
KorFak2.6.2020_Ni<-KorFak2.6.2020$lDrift_Ni
Ni<- data2.6.2020_Ni-data2.6.2020_Ni*(KorFak2.6.2020_Ni/100)

data2.6.2020_Cu<-data2.6.2020$Cu
KorFak2.6.2020_Cu<-KorFak2.6.2020$lDrift_Cu
Cu<- data2.6.2020_Cu-data2.6.2020_Cu*(KorFak2.6.2020_Cu/100)

data2.6.2020_Zn<-data2.6.2020$Zn
KorFak2.6.2020_Zn<-KorFak2.6.2020$lDrift_Zn
Zn<- data2.6.2020_Zn-data2.6.2020_Zn*(KorFak2.6.2020_Zn/100)

data2.6.2020_As<-data2.6.2020$As
KorFak2.6.2020_As<-KorFak2.6.2020$lDrift_As
As<- data2.6.2020_As-data2.6.2020_As*(KorFak2.6.2020_As/100)

data2.6.2020_Se<-data2.6.2020$Se
KorFak2.6.2020_Se<-KorFak2.6.2020$lDrift_Se
Se<- data2.6.2020_Se-data2.6.2020_Se*(KorFak2.6.2020_Se/100)

data2.6.2020_Rb<-data2.6.2020$Rb
KorFak2.6.2020_Rb<-KorFak2.6.2020$lDrift_Rb
Rb<- data2.6.2020_Rb-data2.6.2020_Rb*(KorFak2.6.2020_Rb/100)

data2.6.2020_Sr<-data2.6.2020$Sr
KorFak2.6.2020_Sr<-KorFak2.6.2020$lDrift_Sr
Sr<- data2.6.2020_Sr-data2.6.2020_Sr*(KorFak2.6.2020_Sr/100)

data2.6.2020_Y<-data2.6.2020$Y
KorFak2.6.2020_Y<-KorFak2.6.2020$lDrift_Y
Y<- data2.6.2020_Y-data2.6.2020_Y*(KorFak2.6.2020_Y/100)

data2.6.2020_Zr<-data2.6.2020$Zr
KorFak2.6.2020_Zr<-KorFak2.6.2020$lDrift_Zr
Zr<- data2.6.2020_Zr-data2.6.2020_Zr*(KorFak2.6.2020_Zr/100)

data2.6.2020_Nb<-data2.6.2020$Nb
KorFak2.6.2020_Nb<-KorFak2.6.2020$lDrift_Nb
Nb<- data2.6.2020_Nb-data2.6.2020_Nb*(KorFak2.6.2020_Nb/100)

data2.6.2020_Mo<-data2.6.2020$Mo
KorFak2.6.2020_Mo<-KorFak2.6.2020$lDrift_Mo
Mo<- data2.6.2020_Mo-data2.6.2020_Mo*(KorFak2.6.2020_Mo/100)

data2.6.2020_Ag<-data2.6.2020$Ag
KorFak2.6.2020_Ag<-KorFak2.6.2020$lDrift_Ag
Ag<- data2.6.2020_Ag-data2.6.2020_Ag*(KorFak2.6.2020_Ag/100)

data2.6.2020_Cd<-data2.6.2020$Cd
KorFak2.6.2020_Cd<-KorFak2.6.2020$lDrift_Cd
Cd<- data2.6.2020_Cd-data2.6.2020_Cd*(KorFak2.6.2020_Cd/100)

data2.6.2020_Sn<-data2.6.2020$Sn
KorFak2.6.2020_Sn<-KorFak2.6.2020$lDrift_Sn
Sn<- data2.6.2020_Sn-data2.6.2020_Sn*(KorFak2.6.2020_Sn/100)

data2.6.2020_Sb<-data2.6.2020$Sb
KorFak2.6.2020_Sb<-KorFak2.6.2020$lDrift_Sb
Sb<- data2.6.2020_Sb-data2.6.2020_Sb*(KorFak2.6.2020_Sb/100)

data2.6.2020_Te<-data2.6.2020$Te
KorFak2.6.2020_Te<-KorFak2.6.2020$lDrift_Te
Te<- data2.6.2020_Te-data2.6.2020_Te*(KorFak2.6.2020_Te/100)

data2.6.2020_Cs<-data2.6.2020$Cs
KorFak2.6.2020_Cs<-KorFak2.6.2020$lDrift_Cs
Cs<- data2.6.2020_Cs-data2.6.2020_Cs*(KorFak2.6.2020_Cs/100)

data2.6.2020_Ba<-data2.6.2020$Ba
KorFak2.6.2020_Ba<-KorFak2.6.2020$lDrift_Ba
Ba<- data2.6.2020_Ba-data2.6.2020_Ba*(KorFak2.6.2020_Ba/100)

data2.6.2020_La<-data2.6.2020$La
KorFak2.6.2020_La<-KorFak2.6.2020$lDrift_La
La<- data2.6.2020_La-data2.6.2020_La*(KorFak2.6.2020_La/100)

data2.6.2020_Pb<-data2.6.2020$Pb
KorFak2.6.2020_Pb<-KorFak2.6.2020$lDrift_Pb
Pb<- data2.6.2020_Pb-data2.6.2020_Pb*(KorFak2.6.2020_Pb/100)

data2.6.2020_Th<-data2.6.2020$Th
KorFak2.6.2020_Th<-KorFak2.6.2020$lDrift_Th
Th<- data2.6.2020_Th-data2.6.2020_Th*(KorFak2.6.2020_Th/100)

data2.6.2020_U<-data2.6.2020$U
KorFak2.6.2020_U<-KorFak2.6.2020$lDrift_U
U<- data2.6.2020_U-data2.6.2020_U*(KorFak2.6.2020_U/100)

Data_OG_lDrift_Kor2.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.24 l-Drift Korrektur des 3.6.2020

KorFak3.6.2020<-KorFak %>% filter(Datum_median=="3.6.2020")
data3.6.2020<-data %>% filter(Datum=="3.6.2020")
Probennummer<-data3.6.2020$Probennummer
Datum<-data3.6.2020$Datum

data3.6.2020_Si<-data3.6.2020$Si
KorFak3.6.2020_Si<-KorFak3.6.2020$lDrift_Si
Si<- data3.6.2020_Si-data3.6.2020_Si*(KorFak3.6.2020_Si/100)

data3.6.2020_Ti<-data3.6.2020$Ti
KorFak3.6.2020_Ti<-KorFak3.6.2020$lDrift_Ti
Ti<- data3.6.2020_Ti-data3.6.2020_Ti*(KorFak3.6.2020_Ti/100)

data3.6.2020_Al<-data3.6.2020$Al
KorFak3.6.2020_Al<-KorFak3.6.2020$lDrift_Al
Al<- data3.6.2020_Al-data3.6.2020_Al*(KorFak3.6.2020_Al/100)

data3.6.2020_Fe<-data3.6.2020$Fe
KorFak3.6.2020_Fe<-KorFak3.6.2020$lDrift_Fe
Fe<- data3.6.2020_Fe-data3.6.2020_Fe*(KorFak3.6.2020_Fe/100)

data3.6.2020_Mn<-data3.6.2020$Mn
KorFak3.6.2020_Mn<-KorFak3.6.2020$lDrift_Mn
Mn<- data3.6.2020_Mn-data3.6.2020_Mn*(KorFak3.6.2020_Mn/100)

data3.6.2020_Mg<-data3.6.2020$Mg
KorFak3.6.2020_Mg<-KorFak3.6.2020$lDrift_Mg
Mg<- data3.6.2020_Mg-data3.6.2020_Mg*(KorFak3.6.2020_Mg/100)

data3.6.2020_Ca<-data3.6.2020$Ca
KorFak3.6.2020_Ca<-KorFak3.6.2020$lDrift_Ca
Ca<- data3.6.2020_Ca-data3.6.2020_Ca*(KorFak3.6.2020_Ca/100)

data3.6.2020_K<-data3.6.2020$K
KorFak3.6.2020_K<-KorFak3.6.2020$lDrift_K
K<- data3.6.2020_K-data3.6.2020_K*(KorFak3.6.2020_K/100)

data3.6.2020_P<-data3.6.2020$P
KorFak3.6.2020_P<-KorFak3.6.2020$lDrift_P
P<- data3.6.2020_P-data3.6.2020_P*(KorFak3.6.2020_P/100)

data3.6.2020_S<-data3.6.2020$S
KorFak3.6.2020_S<-KorFak3.6.2020$lDrift_S
S<- data3.6.2020_S-data3.6.2020_S*(KorFak3.6.2020_S/100)

data3.6.2020_Cl<-data3.6.2020$Cl
KorFak3.6.2020_Cl<-KorFak3.6.2020$lDrift_Cl
Cl<- data3.6.2020_Cl-data3.6.2020_Cl*(KorFak3.6.2020_Cl/100)

data3.6.2020_V<-data3.6.2020$V
KorFak3.6.2020_V<-KorFak3.6.2020$lDrift_V
V<- data3.6.2020_V-data3.6.2020_V*(KorFak3.6.2020_V/100)

data3.6.2020_Cr<-data3.6.2020$Cr
KorFak3.6.2020_Cr<-KorFak3.6.2020$lDrift_Cr
Cr<- data3.6.2020_Cr-data3.6.2020_Cr*(KorFak3.6.2020_Cr/100)

data3.6.2020_Ni<-data3.6.2020$Ni
KorFak3.6.2020_Ni<-KorFak3.6.2020$lDrift_Ni
Ni<- data3.6.2020_Ni-data3.6.2020_Ni*(KorFak3.6.2020_Ni/100)

data3.6.2020_Cu<-data3.6.2020$Cu
KorFak3.6.2020_Cu<-KorFak3.6.2020$lDrift_Cu
Cu<- data3.6.2020_Cu-data3.6.2020_Cu*(KorFak3.6.2020_Cu/100)

data3.6.2020_Zn<-data3.6.2020$Zn
KorFak3.6.2020_Zn<-KorFak3.6.2020$lDrift_Zn
Zn<- data3.6.2020_Zn-data3.6.2020_Zn*(KorFak3.6.2020_Zn/100)

data3.6.2020_As<-data3.6.2020$As
KorFak3.6.2020_As<-KorFak3.6.2020$lDrift_As
As<- data3.6.2020_As-data3.6.2020_As*(KorFak3.6.2020_As/100)

data3.6.2020_Se<-data3.6.2020$Se
KorFak3.6.2020_Se<-KorFak3.6.2020$lDrift_Se
Se<- data3.6.2020_Se-data3.6.2020_Se*(KorFak3.6.2020_Se/100)

data3.6.2020_Rb<-data3.6.2020$Rb
KorFak3.6.2020_Rb<-KorFak3.6.2020$lDrift_Rb
Rb<- data3.6.2020_Rb-data3.6.2020_Rb*(KorFak3.6.2020_Rb/100)

data3.6.2020_Sr<-data3.6.2020$Sr
KorFak3.6.2020_Sr<-KorFak3.6.2020$lDrift_Sr
Sr<- data3.6.2020_Sr-data3.6.2020_Sr*(KorFak3.6.2020_Sr/100)

data3.6.2020_Y<-data3.6.2020$Y
KorFak3.6.2020_Y<-KorFak3.6.2020$lDrift_Y
Y<- data3.6.2020_Y-data3.6.2020_Y*(KorFak3.6.2020_Y/100)

data3.6.2020_Zr<-data3.6.2020$Zr
KorFak3.6.2020_Zr<-KorFak3.6.2020$lDrift_Zr
Zr<- data3.6.2020_Zr-data3.6.2020_Zr*(KorFak3.6.2020_Zr/100)

data3.6.2020_Nb<-data3.6.2020$Nb
KorFak3.6.2020_Nb<-KorFak3.6.2020$lDrift_Nb
Nb<- data3.6.2020_Nb-data3.6.2020_Nb*(KorFak3.6.2020_Nb/100)

data3.6.2020_Mo<-data3.6.2020$Mo
KorFak3.6.2020_Mo<-KorFak3.6.2020$lDrift_Mo
Mo<- data3.6.2020_Mo-data3.6.2020_Mo*(KorFak3.6.2020_Mo/100)

data3.6.2020_Ag<-data3.6.2020$Ag
KorFak3.6.2020_Ag<-KorFak3.6.2020$lDrift_Ag
Ag<- data3.6.2020_Ag-data3.6.2020_Ag*(KorFak3.6.2020_Ag/100)

data3.6.2020_Cd<-data3.6.2020$Cd
KorFak3.6.2020_Cd<-KorFak3.6.2020$lDrift_Cd
Cd<- data3.6.2020_Cd-data3.6.2020_Cd*(KorFak3.6.2020_Cd/100)

data3.6.2020_Sn<-data3.6.2020$Sn
KorFak3.6.2020_Sn<-KorFak3.6.2020$lDrift_Sn
Sn<- data3.6.2020_Sn-data3.6.2020_Sn*(KorFak3.6.2020_Sn/100)

data3.6.2020_Sb<-data3.6.2020$Sb
KorFak3.6.2020_Sb<-KorFak3.6.2020$lDrift_Sb
Sb<- data3.6.2020_Sb-data3.6.2020_Sb*(KorFak3.6.2020_Sb/100)

data3.6.2020_Te<-data3.6.2020$Te
KorFak3.6.2020_Te<-KorFak3.6.2020$lDrift_Te
Te<- data3.6.2020_Te-data3.6.2020_Te*(KorFak3.6.2020_Te/100)

data3.6.2020_Cs<-data3.6.2020$Cs
KorFak3.6.2020_Cs<-KorFak3.6.2020$lDrift_Cs
Cs<- data3.6.2020_Cs-data3.6.2020_Cs*(KorFak3.6.2020_Cs/100)

data3.6.2020_Ba<-data3.6.2020$Ba
KorFak3.6.2020_Ba<-KorFak3.6.2020$lDrift_Ba
Ba<- data3.6.2020_Ba-data3.6.2020_Ba*(KorFak3.6.2020_Ba/100)

data3.6.2020_La<-data3.6.2020$La
KorFak3.6.2020_La<-KorFak3.6.2020$lDrift_La
La<- data3.6.2020_La-data3.6.2020_La*(KorFak3.6.2020_La/100)

data3.6.2020_Pb<-data3.6.2020$Pb
KorFak3.6.2020_Pb<-KorFak3.6.2020$lDrift_Pb
Pb<- data3.6.2020_Pb-data3.6.2020_Pb*(KorFak3.6.2020_Pb/100)

data3.6.2020_Th<-data3.6.2020$Th
KorFak3.6.2020_Th<-KorFak3.6.2020$lDrift_Th
Th<- data3.6.2020_Th-data3.6.2020_Th*(KorFak3.6.2020_Th/100)

data3.6.2020_U<-data3.6.2020$U
KorFak3.6.2020_U<-KorFak3.6.2020$lDrift_U
U<- data3.6.2020_U-data3.6.2020_U*(KorFak3.6.2020_U/100)

Data_OG_lDrift_Kor3.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.25 l-Drift Korrektur des 4.6.2020

KorFak4.6.2020<-KorFak %>% filter(Datum_median=="4.6.2020")
data4.6.2020<-data %>% filter(Datum=="4.6.2020")
Probennummer<-data4.6.2020$Probennummer
Datum<-data4.6.2020$Datum

data4.6.2020_Si<-data4.6.2020$Si
KorFak4.6.2020_Si<-KorFak4.6.2020$lDrift_Si
Si<- data4.6.2020_Si-data4.6.2020_Si*(KorFak4.6.2020_Si/100)

data4.6.2020_Ti<-data4.6.2020$Ti
KorFak4.6.2020_Ti<-KorFak4.6.2020$lDrift_Ti
Ti<- data4.6.2020_Ti-data4.6.2020_Ti*(KorFak4.6.2020_Ti/100)

data4.6.2020_Al<-data4.6.2020$Al
KorFak4.6.2020_Al<-KorFak4.6.2020$lDrift_Al
Al<- data4.6.2020_Al-data4.6.2020_Al*(KorFak4.6.2020_Al/100)

data4.6.2020_Fe<-data4.6.2020$Fe
KorFak4.6.2020_Fe<-KorFak4.6.2020$lDrift_Fe
Fe<- data4.6.2020_Fe-data4.6.2020_Fe*(KorFak4.6.2020_Fe/100)

data4.6.2020_Mn<-data4.6.2020$Mn
KorFak4.6.2020_Mn<-KorFak4.6.2020$lDrift_Mn
Mn<- data4.6.2020_Mn-data4.6.2020_Mn*(KorFak4.6.2020_Mn/100)

data4.6.2020_Mg<-data4.6.2020$Mg
KorFak4.6.2020_Mg<-KorFak4.6.2020$lDrift_Mg
Mg<- data4.6.2020_Mg-data4.6.2020_Mg*(KorFak4.6.2020_Mg/100)

data4.6.2020_Ca<-data4.6.2020$Ca
KorFak4.6.2020_Ca<-KorFak4.6.2020$lDrift_Ca
Ca<- data4.6.2020_Ca-data4.6.2020_Ca*(KorFak4.6.2020_Ca/100)

data4.6.2020_K<-data4.6.2020$K
KorFak4.6.2020_K<-KorFak4.6.2020$lDrift_K
K<- data4.6.2020_K-data4.6.2020_K*(KorFak4.6.2020_K/100)

data4.6.2020_P<-data4.6.2020$P
KorFak4.6.2020_P<-KorFak4.6.2020$lDrift_P
P<- data4.6.2020_P-data4.6.2020_P*(KorFak4.6.2020_P/100)

data4.6.2020_S<-data4.6.2020$S
KorFak4.6.2020_S<-KorFak4.6.2020$lDrift_S
S<- data4.6.2020_S-data4.6.2020_S*(KorFak4.6.2020_S/100)

data4.6.2020_Cl<-data4.6.2020$Cl
KorFak4.6.2020_Cl<-KorFak4.6.2020$lDrift_Cl
Cl<- data4.6.2020_Cl-data4.6.2020_Cl*(KorFak4.6.2020_Cl/100)

data4.6.2020_V<-data4.6.2020$V
KorFak4.6.2020_V<-KorFak4.6.2020$lDrift_V
V<- data4.6.2020_V-data4.6.2020_V*(KorFak4.6.2020_V/100)

data4.6.2020_Cr<-data4.6.2020$Cr
KorFak4.6.2020_Cr<-KorFak4.6.2020$lDrift_Cr
Cr<- data4.6.2020_Cr-data4.6.2020_Cr*(KorFak4.6.2020_Cr/100)

data4.6.2020_Ni<-data4.6.2020$Ni
KorFak4.6.2020_Ni<-KorFak4.6.2020$lDrift_Ni
Ni<- data4.6.2020_Ni-data4.6.2020_Ni*(KorFak4.6.2020_Ni/100)

data4.6.2020_Cu<-data4.6.2020$Cu
KorFak4.6.2020_Cu<-KorFak4.6.2020$lDrift_Cu
Cu<- data4.6.2020_Cu-data4.6.2020_Cu*(KorFak4.6.2020_Cu/100)

data4.6.2020_Zn<-data4.6.2020$Zn
KorFak4.6.2020_Zn<-KorFak4.6.2020$lDrift_Zn
Zn<- data4.6.2020_Zn-data4.6.2020_Zn*(KorFak4.6.2020_Zn/100)

data4.6.2020_As<-data4.6.2020$As
KorFak4.6.2020_As<-KorFak4.6.2020$lDrift_As
As<- data4.6.2020_As-data4.6.2020_As*(KorFak4.6.2020_As/100)

data4.6.2020_Se<-data4.6.2020$Se
KorFak4.6.2020_Se<-KorFak4.6.2020$lDrift_Se
Se<- data4.6.2020_Se-data4.6.2020_Se*(KorFak4.6.2020_Se/100)

data4.6.2020_Rb<-data4.6.2020$Rb
KorFak4.6.2020_Rb<-KorFak4.6.2020$lDrift_Rb
Rb<- data4.6.2020_Rb-data4.6.2020_Rb*(KorFak4.6.2020_Rb/100)

data4.6.2020_Sr<-data4.6.2020$Sr
KorFak4.6.2020_Sr<-KorFak4.6.2020$lDrift_Sr
Sr<- data4.6.2020_Sr-data4.6.2020_Sr*(KorFak4.6.2020_Sr/100)

data4.6.2020_Y<-data4.6.2020$Y
KorFak4.6.2020_Y<-KorFak4.6.2020$lDrift_Y
Y<- data4.6.2020_Y-data4.6.2020_Y*(KorFak4.6.2020_Y/100)

data4.6.2020_Zr<-data4.6.2020$Zr
KorFak4.6.2020_Zr<-KorFak4.6.2020$lDrift_Zr
Zr<- data4.6.2020_Zr-data4.6.2020_Zr*(KorFak4.6.2020_Zr/100)

data4.6.2020_Nb<-data4.6.2020$Nb
KorFak4.6.2020_Nb<-KorFak4.6.2020$lDrift_Nb
Nb<- data4.6.2020_Nb-data4.6.2020_Nb*(KorFak4.6.2020_Nb/100)

data4.6.2020_Mo<-data4.6.2020$Mo
KorFak4.6.2020_Mo<-KorFak4.6.2020$lDrift_Mo
Mo<- data4.6.2020_Mo-data4.6.2020_Mo*(KorFak4.6.2020_Mo/100)

data4.6.2020_Ag<-data4.6.2020$Ag
KorFak4.6.2020_Ag<-KorFak4.6.2020$lDrift_Ag
Ag<- data4.6.2020_Ag-data4.6.2020_Ag*(KorFak4.6.2020_Ag/100)

data4.6.2020_Cd<-data4.6.2020$Cd
KorFak4.6.2020_Cd<-KorFak4.6.2020$lDrift_Cd
Cd<- data4.6.2020_Cd-data4.6.2020_Cd*(KorFak4.6.2020_Cd/100)

data4.6.2020_Sn<-data4.6.2020$Sn
KorFak4.6.2020_Sn<-KorFak4.6.2020$lDrift_Sn
Sn<- data4.6.2020_Sn-data4.6.2020_Sn*(KorFak4.6.2020_Sn/100)

data4.6.2020_Sb<-data4.6.2020$Sb
KorFak4.6.2020_Sb<-KorFak4.6.2020$lDrift_Sb
Sb<- data4.6.2020_Sb-data4.6.2020_Sb*(KorFak4.6.2020_Sb/100)

data4.6.2020_Te<-data4.6.2020$Te
KorFak4.6.2020_Te<-KorFak4.6.2020$lDrift_Te
Te<- data4.6.2020_Te-data4.6.2020_Te*(KorFak4.6.2020_Te/100)

data4.6.2020_Cs<-data4.6.2020$Cs
KorFak4.6.2020_Cs<-KorFak4.6.2020$lDrift_Cs
Cs<- data4.6.2020_Cs-data4.6.2020_Cs*(KorFak4.6.2020_Cs/100)

data4.6.2020_Ba<-data4.6.2020$Ba
KorFak4.6.2020_Ba<-KorFak4.6.2020$lDrift_Ba
Ba<- data4.6.2020_Ba-data4.6.2020_Ba*(KorFak4.6.2020_Ba/100)

data4.6.2020_La<-data4.6.2020$La
KorFak4.6.2020_La<-KorFak4.6.2020$lDrift_La
La<- data4.6.2020_La-data4.6.2020_La*(KorFak4.6.2020_La/100)

data4.6.2020_Pb<-data4.6.2020$Pb
KorFak4.6.2020_Pb<-KorFak4.6.2020$lDrift_Pb
Pb<- data4.6.2020_Pb-data4.6.2020_Pb*(KorFak4.6.2020_Pb/100)

data4.6.2020_Th<-data4.6.2020$Th
KorFak4.6.2020_Th<-KorFak4.6.2020$lDrift_Th
Th<- data4.6.2020_Th-data4.6.2020_Th*(KorFak4.6.2020_Th/100)

data4.6.2020_U<-data4.6.2020$U
KorFak4.6.2020_U<-KorFak4.6.2020$lDrift_U
U<- data4.6.2020_U-data4.6.2020_U*(KorFak4.6.2020_U/100)

Data_OG_lDrift_Kor4.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.26 l-Drift Korrektur des 5.6.2020

KorFak5.6.2020<-KorFak %>% filter(Datum_median=="5.6.2020")
data5.6.2020<-data %>% filter(Datum=="5.6.2020")
Probennummer<-data5.6.2020$Probennummer
Datum<-data5.6.2020$Datum

data5.6.2020_Si<-data5.6.2020$Si
KorFak5.6.2020_Si<-KorFak5.6.2020$lDrift_Si
Si<- data5.6.2020_Si-data5.6.2020_Si*(KorFak5.6.2020_Si/100)

data5.6.2020_Ti<-data5.6.2020$Ti
KorFak5.6.2020_Ti<-KorFak5.6.2020$lDrift_Ti
Ti<- data5.6.2020_Ti-data5.6.2020_Ti*(KorFak5.6.2020_Ti/100)

data5.6.2020_Al<-data5.6.2020$Al
KorFak5.6.2020_Al<-KorFak5.6.2020$lDrift_Al
Al<- data5.6.2020_Al-data5.6.2020_Al*(KorFak5.6.2020_Al/100)

data5.6.2020_Fe<-data5.6.2020$Fe
KorFak5.6.2020_Fe<-KorFak5.6.2020$lDrift_Fe
Fe<- data5.6.2020_Fe-data5.6.2020_Fe*(KorFak5.6.2020_Fe/100)

data5.6.2020_Mn<-data5.6.2020$Mn
KorFak5.6.2020_Mn<-KorFak5.6.2020$lDrift_Mn
Mn<- data5.6.2020_Mn-data5.6.2020_Mn*(KorFak5.6.2020_Mn/100)

data5.6.2020_Mg<-data5.6.2020$Mg
KorFak5.6.2020_Mg<-KorFak5.6.2020$lDrift_Mg
Mg<- data5.6.2020_Mg-data5.6.2020_Mg*(KorFak5.6.2020_Mg/100)

data5.6.2020_Ca<-data5.6.2020$Ca
KorFak5.6.2020_Ca<-KorFak5.6.2020$lDrift_Ca
Ca<- data5.6.2020_Ca-data5.6.2020_Ca*(KorFak5.6.2020_Ca/100)

data5.6.2020_K<-data5.6.2020$K
KorFak5.6.2020_K<-KorFak5.6.2020$lDrift_K
K<- data5.6.2020_K-data5.6.2020_K*(KorFak5.6.2020_K/100)

data5.6.2020_P<-data5.6.2020$P
KorFak5.6.2020_P<-KorFak5.6.2020$lDrift_P
P<- data5.6.2020_P-data5.6.2020_P*(KorFak5.6.2020_P/100)

data5.6.2020_S<-data5.6.2020$S
KorFak5.6.2020_S<-KorFak5.6.2020$lDrift_S
S<- data5.6.2020_S-data5.6.2020_S*(KorFak5.6.2020_S/100)

data5.6.2020_Cl<-data5.6.2020$Cl
KorFak5.6.2020_Cl<-KorFak5.6.2020$lDrift_Cl
Cl<- data5.6.2020_Cl-data5.6.2020_Cl*(KorFak5.6.2020_Cl/100)

data5.6.2020_V<-data5.6.2020$V
KorFak5.6.2020_V<-KorFak5.6.2020$lDrift_V
V<- data5.6.2020_V-data5.6.2020_V*(KorFak5.6.2020_V/100)

data5.6.2020_Cr<-data5.6.2020$Cr
KorFak5.6.2020_Cr<-KorFak5.6.2020$lDrift_Cr
Cr<- data5.6.2020_Cr-data5.6.2020_Cr*(KorFak5.6.2020_Cr/100)

data5.6.2020_Ni<-data5.6.2020$Ni
KorFak5.6.2020_Ni<-KorFak5.6.2020$lDrift_Ni
Ni<- data5.6.2020_Ni-data5.6.2020_Ni*(KorFak5.6.2020_Ni/100)

data5.6.2020_Cu<-data5.6.2020$Cu
KorFak5.6.2020_Cu<-KorFak5.6.2020$lDrift_Cu
Cu<- data5.6.2020_Cu-data5.6.2020_Cu*(KorFak5.6.2020_Cu/100)

data5.6.2020_Zn<-data5.6.2020$Zn
KorFak5.6.2020_Zn<-KorFak5.6.2020$lDrift_Zn
Zn<- data5.6.2020_Zn-data5.6.2020_Zn*(KorFak5.6.2020_Zn/100)

data5.6.2020_As<-data5.6.2020$As
KorFak5.6.2020_As<-KorFak5.6.2020$lDrift_As
As<- data5.6.2020_As-data5.6.2020_As*(KorFak5.6.2020_As/100)

data5.6.2020_Se<-data5.6.2020$Se
KorFak5.6.2020_Se<-KorFak5.6.2020$lDrift_Se
Se<- data5.6.2020_Se-data5.6.2020_Se*(KorFak5.6.2020_Se/100)

data5.6.2020_Rb<-data5.6.2020$Rb
KorFak5.6.2020_Rb<-KorFak5.6.2020$lDrift_Rb
Rb<- data5.6.2020_Rb-data5.6.2020_Rb*(KorFak5.6.2020_Rb/100)

data5.6.2020_Sr<-data5.6.2020$Sr
KorFak5.6.2020_Sr<-KorFak5.6.2020$lDrift_Sr
Sr<- data5.6.2020_Sr-data5.6.2020_Sr*(KorFak5.6.2020_Sr/100)

data5.6.2020_Y<-data5.6.2020$Y
KorFak5.6.2020_Y<-KorFak5.6.2020$lDrift_Y
Y<- data5.6.2020_Y-data5.6.2020_Y*(KorFak5.6.2020_Y/100)

data5.6.2020_Zr<-data5.6.2020$Zr
KorFak5.6.2020_Zr<-KorFak5.6.2020$lDrift_Zr
Zr<- data5.6.2020_Zr-data5.6.2020_Zr*(KorFak5.6.2020_Zr/100)

data5.6.2020_Nb<-data5.6.2020$Nb
KorFak5.6.2020_Nb<-KorFak5.6.2020$lDrift_Nb
Nb<- data5.6.2020_Nb-data5.6.2020_Nb*(KorFak5.6.2020_Nb/100)

data5.6.2020_Mo<-data5.6.2020$Mo
KorFak5.6.2020_Mo<-KorFak5.6.2020$lDrift_Mo
Mo<- data5.6.2020_Mo-data5.6.2020_Mo*(KorFak5.6.2020_Mo/100)

data5.6.2020_Ag<-data5.6.2020$Ag
KorFak5.6.2020_Ag<-KorFak5.6.2020$lDrift_Ag
Ag<- data5.6.2020_Ag-data5.6.2020_Ag*(KorFak5.6.2020_Ag/100)

data5.6.2020_Cd<-data5.6.2020$Cd
KorFak5.6.2020_Cd<-KorFak5.6.2020$lDrift_Cd
Cd<- data5.6.2020_Cd-data5.6.2020_Cd*(KorFak5.6.2020_Cd/100)

data5.6.2020_Sn<-data5.6.2020$Sn
KorFak5.6.2020_Sn<-KorFak5.6.2020$lDrift_Sn
Sn<- data5.6.2020_Sn-data5.6.2020_Sn*(KorFak5.6.2020_Sn/100)

data5.6.2020_Sb<-data5.6.2020$Sb
KorFak5.6.2020_Sb<-KorFak5.6.2020$lDrift_Sb
Sb<- data5.6.2020_Sb-data5.6.2020_Sb*(KorFak5.6.2020_Sb/100)

data5.6.2020_Te<-data5.6.2020$Te
KorFak5.6.2020_Te<-KorFak5.6.2020$lDrift_Te
Te<- data5.6.2020_Te-data5.6.2020_Te*(KorFak5.6.2020_Te/100)

data5.6.2020_Cs<-data5.6.2020$Cs
KorFak5.6.2020_Cs<-KorFak5.6.2020$lDrift_Cs
Cs<- data5.6.2020_Cs-data5.6.2020_Cs*(KorFak5.6.2020_Cs/100)

data5.6.2020_Ba<-data5.6.2020$Ba
KorFak5.6.2020_Ba<-KorFak5.6.2020$lDrift_Ba
Ba<- data5.6.2020_Ba-data5.6.2020_Ba*(KorFak5.6.2020_Ba/100)

data5.6.2020_La<-data5.6.2020$La
KorFak5.6.2020_La<-KorFak5.6.2020$lDrift_La
La<- data5.6.2020_La-data5.6.2020_La*(KorFak5.6.2020_La/100)

data5.6.2020_Pb<-data5.6.2020$Pb
KorFak5.6.2020_Pb<-KorFak5.6.2020$lDrift_Pb
Pb<- data5.6.2020_Pb-data5.6.2020_Pb*(KorFak5.6.2020_Pb/100)

data5.6.2020_Th<-data5.6.2020$Th
KorFak5.6.2020_Th<-KorFak5.6.2020$lDrift_Th
Th<- data5.6.2020_Th-data5.6.2020_Th*(KorFak5.6.2020_Th/100)

data5.6.2020_U<-data5.6.2020$U
KorFak5.6.2020_U<-KorFak5.6.2020$lDrift_U
U<- data5.6.2020_U-data5.6.2020_U*(KorFak5.6.2020_U/100)

Data_OG_lDrift_Kor5.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.27 l-Drift Korrektur des 7.6.2020

KorFak7.6.2020<-KorFak %>% filter(Datum_median=="7.6.2020")
data7.6.2020<-data %>% filter(Datum=="7.6.2020")
Probennummer<-data7.6.2020$Probennummer
Datum<-data7.6.2020$Datum

data7.6.2020_Si<-data7.6.2020$Si
KorFak7.6.2020_Si<-KorFak7.6.2020$lDrift_Si
Si<- data7.6.2020_Si-data7.6.2020_Si*(KorFak7.6.2020_Si/100)

data7.6.2020_Ti<-data7.6.2020$Ti
KorFak7.6.2020_Ti<-KorFak7.6.2020$lDrift_Ti
Ti<- data7.6.2020_Ti-data7.6.2020_Ti*(KorFak7.6.2020_Ti/100)

data7.6.2020_Al<-data7.6.2020$Al
KorFak7.6.2020_Al<-KorFak7.6.2020$lDrift_Al
Al<- data7.6.2020_Al-data7.6.2020_Al*(KorFak7.6.2020_Al/100)

data7.6.2020_Fe<-data7.6.2020$Fe
KorFak7.6.2020_Fe<-KorFak7.6.2020$lDrift_Fe
Fe<- data7.6.2020_Fe-data7.6.2020_Fe*(KorFak7.6.2020_Fe/100)

data7.6.2020_Mn<-data7.6.2020$Mn
KorFak7.6.2020_Mn<-KorFak7.6.2020$lDrift_Mn
Mn<- data7.6.2020_Mn-data7.6.2020_Mn*(KorFak7.6.2020_Mn/100)

data7.6.2020_Mg<-data7.6.2020$Mg
KorFak7.6.2020_Mg<-KorFak7.6.2020$lDrift_Mg
Mg<- data7.6.2020_Mg-data7.6.2020_Mg*(KorFak7.6.2020_Mg/100)

data7.6.2020_Ca<-data7.6.2020$Ca
KorFak7.6.2020_Ca<-KorFak7.6.2020$lDrift_Ca
Ca<- data7.6.2020_Ca-data7.6.2020_Ca*(KorFak7.6.2020_Ca/100)

data7.6.2020_K<-data7.6.2020$K
KorFak7.6.2020_K<-KorFak7.6.2020$lDrift_K
K<- data7.6.2020_K-data7.6.2020_K*(KorFak7.6.2020_K/100)

data7.6.2020_P<-data7.6.2020$P
KorFak7.6.2020_P<-KorFak7.6.2020$lDrift_P
P<- data7.6.2020_P-data7.6.2020_P*(KorFak7.6.2020_P/100)

data7.6.2020_S<-data7.6.2020$S
KorFak7.6.2020_S<-KorFak7.6.2020$lDrift_S
S<- data7.6.2020_S-data7.6.2020_S*(KorFak7.6.2020_S/100)

data7.6.2020_Cl<-data7.6.2020$Cl
KorFak7.6.2020_Cl<-KorFak7.6.2020$lDrift_Cl
Cl<- data7.6.2020_Cl-data7.6.2020_Cl*(KorFak7.6.2020_Cl/100)

data7.6.2020_V<-data7.6.2020$V
KorFak7.6.2020_V<-KorFak7.6.2020$lDrift_V
V<- data7.6.2020_V-data7.6.2020_V*(KorFak7.6.2020_V/100)

data7.6.2020_Cr<-data7.6.2020$Cr
KorFak7.6.2020_Cr<-KorFak7.6.2020$lDrift_Cr
Cr<- data7.6.2020_Cr-data7.6.2020_Cr*(KorFak7.6.2020_Cr/100)

data7.6.2020_Ni<-data7.6.2020$Ni
KorFak7.6.2020_Ni<-KorFak7.6.2020$lDrift_Ni
Ni<- data7.6.2020_Ni-data7.6.2020_Ni*(KorFak7.6.2020_Ni/100)

data7.6.2020_Cu<-data7.6.2020$Cu
KorFak7.6.2020_Cu<-KorFak7.6.2020$lDrift_Cu
Cu<- data7.6.2020_Cu-data7.6.2020_Cu*(KorFak7.6.2020_Cu/100)

data7.6.2020_Zn<-data7.6.2020$Zn
KorFak7.6.2020_Zn<-KorFak7.6.2020$lDrift_Zn
Zn<- data7.6.2020_Zn-data7.6.2020_Zn*(KorFak7.6.2020_Zn/100)

data7.6.2020_As<-data7.6.2020$As
KorFak7.6.2020_As<-KorFak7.6.2020$lDrift_As
As<- data7.6.2020_As-data7.6.2020_As*(KorFak7.6.2020_As/100)

data7.6.2020_Se<-data7.6.2020$Se
KorFak7.6.2020_Se<-KorFak7.6.2020$lDrift_Se
Se<- data7.6.2020_Se-data7.6.2020_Se*(KorFak7.6.2020_Se/100)

data7.6.2020_Rb<-data7.6.2020$Rb
KorFak7.6.2020_Rb<-KorFak7.6.2020$lDrift_Rb
Rb<- data7.6.2020_Rb-data7.6.2020_Rb*(KorFak7.6.2020_Rb/100)

data7.6.2020_Sr<-data7.6.2020$Sr
KorFak7.6.2020_Sr<-KorFak7.6.2020$lDrift_Sr
Sr<- data7.6.2020_Sr-data7.6.2020_Sr*(KorFak7.6.2020_Sr/100)

data7.6.2020_Y<-data7.6.2020$Y
KorFak7.6.2020_Y<-KorFak7.6.2020$lDrift_Y
Y<- data7.6.2020_Y-data7.6.2020_Y*(KorFak7.6.2020_Y/100)

data7.6.2020_Zr<-data7.6.2020$Zr
KorFak7.6.2020_Zr<-KorFak7.6.2020$lDrift_Zr
Zr<- data7.6.2020_Zr-data7.6.2020_Zr*(KorFak7.6.2020_Zr/100)

data7.6.2020_Nb<-data7.6.2020$Nb
KorFak7.6.2020_Nb<-KorFak7.6.2020$lDrift_Nb
Nb<- data7.6.2020_Nb-data7.6.2020_Nb*(KorFak7.6.2020_Nb/100)

data7.6.2020_Mo<-data7.6.2020$Mo
KorFak7.6.2020_Mo<-KorFak7.6.2020$lDrift_Mo
Mo<- data7.6.2020_Mo-data7.6.2020_Mo*(KorFak7.6.2020_Mo/100)

data7.6.2020_Ag<-data7.6.2020$Ag
KorFak7.6.2020_Ag<-KorFak7.6.2020$lDrift_Ag
Ag<- data7.6.2020_Ag-data7.6.2020_Ag*(KorFak7.6.2020_Ag/100)

data7.6.2020_Cd<-data7.6.2020$Cd
KorFak7.6.2020_Cd<-KorFak7.6.2020$lDrift_Cd
Cd<- data7.6.2020_Cd-data7.6.2020_Cd*(KorFak7.6.2020_Cd/100)

data7.6.2020_Sn<-data7.6.2020$Sn
KorFak7.6.2020_Sn<-KorFak7.6.2020$lDrift_Sn
Sn<- data7.6.2020_Sn-data7.6.2020_Sn*(KorFak7.6.2020_Sn/100)

data7.6.2020_Sb<-data7.6.2020$Sb
KorFak7.6.2020_Sb<-KorFak7.6.2020$lDrift_Sb
Sb<- data7.6.2020_Sb-data7.6.2020_Sb*(KorFak7.6.2020_Sb/100)

data7.6.2020_Te<-data7.6.2020$Te
KorFak7.6.2020_Te<-KorFak7.6.2020$lDrift_Te
Te<- data7.6.2020_Te-data7.6.2020_Te*(KorFak7.6.2020_Te/100)

data7.6.2020_Cs<-data7.6.2020$Cs
KorFak7.6.2020_Cs<-KorFak7.6.2020$lDrift_Cs
Cs<- data7.6.2020_Cs-data7.6.2020_Cs*(KorFak7.6.2020_Cs/100)

data7.6.2020_Ba<-data7.6.2020$Ba
KorFak7.6.2020_Ba<-KorFak7.6.2020$lDrift_Ba
Ba<- data7.6.2020_Ba-data7.6.2020_Ba*(KorFak7.6.2020_Ba/100)

data7.6.2020_La<-data7.6.2020$La
KorFak7.6.2020_La<-KorFak7.6.2020$lDrift_La
La<- data7.6.2020_La-data7.6.2020_La*(KorFak7.6.2020_La/100)

data7.6.2020_Pb<-data7.6.2020$Pb
KorFak7.6.2020_Pb<-KorFak7.6.2020$lDrift_Pb
Pb<- data7.6.2020_Pb-data7.6.2020_Pb*(KorFak7.6.2020_Pb/100)

data7.6.2020_Th<-data7.6.2020$Th
KorFak7.6.2020_Th<-KorFak7.6.2020$lDrift_Th
Th<- data7.6.2020_Th-data7.6.2020_Th*(KorFak7.6.2020_Th/100)

data7.6.2020_U<-data7.6.2020$U
KorFak7.6.2020_U<-KorFak7.6.2020$lDrift_U
U<- data7.6.2020_U-data7.6.2020_U*(KorFak7.6.2020_U/100)

Data_OG_lDrift_Kor7.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.28 l-Drift Korrektur des 10.6.2020

KorFak10.6.2020<-KorFak %>% filter(Datum_median=="10.6.2020")
data10.6.2020<-data %>% filter(Datum=="10.6.2020")
Probennummer<-data10.6.2020$Probennummer
Datum<-data10.6.2020$Datum

data10.6.2020_Si<-data10.6.2020$Si
KorFak10.6.2020_Si<-KorFak10.6.2020$lDrift_Si
Si<- data10.6.2020_Si-data10.6.2020_Si*(KorFak10.6.2020_Si/100)

data10.6.2020_Ti<-data10.6.2020$Ti
KorFak10.6.2020_Ti<-KorFak10.6.2020$lDrift_Ti
Ti<- data10.6.2020_Ti-data10.6.2020_Ti*(KorFak10.6.2020_Ti/100)

data10.6.2020_Al<-data10.6.2020$Al
KorFak10.6.2020_Al<-KorFak10.6.2020$lDrift_Al
Al<- data10.6.2020_Al-data10.6.2020_Al*(KorFak10.6.2020_Al/100)

data10.6.2020_Fe<-data10.6.2020$Fe
KorFak10.6.2020_Fe<-KorFak10.6.2020$lDrift_Fe
Fe<- data10.6.2020_Fe-data10.6.2020_Fe*(KorFak10.6.2020_Fe/100)

data10.6.2020_Mn<-data10.6.2020$Mn
KorFak10.6.2020_Mn<-KorFak10.6.2020$lDrift_Mn
Mn<- data10.6.2020_Mn-data10.6.2020_Mn*(KorFak10.6.2020_Mn/100)

data10.6.2020_Mg<-data10.6.2020$Mg
KorFak10.6.2020_Mg<-KorFak10.6.2020$lDrift_Mg
Mg<- data10.6.2020_Mg-data10.6.2020_Mg*(KorFak10.6.2020_Mg/100)

data10.6.2020_Ca<-data10.6.2020$Ca
KorFak10.6.2020_Ca<-KorFak10.6.2020$lDrift_Ca
Ca<- data10.6.2020_Ca-data10.6.2020_Ca*(KorFak10.6.2020_Ca/100)

data10.6.2020_K<-data10.6.2020$K
KorFak10.6.2020_K<-KorFak10.6.2020$lDrift_K
K<- data10.6.2020_K-data10.6.2020_K*(KorFak10.6.2020_K/100)

data10.6.2020_P<-data10.6.2020$P
KorFak10.6.2020_P<-KorFak10.6.2020$lDrift_P
P<- data10.6.2020_P-data10.6.2020_P*(KorFak10.6.2020_P/100)

data10.6.2020_S<-data10.6.2020$S
KorFak10.6.2020_S<-KorFak10.6.2020$lDrift_S
S<- data10.6.2020_S-data10.6.2020_S*(KorFak10.6.2020_S/100)

data10.6.2020_Cl<-data10.6.2020$Cl
KorFak10.6.2020_Cl<-KorFak10.6.2020$lDrift_Cl
Cl<- data10.6.2020_Cl-data10.6.2020_Cl*(KorFak10.6.2020_Cl/100)

data10.6.2020_V<-data10.6.2020$V
KorFak10.6.2020_V<-KorFak10.6.2020$lDrift_V
V<- data10.6.2020_V-data10.6.2020_V*(KorFak10.6.2020_V/100)

data10.6.2020_Cr<-data10.6.2020$Cr
KorFak10.6.2020_Cr<-KorFak10.6.2020$lDrift_Cr
Cr<- data10.6.2020_Cr-data10.6.2020_Cr*(KorFak10.6.2020_Cr/100)

data10.6.2020_Ni<-data10.6.2020$Ni
KorFak10.6.2020_Ni<-KorFak10.6.2020$lDrift_Ni
Ni<- data10.6.2020_Ni-data10.6.2020_Ni*(KorFak10.6.2020_Ni/100)

data10.6.2020_Cu<-data10.6.2020$Cu
KorFak10.6.2020_Cu<-KorFak10.6.2020$lDrift_Cu
Cu<- data10.6.2020_Cu-data10.6.2020_Cu*(KorFak10.6.2020_Cu/100)

data10.6.2020_Zn<-data10.6.2020$Zn
KorFak10.6.2020_Zn<-KorFak10.6.2020$lDrift_Zn
Zn<- data10.6.2020_Zn-data10.6.2020_Zn*(KorFak10.6.2020_Zn/100)

data10.6.2020_As<-data10.6.2020$As
KorFak10.6.2020_As<-KorFak10.6.2020$lDrift_As
As<- data10.6.2020_As-data10.6.2020_As*(KorFak10.6.2020_As/100)

data10.6.2020_Se<-data10.6.2020$Se
KorFak10.6.2020_Se<-KorFak10.6.2020$lDrift_Se
Se<- data10.6.2020_Se-data10.6.2020_Se*(KorFak10.6.2020_Se/100)

data10.6.2020_Rb<-data10.6.2020$Rb
KorFak10.6.2020_Rb<-KorFak10.6.2020$lDrift_Rb
Rb<- data10.6.2020_Rb-data10.6.2020_Rb*(KorFak10.6.2020_Rb/100)

data10.6.2020_Sr<-data10.6.2020$Sr
KorFak10.6.2020_Sr<-KorFak10.6.2020$lDrift_Sr
Sr<- data10.6.2020_Sr-data10.6.2020_Sr*(KorFak10.6.2020_Sr/100)

data10.6.2020_Y<-data10.6.2020$Y
KorFak10.6.2020_Y<-KorFak10.6.2020$lDrift_Y
Y<- data10.6.2020_Y-data10.6.2020_Y*(KorFak10.6.2020_Y/100)

data10.6.2020_Zr<-data10.6.2020$Zr
KorFak10.6.2020_Zr<-KorFak10.6.2020$lDrift_Zr
Zr<- data10.6.2020_Zr-data10.6.2020_Zr*(KorFak10.6.2020_Zr/100)

data10.6.2020_Nb<-data10.6.2020$Nb
KorFak10.6.2020_Nb<-KorFak10.6.2020$lDrift_Nb
Nb<- data10.6.2020_Nb-data10.6.2020_Nb*(KorFak10.6.2020_Nb/100)

data10.6.2020_Mo<-data10.6.2020$Mo
KorFak10.6.2020_Mo<-KorFak10.6.2020$lDrift_Mo
Mo<- data10.6.2020_Mo-data10.6.2020_Mo*(KorFak10.6.2020_Mo/100)

data10.6.2020_Ag<-data10.6.2020$Ag
KorFak10.6.2020_Ag<-KorFak10.6.2020$lDrift_Ag
Ag<- data10.6.2020_Ag-data10.6.2020_Ag*(KorFak10.6.2020_Ag/100)

data10.6.2020_Cd<-data10.6.2020$Cd
KorFak10.6.2020_Cd<-KorFak10.6.2020$lDrift_Cd
Cd<- data10.6.2020_Cd-data10.6.2020_Cd*(KorFak10.6.2020_Cd/100)

data10.6.2020_Sn<-data10.6.2020$Sn
KorFak10.6.2020_Sn<-KorFak10.6.2020$lDrift_Sn
Sn<- data10.6.2020_Sn-data10.6.2020_Sn*(KorFak10.6.2020_Sn/100)

data10.6.2020_Sb<-data10.6.2020$Sb
KorFak10.6.2020_Sb<-KorFak10.6.2020$lDrift_Sb
Sb<- data10.6.2020_Sb-data10.6.2020_Sb*(KorFak10.6.2020_Sb/100)

data10.6.2020_Te<-data10.6.2020$Te
KorFak10.6.2020_Te<-KorFak10.6.2020$lDrift_Te
Te<- data10.6.2020_Te-data10.6.2020_Te*(KorFak10.6.2020_Te/100)

data10.6.2020_Cs<-data10.6.2020$Cs
KorFak10.6.2020_Cs<-KorFak10.6.2020$lDrift_Cs
Cs<- data10.6.2020_Cs-data10.6.2020_Cs*(KorFak10.6.2020_Cs/100)

data10.6.2020_Ba<-data10.6.2020$Ba
KorFak10.6.2020_Ba<-KorFak10.6.2020$lDrift_Ba
Ba<- data10.6.2020_Ba-data10.6.2020_Ba*(KorFak10.6.2020_Ba/100)

data10.6.2020_La<-data10.6.2020$La
KorFak10.6.2020_La<-KorFak10.6.2020$lDrift_La
La<- data10.6.2020_La-data10.6.2020_La*(KorFak10.6.2020_La/100)

data10.6.2020_Pb<-data10.6.2020$Pb
KorFak10.6.2020_Pb<-KorFak10.6.2020$lDrift_Pb
Pb<- data10.6.2020_Pb-data10.6.2020_Pb*(KorFak10.6.2020_Pb/100)

data10.6.2020_Th<-data10.6.2020$Th
KorFak10.6.2020_Th<-KorFak10.6.2020$lDrift_Th
Th<- data10.6.2020_Th-data10.6.2020_Th*(KorFak10.6.2020_Th/100)

data10.6.2020_U<-data10.6.2020$U
KorFak10.6.2020_U<-KorFak10.6.2020$lDrift_U
U<- data10.6.2020_U-data10.6.2020_U*(KorFak10.6.2020_U/100)

Data_OG_lDrift_Kor10.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.29 l-Drift Korrektur des 11.6.2020

KorFak11.6.2020<-KorFak %>% filter(Datum_median=="11.6.2020")
data11.6.2020<-data %>% filter(Datum=="11.6.2020")
Probennummer<-data11.6.2020$Probennummer
Datum<-data11.6.2020$Datum

data11.6.2020_Si<-data11.6.2020$Si
KorFak11.6.2020_Si<-KorFak11.6.2020$lDrift_Si
Si<- data11.6.2020_Si-data11.6.2020_Si*(KorFak11.6.2020_Si/100)

data11.6.2020_Ti<-data11.6.2020$Ti
KorFak11.6.2020_Ti<-KorFak11.6.2020$lDrift_Ti
Ti<- data11.6.2020_Ti-data11.6.2020_Ti*(KorFak11.6.2020_Ti/100)

data11.6.2020_Al<-data11.6.2020$Al
KorFak11.6.2020_Al<-KorFak11.6.2020$lDrift_Al
Al<- data11.6.2020_Al-data11.6.2020_Al*(KorFak11.6.2020_Al/100)

data11.6.2020_Fe<-data11.6.2020$Fe
KorFak11.6.2020_Fe<-KorFak11.6.2020$lDrift_Fe
Fe<- data11.6.2020_Fe-data11.6.2020_Fe*(KorFak11.6.2020_Fe/100)

data11.6.2020_Mn<-data11.6.2020$Mn
KorFak11.6.2020_Mn<-KorFak11.6.2020$lDrift_Mn
Mn<- data11.6.2020_Mn-data11.6.2020_Mn*(KorFak11.6.2020_Mn/100)

data11.6.2020_Mg<-data11.6.2020$Mg
KorFak11.6.2020_Mg<-KorFak11.6.2020$lDrift_Mg
Mg<- data11.6.2020_Mg-data11.6.2020_Mg*(KorFak11.6.2020_Mg/100)

data11.6.2020_Ca<-data11.6.2020$Ca
KorFak11.6.2020_Ca<-KorFak11.6.2020$lDrift_Ca
Ca<- data11.6.2020_Ca-data11.6.2020_Ca*(KorFak11.6.2020_Ca/100)

data11.6.2020_K<-data11.6.2020$K
KorFak11.6.2020_K<-KorFak11.6.2020$lDrift_K
K<- data11.6.2020_K-data11.6.2020_K*(KorFak11.6.2020_K/100)

data11.6.2020_P<-data11.6.2020$P
KorFak11.6.2020_P<-KorFak11.6.2020$lDrift_P
P<- data11.6.2020_P-data11.6.2020_P*(KorFak11.6.2020_P/100)

data11.6.2020_S<-data11.6.2020$S
KorFak11.6.2020_S<-KorFak11.6.2020$lDrift_S
S<- data11.6.2020_S-data11.6.2020_S*(KorFak11.6.2020_S/100)

data11.6.2020_Cl<-data11.6.2020$Cl
KorFak11.6.2020_Cl<-KorFak11.6.2020$lDrift_Cl
Cl<- data11.6.2020_Cl-data11.6.2020_Cl*(KorFak11.6.2020_Cl/100)

data11.6.2020_V<-data11.6.2020$V
KorFak11.6.2020_V<-KorFak11.6.2020$lDrift_V
V<- data11.6.2020_V-data11.6.2020_V*(KorFak11.6.2020_V/100)

data11.6.2020_Cr<-data11.6.2020$Cr
KorFak11.6.2020_Cr<-KorFak11.6.2020$lDrift_Cr
Cr<- data11.6.2020_Cr-data11.6.2020_Cr*(KorFak11.6.2020_Cr/100)

data11.6.2020_Ni<-data11.6.2020$Ni
KorFak11.6.2020_Ni<-KorFak11.6.2020$lDrift_Ni
Ni<- data11.6.2020_Ni-data11.6.2020_Ni*(KorFak11.6.2020_Ni/100)

data11.6.2020_Cu<-data11.6.2020$Cu
KorFak11.6.2020_Cu<-KorFak11.6.2020$lDrift_Cu
Cu<- data11.6.2020_Cu-data11.6.2020_Cu*(KorFak11.6.2020_Cu/100)

data11.6.2020_Zn<-data11.6.2020$Zn
KorFak11.6.2020_Zn<-KorFak11.6.2020$lDrift_Zn
Zn<- data11.6.2020_Zn-data11.6.2020_Zn*(KorFak11.6.2020_Zn/100)

data11.6.2020_As<-data11.6.2020$As
KorFak11.6.2020_As<-KorFak11.6.2020$lDrift_As
As<- data11.6.2020_As-data11.6.2020_As*(KorFak11.6.2020_As/100)

data11.6.2020_Se<-data11.6.2020$Se
KorFak11.6.2020_Se<-KorFak11.6.2020$lDrift_Se
Se<- data11.6.2020_Se-data11.6.2020_Se*(KorFak11.6.2020_Se/100)

data11.6.2020_Rb<-data11.6.2020$Rb
KorFak11.6.2020_Rb<-KorFak11.6.2020$lDrift_Rb
Rb<- data11.6.2020_Rb-data11.6.2020_Rb*(KorFak11.6.2020_Rb/100)

data11.6.2020_Sr<-data11.6.2020$Sr
KorFak11.6.2020_Sr<-KorFak11.6.2020$lDrift_Sr
Sr<- data11.6.2020_Sr-data11.6.2020_Sr*(KorFak11.6.2020_Sr/100)

data11.6.2020_Y<-data11.6.2020$Y
KorFak11.6.2020_Y<-KorFak11.6.2020$lDrift_Y
Y<- data11.6.2020_Y-data11.6.2020_Y*(KorFak11.6.2020_Y/100)

data11.6.2020_Zr<-data11.6.2020$Zr
KorFak11.6.2020_Zr<-KorFak11.6.2020$lDrift_Zr
Zr<- data11.6.2020_Zr-data11.6.2020_Zr*(KorFak11.6.2020_Zr/100)

data11.6.2020_Nb<-data11.6.2020$Nb
KorFak11.6.2020_Nb<-KorFak11.6.2020$lDrift_Nb
Nb<- data11.6.2020_Nb-data11.6.2020_Nb*(KorFak11.6.2020_Nb/100)

data11.6.2020_Mo<-data11.6.2020$Mo
KorFak11.6.2020_Mo<-KorFak11.6.2020$lDrift_Mo
Mo<- data11.6.2020_Mo-data11.6.2020_Mo*(KorFak11.6.2020_Mo/100)

data11.6.2020_Ag<-data11.6.2020$Ag
KorFak11.6.2020_Ag<-KorFak11.6.2020$lDrift_Ag
Ag<- data11.6.2020_Ag-data11.6.2020_Ag*(KorFak11.6.2020_Ag/100)

data11.6.2020_Cd<-data11.6.2020$Cd
KorFak11.6.2020_Cd<-KorFak11.6.2020$lDrift_Cd
Cd<- data11.6.2020_Cd-data11.6.2020_Cd*(KorFak11.6.2020_Cd/100)

data11.6.2020_Sn<-data11.6.2020$Sn
KorFak11.6.2020_Sn<-KorFak11.6.2020$lDrift_Sn
Sn<- data11.6.2020_Sn-data11.6.2020_Sn*(KorFak11.6.2020_Sn/100)

data11.6.2020_Sb<-data11.6.2020$Sb
KorFak11.6.2020_Sb<-KorFak11.6.2020$lDrift_Sb
Sb<- data11.6.2020_Sb-data11.6.2020_Sb*(KorFak11.6.2020_Sb/100)

data11.6.2020_Te<-data11.6.2020$Te
KorFak11.6.2020_Te<-KorFak11.6.2020$lDrift_Te
Te<- data11.6.2020_Te-data11.6.2020_Te*(KorFak11.6.2020_Te/100)

data11.6.2020_Cs<-data11.6.2020$Cs
KorFak11.6.2020_Cs<-KorFak11.6.2020$lDrift_Cs
Cs<- data11.6.2020_Cs-data11.6.2020_Cs*(KorFak11.6.2020_Cs/100)

data11.6.2020_Ba<-data11.6.2020$Ba
KorFak11.6.2020_Ba<-KorFak11.6.2020$lDrift_Ba
Ba<- data11.6.2020_Ba-data11.6.2020_Ba*(KorFak11.6.2020_Ba/100)

data11.6.2020_La<-data11.6.2020$La
KorFak11.6.2020_La<-KorFak11.6.2020$lDrift_La
La<- data11.6.2020_La-data11.6.2020_La*(KorFak11.6.2020_La/100)

data11.6.2020_Pb<-data11.6.2020$Pb
KorFak11.6.2020_Pb<-KorFak11.6.2020$lDrift_Pb
Pb<- data11.6.2020_Pb-data11.6.2020_Pb*(KorFak11.6.2020_Pb/100)

data11.6.2020_Th<-data11.6.2020$Th
KorFak11.6.2020_Th<-KorFak11.6.2020$lDrift_Th
Th<- data11.6.2020_Th-data11.6.2020_Th*(KorFak11.6.2020_Th/100)

data11.6.2020_U<-data11.6.2020$U
KorFak11.6.2020_U<-KorFak11.6.2020$lDrift_U
U<- data11.6.2020_U-data11.6.2020_U*(KorFak11.6.2020_U/100)

Data_OG_lDrift_Kor11.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.30 l-Drift Korrektur des 12.6.2020

KorFak12.6.2020<-KorFak %>% filter(Datum_median=="12.6.2020")
data12.6.2020<-data %>% filter(Datum=="12.6.2020")
Probennummer<-data12.6.2020$Probennummer
Datum<-data12.6.2020$Datum

data12.6.2020_Si<-data12.6.2020$Si
KorFak12.6.2020_Si<-KorFak12.6.2020$lDrift_Si
Si<- data12.6.2020_Si-data12.6.2020_Si*(KorFak12.6.2020_Si/100)

data12.6.2020_Ti<-data12.6.2020$Ti
KorFak12.6.2020_Ti<-KorFak12.6.2020$lDrift_Ti
Ti<- data12.6.2020_Ti-data12.6.2020_Ti*(KorFak12.6.2020_Ti/100)

data12.6.2020_Al<-data12.6.2020$Al
KorFak12.6.2020_Al<-KorFak12.6.2020$lDrift_Al
Al<- data12.6.2020_Al-data12.6.2020_Al*(KorFak12.6.2020_Al/100)

data12.6.2020_Fe<-data12.6.2020$Fe
KorFak12.6.2020_Fe<-KorFak12.6.2020$lDrift_Fe
Fe<- data12.6.2020_Fe-data12.6.2020_Fe*(KorFak12.6.2020_Fe/100)

data12.6.2020_Mn<-data12.6.2020$Mn
KorFak12.6.2020_Mn<-KorFak12.6.2020$lDrift_Mn
Mn<- data12.6.2020_Mn-data12.6.2020_Mn*(KorFak12.6.2020_Mn/100)

data12.6.2020_Mg<-data12.6.2020$Mg
KorFak12.6.2020_Mg<-KorFak12.6.2020$lDrift_Mg
Mg<- data12.6.2020_Mg-data12.6.2020_Mg*(KorFak12.6.2020_Mg/100)

data12.6.2020_Ca<-data12.6.2020$Ca
KorFak12.6.2020_Ca<-KorFak12.6.2020$lDrift_Ca
Ca<- data12.6.2020_Ca-data12.6.2020_Ca*(KorFak12.6.2020_Ca/100)

data12.6.2020_K<-data12.6.2020$K
KorFak12.6.2020_K<-KorFak12.6.2020$lDrift_K
K<- data12.6.2020_K-data12.6.2020_K*(KorFak12.6.2020_K/100)

data12.6.2020_P<-data12.6.2020$P
KorFak12.6.2020_P<-KorFak12.6.2020$lDrift_P
P<- data12.6.2020_P-data12.6.2020_P*(KorFak12.6.2020_P/100)

data12.6.2020_S<-data12.6.2020$S
KorFak12.6.2020_S<-KorFak12.6.2020$lDrift_S
S<- data12.6.2020_S-data12.6.2020_S*(KorFak12.6.2020_S/100)

data12.6.2020_Cl<-data12.6.2020$Cl
KorFak12.6.2020_Cl<-KorFak12.6.2020$lDrift_Cl
Cl<- data12.6.2020_Cl-data12.6.2020_Cl*(KorFak12.6.2020_Cl/100)

data12.6.2020_V<-data12.6.2020$V
KorFak12.6.2020_V<-KorFak12.6.2020$lDrift_V
V<- data12.6.2020_V-data12.6.2020_V*(KorFak12.6.2020_V/100)

data12.6.2020_Cr<-data12.6.2020$Cr
KorFak12.6.2020_Cr<-KorFak12.6.2020$lDrift_Cr
Cr<- data12.6.2020_Cr-data12.6.2020_Cr*(KorFak12.6.2020_Cr/100)

data12.6.2020_Ni<-data12.6.2020$Ni
KorFak12.6.2020_Ni<-KorFak12.6.2020$lDrift_Ni
Ni<- data12.6.2020_Ni-data12.6.2020_Ni*(KorFak12.6.2020_Ni/100)

data12.6.2020_Cu<-data12.6.2020$Cu
KorFak12.6.2020_Cu<-KorFak12.6.2020$lDrift_Cu
Cu<- data12.6.2020_Cu-data12.6.2020_Cu*(KorFak12.6.2020_Cu/100)

data12.6.2020_Zn<-data12.6.2020$Zn
KorFak12.6.2020_Zn<-KorFak12.6.2020$lDrift_Zn
Zn<- data12.6.2020_Zn-data12.6.2020_Zn*(KorFak12.6.2020_Zn/100)

data12.6.2020_As<-data12.6.2020$As
KorFak12.6.2020_As<-KorFak12.6.2020$lDrift_As
As<- data12.6.2020_As-data12.6.2020_As*(KorFak12.6.2020_As/100)

data12.6.2020_Se<-data12.6.2020$Se
KorFak12.6.2020_Se<-KorFak12.6.2020$lDrift_Se
Se<- data12.6.2020_Se-data12.6.2020_Se*(KorFak12.6.2020_Se/100)

data12.6.2020_Rb<-data12.6.2020$Rb
KorFak12.6.2020_Rb<-KorFak12.6.2020$lDrift_Rb
Rb<- data12.6.2020_Rb-data12.6.2020_Rb*(KorFak12.6.2020_Rb/100)

data12.6.2020_Sr<-data12.6.2020$Sr
KorFak12.6.2020_Sr<-KorFak12.6.2020$lDrift_Sr
Sr<- data12.6.2020_Sr-data12.6.2020_Sr*(KorFak12.6.2020_Sr/100)

data12.6.2020_Y<-data12.6.2020$Y
KorFak12.6.2020_Y<-KorFak12.6.2020$lDrift_Y
Y<- data12.6.2020_Y-data12.6.2020_Y*(KorFak12.6.2020_Y/100)

data12.6.2020_Zr<-data12.6.2020$Zr
KorFak12.6.2020_Zr<-KorFak12.6.2020$lDrift_Zr
Zr<- data12.6.2020_Zr-data12.6.2020_Zr*(KorFak12.6.2020_Zr/100)

data12.6.2020_Nb<-data12.6.2020$Nb
KorFak12.6.2020_Nb<-KorFak12.6.2020$lDrift_Nb
Nb<- data12.6.2020_Nb-data12.6.2020_Nb*(KorFak12.6.2020_Nb/100)

data12.6.2020_Mo<-data12.6.2020$Mo
KorFak12.6.2020_Mo<-KorFak12.6.2020$lDrift_Mo
Mo<- data12.6.2020_Mo-data12.6.2020_Mo*(KorFak12.6.2020_Mo/100)

data12.6.2020_Ag<-data12.6.2020$Ag
KorFak12.6.2020_Ag<-KorFak12.6.2020$lDrift_Ag
Ag<- data12.6.2020_Ag-data12.6.2020_Ag*(KorFak12.6.2020_Ag/100)

data12.6.2020_Cd<-data12.6.2020$Cd
KorFak12.6.2020_Cd<-KorFak12.6.2020$lDrift_Cd
Cd<- data12.6.2020_Cd-data12.6.2020_Cd*(KorFak12.6.2020_Cd/100)

data12.6.2020_Sn<-data12.6.2020$Sn
KorFak12.6.2020_Sn<-KorFak12.6.2020$lDrift_Sn
Sn<- data12.6.2020_Sn-data12.6.2020_Sn*(KorFak12.6.2020_Sn/100)

data12.6.2020_Sb<-data12.6.2020$Sb
KorFak12.6.2020_Sb<-KorFak12.6.2020$lDrift_Sb
Sb<- data12.6.2020_Sb-data12.6.2020_Sb*(KorFak12.6.2020_Sb/100)

data12.6.2020_Te<-data12.6.2020$Te
KorFak12.6.2020_Te<-KorFak12.6.2020$lDrift_Te
Te<- data12.6.2020_Te-data12.6.2020_Te*(KorFak12.6.2020_Te/100)

data12.6.2020_Cs<-data12.6.2020$Cs
KorFak12.6.2020_Cs<-KorFak12.6.2020$lDrift_Cs
Cs<- data12.6.2020_Cs-data12.6.2020_Cs*(KorFak12.6.2020_Cs/100)

data12.6.2020_Ba<-data12.6.2020$Ba
KorFak12.6.2020_Ba<-KorFak12.6.2020$lDrift_Ba
Ba<- data12.6.2020_Ba-data12.6.2020_Ba*(KorFak12.6.2020_Ba/100)

data12.6.2020_La<-data12.6.2020$La
KorFak12.6.2020_La<-KorFak12.6.2020$lDrift_La
La<- data12.6.2020_La-data12.6.2020_La*(KorFak12.6.2020_La/100)

data12.6.2020_Pb<-data12.6.2020$Pb
KorFak12.6.2020_Pb<-KorFak12.6.2020$lDrift_Pb
Pb<- data12.6.2020_Pb-data12.6.2020_Pb*(KorFak12.6.2020_Pb/100)

data12.6.2020_Th<-data12.6.2020$Th
KorFak12.6.2020_Th<-KorFak12.6.2020$lDrift_Th
Th<- data12.6.2020_Th-data12.6.2020_Th*(KorFak12.6.2020_Th/100)

data12.6.2020_U<-data12.6.2020$U
KorFak12.6.2020_U<-KorFak12.6.2020$lDrift_U
U<- data12.6.2020_U-data12.6.2020_U*(KorFak12.6.2020_U/100)

Data_OG_lDrift_Kor12.6.2020<-data.frame(Probennummer, Datum, Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,S,Cl,V,Cr,Ni,Cu,Zn,As,Se,Rb,Sr,Y,Zr,Nb,Mo,Ag,Cd,Sn,Sb,Te,Cs,Ba,La,Pb,Th,U)

8.3.31 Zusammenführen und Exportieren aller Variablen als Tabelle

# Zeilenweise Kombination mehrerer Dataframes
Data_OG_lDrift_Kor_gesamt <- rbind(Data_OG_lDrift_Kor11.9.2019,Data_OG_lDrift_Kor16.9.2019,Data_OG_lDrift_Kor17.9.2019,Data_OG_lDrift_Kor4.3.2020,Data_OG_lDrift_Kor4.2.2020,Data_OG_lDrift_Kor6.2.2020,Data_OG_lDrift_Kor5.3.2020,Data_OG_lDrift_Kor6.3.2020,Data_OG_lDrift_Kor8.3.2020,Data_OG_lDrift_Kor10.3.2020,Data_OG_lDrift_Kor11.3.2020,Data_OG_lDrift_Kor12.3.2020,Data_OG_lDrift_Kor13.3.2020,Data_OG_lDrift_Kor14.3.2020,Data_OG_lDrift_Kor25.5.2020,Data_OG_lDrift_Kor26.5.2020,Data_OG_lDrift_Kor27.5.2020,Data_OG_lDrift_Kor28.5.2020,Data_OG_lDrift_Kor29.5.2020,Data_OG_lDrift_Kor30.5.2020,Data_OG_lDrift_Kor1.6.2020,Data_OG_lDrift_Kor2.6.2020,Data_OG_lDrift_Kor3.6.2020,Data_OG_lDrift_Kor4.6.2020,Data_OG_lDrift_Kor5.6.2020,Data_OG_lDrift_Kor7.6.2020,Data_OG_lDrift_Kor10.6.2020,Data_OG_lDrift_Kor11.6.2020,Data_OG_lDrift_Kor12.6.2020)

# Speichern als CSV
write.csv(Data_OG_lDrift_Kor_gesamt,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Data_OG_lDrift_Kor_gesamt.csv",row.names=FALSE)

9 Koeffizientenkorrekturen (coefcors)

9.1 Koeffizientenkorrektur Koefkor(coecor) IIaufIII für 2019

9.1.1 Zusammenstellen der Daten und Variablen

# Daten einlesen und filtern
dataset<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Data_OG_lDrift_Kor_gesamt.csv")
dataset<-subset(dataset, Datum %in% c("11.9.2019","16.9.2019","17.9.2019"))

# Daten einlesen
coefcor<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Coefcor//coefcorIItoIII_factors.csv")

# Definieren relevanter Variablen
Probennummer<-dataset$Probennummer
Datum<-dataset$Datum
Cu<-dataset$Cu
Ni<-dataset$Ni

9.1.2 Durchführen der Berechnungen

# Extrahieren der Messwerte für Si
Si<-dataset$Si

# Extrahieren des Koeffizienten der Steigung für Si
Si_a<-coefcor$Si_a

# Extrahieren des Koeffizienten des Y-Achsenabschnitts für Si
Si_b<-coefcor$Si_b

# Durchführen der Koeffizientenkorrektur
Si<-Si_a*Si+Si_b

Ti<-dataset$Ti
Ti_a<-coefcor$Ti_a
Ti_b<-coefcor$Ti_b
Ti<-Ti_a*Ti+Ti_b

Al<-dataset$Al
Al_a<-coefcor$Al_a
Al_b<-coefcor$Al_b
Al<-Al_a*Al+Al_b

Fe<-dataset$Fe
Fe_a<-coefcor$Fe_a
Fe_b<-coefcor$Fe_b
Fe<-Fe_a*Fe+Fe_b

Mn<-dataset$Mn
Mn_a<-coefcor$Mn_a
Mn_b<-coefcor$Mn_b
Mn<-Mn_a*Mn+Mn_b

Mg<-dataset$Mg
Mg_a<-coefcor$Mg_a
Mg_b<-coefcor$Mg_b
Mg<-Mg_a*Mg+Mg_b

Ca<-dataset$Ca
Ca_a<-coefcor$Ca_a
Ca_b<-coefcor$Ca_b
Ca<-Ca_a*Ca+Ca_b

K<-dataset$K
K_a<-coefcor$K_a
K_b<-coefcor$K_b
K<-K_a*K+K_b

P<-dataset$P
P_a<-coefcor$P_a
P_b<-coefcor$P_b
P<-P_a*P+P_b

Cl<-dataset$Cl
Cl_a<-coefcor$Cl_a
Cl_b<-coefcor$Cl_b
Cl<-Cl_a*Cl+Cl_b

V<-dataset$V
V_a<-coefcor$V_a
V_b<-coefcor$V_b
V<-V_a*V+V_b

Cr<-dataset$Cr
Cr_a<-coefcor$Cr_a
Cr_b<-coefcor$Cr_b
Cr<-Cr_a*Cr+Cr_b

Zn<-dataset$Zn
Zn_a<-coefcor$Zn_a
Zn_b<-coefcor$Zn_b
Zn<-Zn_a*Zn+Zn_b

As<-dataset$As
As_a<-coefcor$As_a
As_b<-coefcor$As_b
As<-As_a*As+As_b

Rb<-dataset$Rb
Rb_a<-coefcor$Rb_a
Rb_b<-coefcor$Rb_b
Rb<-Rb_a*Rb+Rb_b

Sr<-dataset$Sr
Sr_a<-coefcor$Sr_a
Sr_b<-coefcor$Sr_b
Sr<-Sr_a*Sr+Sr_b

Y<-dataset$Y
Y_a<-coefcor$Y_a
Y_b<-coefcor$Y_b
Y<-Y_a*Y+Y_b

Zr<-dataset$Zr
Zr_a<-coefcor$Zr_a
Zr_b<-coefcor$Zr_b
Zr<-Zr_a*Zr+Zr_b

Nb<-dataset$Nb
Nb_a<-coefcor$Nb_a
Nb_b<-coefcor$Nb_b
Nb<-Nb_a*Nb+Nb_b

Ba<-dataset$Ba
Ba_a<-coefcor$Ba_a
Ba_b<-coefcor$Ba_b
Ba<-Ba_a*Ba+Ba_b

Pb<-dataset$Pb
Pb_a<-coefcor$Pb_a
Pb_b<-coefcor$Pb_b
Pb<-Pb_a*Pb+Pb_b

9.1.3 Zusammenführen und Exportieren der Variablen in einer Tabelle

# Kombinieren mehrerer Dataframes
data1<-data.frame(Probennummer,Datum,Si,Ti,Al,Fe,Mn,Mg,Ca,K,P,Cl,V,Cr,Ni,Cu,Zn,As,Rb,Sr,Y,Zr,Nb,Ba,Pb)

# Speichern als CSV
write.csv(data1,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_KoefkorIIaufIII_2019.csv",row.names=FALSE)

9.2 Koeffizientenkorrektur Koefkor(coefcor) III für 2019 & 2020

9.2.1 Zusammenstellen der Daten und Variablen

# Daten einlesen und filtern
dataset1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Data_OG_lDrift_Kor_gesamt.csv")
dataset1<-dataset1 %>% filter(!(Datum=="11.9.2019"|Datum=="16.9.2019"|Datum=="17.9.2019"))
dataset1<-select(dataset1,"Probennummer","Datum","Si","Ti","Al","Fe","Mn","Mg","Ca","K","P","Cl","V","Cr","Ni","Cu","Zn","As","Rb","Sr","Y","Zr","Nb","Ba","Pb")

# Daten einlesen
dataset2<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_KoefkorIIaufIII_2019.csv")
coefcor<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Coefcor//coefcorIII_factors.csv")

# Zeilenweise Kombination mehrerer Dataframes
dataset<-rbind(dataset1,dataset2)

# Definieren relevanter Variablen
Probennummer<-dataset$Probennummer
Datum<-dataset$Datum

9.2.2 Durchführen der Berechnungen

# Extrahieren der Messwerte für Si
Si<-dataset$Si

# Extrahieren des Koeffizienten der Steigung für Si
Si_a<-coefcor$Si_a

# Extrahieren des Koeffizienten des Y-Achsenabschnitts für Si
Si_b<-coefcor$Si_b

# Durchführen der Koeffizientenkorrektur und Umrechnung in Oxidprozente (letztes nur Hauptelemente)
SiO2<-(Si_a*Si+Si_b)*0.00021393

Ti<-dataset$Ti
Ti_a<-coefcor$Ti_a
Ti_b<-coefcor$Ti_b
TiO2<-(Ti_a*Ti+Ti_b)*0.0001668

Al<-dataset$Al
Al_a<-coefcor$Al_a
Al_b<-coefcor$Al_b
Al2O3<-(Al_a*Al+Al_b)*0.00018895

Fe<-dataset$Fe
Fe_a<-coefcor$Fe_a
Fe_b<-coefcor$Fe_b
Fe2O3<-(Fe_a*Fe+Fe_b)*0.000143

Mn<-dataset$Mn
Mn_a<-coefcor$Mn_a
Mn_b<-coefcor$Mn_b
MnO<-(Mn_a*Mn+Mn_b)*0.00012912

Mg<-dataset$Mg
Mg_a<-coefcor$Mg_a
Mg_b<-coefcor$Mg_b
MgO<-(Mg_a*Mg+Mg_b)*0.00016583

Ca<-dataset$Ca
Ca_a<-coefcor$Ca_a
Ca_b<-coefcor$Ca_b
CaO<-(Ca_a*Ca+Ca_b)*0.00013992

K<-dataset$K
K_a<-coefcor$K_a
K_b<-coefcor$K_b
K2O<-(K_a*K+K_b)*0.00012046

P<-dataset$P
P_a<-coefcor$P_a
P_b<-coefcor$P_b
P2O5<-(P_a*P+P_b)*0.00022914

# Kombinieren mehrerer Dataframes
data_norm<-data.frame(SiO2,TiO2,Al2O3,Fe2O3,MnO,MgO,CaO,K2O,P2O5)

# Berechen der Summe pro Zeile
data_norm_withsum<-data_norm %>% rowwise() %>%  mutate(sum = sum(c(SiO2,TiO2,Al2O3,
                                                      Fe2O3,MnO,MgO,CaO,K2O,P2O5)))
# Berechnung des Normierungsfaktors
sumpct<-100/data_norm_withsum$sum

# Durchführen der Normierung
SiO2<-SiO2*sumpct
TiO2<-TiO2*sumpct
Al2O3<-Al2O3*sumpct
Fe2O3<-Fe2O3*sumpct
MnO<-MnO*sumpct
MgO<-MgO*sumpct
CaO<-CaO*sumpct
K2O<-K2O*sumpct
P2O5<-P2O5*sumpct

V<-dataset$V
V_a<-coefcor$V_a
V_b<-coefcor$V_b
V<-V_a*V+V_b

Cr<-dataset$Cr
Cr_a<-coefcor$Cr_a
Cr_b<-coefcor$Cr_b
Cr<-Cr_a*Cr+Cr_b

Ni<-dataset$Ni
Ni_a<-coefcor$Ni_a
Ni_b<-coefcor$Ni_b
Ni<-Ni_a*Ni+Ni_b

Cu<-dataset$Cu
Cu_a<-coefcor$Cu_a
Cu_b<-coefcor$Cu_b
Cu<-Cu_a*Cu+Cu_b

Zn<-dataset$Zn
Zn_a<-coefcor$Zn_a
Zn_b<-coefcor$Zn_b
Zn<-Zn_a*Zn+Zn_b

Rb<-dataset$Rb
Rb_a<-coefcor$Rb_a
Rb_b<-coefcor$Rb_b
Rb<-Rb_a*Rb+Rb_b

Sr<-dataset$Sr
Sr_a<-coefcor$Sr_a
Sr_b<-coefcor$Sr_b
Sr<-Sr_a*Sr+Sr_b

Y<-dataset$Y
Y_a<-coefcor$Y_a
Y_b<-coefcor$Y_b
Y<-Y_a*Y+Y_b

Zr<-dataset$Zr
Zr_a<-coefcor$Zr_a
Zr_b<-coefcor$Zr_b
Zr<-Zr_a*Zr+Zr_b

Nb<-dataset$Nb
Nb_a<-coefcor$Nb_a
Nb_b<-coefcor$Nb_b
Nb<-Nb_a*Nb+Nb_b

Ba<-dataset$Ba
Ba_a<-coefcor$Ba_a
Ba_b<-coefcor$Ba_b
Ba<-Ba_a*Ba+Ba_b

Pb<-dataset$Pb
Pb_a<-coefcor$Pb_a
Pb_b<-coefcor$Pb_b
Pb<-Pb_a*Pb+Pb_b

9.2.3 Zusammenführen und Exportieren der Variablen in einer Tabelle

# Kombinieren mehrerer Dataframes
data1<-data.frame(Probennummer,Datum,SiO2,TiO2,Al2O3,Fe2O3,MnO,MgO,CaO,K2O,P2O5,V,Cr,Ni,Cu,Zn,Rb,Sr,Y,Zr,Nb,Ba,Pb)

# Speichern als CSV
write.csv(data1,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_Koefkorfinal.csv",row.names=FALSE)

10 Zusammenstellen der Grundlagendaten der Auswertung

# Daten einlesen
data1<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_Koefkorfinal_bearb.csv")

# Berechnen der Mittelwerte pro Probe
data4<-(data1) %>%
  group_by(Probennummer) %>%
  summarize(across(everything(),list(mean=mean))) 

# Entfernen von "_mean" aus den Spaltennamen  
colnames(data4) <- gsub("_mean", "", colnames(data4))

# Daten einlesen
data2<- read.csv("../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_ArchDaten.csv")

# Kombinieren mehrerer Dataframes basierend auf der Probennummer
data3<-merge(data4,data2, by="Probennummer", all=TRUE)

# Daten filtern - Entfernen der nicht belastbar gemessenen Proben
Daten_OG_vollständig<-data3[!(data3$Probennummer=="310-02" | data3$Probennummer=="338"| data3$Probennummer=="4434"| data3$Probennummer=="1401-47"| data3$Probennummer=="1613-03"| data3$Probennummer=="1639-12"| data3$Probennummer=="2647-12"| data3$Probennummer=="2697-22"| data3$Probennummer=="3161-02"| data3$Probennummer=="4227-X"| data3$Probennummer=="4480-01"| data3$Probennummer=="4527-05_1"| data3$Probennummer=="4599-06_3"| data3$Probennummer=="HI-01-H04"| data3$Probennummer=="HI-01-HL-02"| data3$Probennummer=="HI-01-HL-04"| data3$Probennummer=="HI-06-T129-07_2"| data3$Probennummer=="HI-07f-H05"| data3$Probennummer=="HI-06-T027-05"| data3$Probennummer=="PL-1990-G1-HL05"| data3$Probennummer=="Standard2709a"| data3$Probennummer=="StandardSdAR-M2"),]

# Speichern als CSV
write.csv(Daten_OG_vollständig,"../Daten//Kap_6//Kap_6.3//Grundlagen//Datengrundlage//Daten_OG_vollständigMW.csv",row.names=FALSE)

11 Literatur

Allaire u. a. 2024: J. J. Allaire/C. Teague/C. Scheidegger/Y. Xie/C. Dervieux, Quarto v.1.5.55. https://quarto.org.

Bailiss 2021: C. Bailiss, basictabler: Construct Rich Tables for Output to ’HTML’/’Excel’: R package version 1.0.2. https://cran.r-project.org/package=basictabler.

Barrett u. a. 2024: T. Barrett/M. Dowle/A. Srinivasan/J. Gorecki/M. Chirico/T. Hocking, data.table: Extension of ‘data.frame‘: R package version 1.15.4. https://cran.r-project.org/package=data.table.

Field, A. u. a. 2013: A. Field/J. Miles/Z. Field, Discovering Statistics using R (Los Angeles 2013).

Kassambara 2023: A. Kassambara, ggpubr: ’ggplot2’ Based Publication Ready Plots: R package version 0.6.0. https://cran.r-project.org/package=ggpubr.

R Core Team 2024: R Core Team, R v.4.4.1: A Language and Environment for Statistical Computing: Race for Your Life. https://www.r-project.org/.

RStudio Team 2024: RStudio Team, RStudio v. 2024.04.2: Integrated Development Environment for R. https://www.rstudio.com/.

Schauberger/Walker 2024: P. Schauberger/A. Walker, openxlsx: Read, Write and Edit xlsx Files: R package version 4.2.6.1. https://cran.r-project.org/package=openxlsx.

Schauer 2023: M. Schauer, R-scripts and data of coefficient corrections developed since 2017 for the Niton XL3t No. 97390 following the Munich Procedure. DOI: https://doi.org/10.5282/ubm/data.405.

Schauer 2024: M. Schauer, Datenkontrolle, -aufbereitung und -auswertung portabler Röntgenfluoreszenzanalysen (p-RFA) mit dem Bruker Tracer 5i No 900F398 an silikatischem Material des Brandopferplatzes bei Farchant, Lkr. Garmisch-Partenkirchen. DOI: https://doi.org/10.5282/ubm/data.536.

Schauer u. a. 2024: M. Schauer/F. Siegmund/M. Helfert/B. L. Drake, The Munich Procedure – Standardising linear regression documentation in p-XRF research. Software Impacts 21, 3, 2024, 100660. DOI: https://doi.org/10.1016/j.simpa.2024.100660.

Schauer 2025: M. Schauer, La Hoguette – Kultur, Phänomen, Subkultur? Archäologische Studien und portable, energiedispersive Röntgenfluoreszenzanalysen (p-ED-RFA) an Keramik zu einer altbekannten Frage 183. Philippika 183 (Wiesbaden 2025).

Schauer/Amicone 2024: M. Schauer/S. Amicone, E2. First steps towards a fabric classification for Assur: portable X-ray fluorescence (p-XRF) and petrographical analyses on the 2023 pottery. In: K. Radner/A. Squitieri (Hrsg.), Assur 2023: Excavations and Other Research in the New Town. Exploring Assur (Gladbeck 2024) 150–159.

Siegmund 2020: F. Siegmund, Statistik in der Archäologie: eine anwendungsorientierte Einführung auf Basis freier Software (Norderstedt 2020). https://frank-siegmund.de/images/opendata/2020-archaeostatistik/siegmund_2020_daten.zip.

Siegmund 2023: F. Siegmund, Einführung Quarto. https://www.frank-siegmund.de/images/opendata/einfuehrungquarto.zip.

Wickham 2011: H. Wickham, The Split-Apply-Combine Strategy for Data Analysis. Journal of Statistical Software, 40/1, 2011, 1–29. https://www.jstatsoft.org/v40/i01/.

Wickham 2016: H. Wickham, ggplot2: Elegant graphics for data analysis. Use R! ²(Cham 2016). https://ebookcentral.proquest.com/lib/kxp/detail.action?docid=4546676.

Wickham 2023: H. Wickham, stringr: Simple, Consistent Wrappers for Common String Operations: R package version 1.5.1. https://cran.r-project.org/package=stringr.

Wilke 2024: C. Wilke, cowplot: Streamlined Plot Theme and Plot Annotations for ’ggplot2’: R package version 1.1.3. https://cran.r-project.org/package=cowplot.