library(ggplot2)
library(ggpubr)
library(plyr)
library(dplyr)
library(data.table)
library(basictabler)
library(openxlsx)
library(qqplotr)
library(psych)
library(moments)1 Einleitung
1.1 Inhalt
Dieses Skript dokumentiert die zu Kapitel 6.2.4.a - Schauer (2025) gehörenden Abbildungen und Statistiken:
Kapitel 6.2.4.a.i - Messunsicherheit: Berechnung der Messunsicherheiten (MU) der Einzelmessungen und gemittelt für die gesamte Probe (Skript-Kapitel 4), 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.2.4.a.ii - Variationskoeffizent: Berechnung der Variationskoeffizienten (VarKoef) der Proben (Skript-Kapitel 5) zur Überprüfung der Einhaltung des Grenzwerts VarK ≤ 20 %. Pro Probe und Element dürfen Verstöße gegen das Kriterium in nicht mehr als 25 % der Fälle auftreten (siehe auch Kapitel 6.1.2 – Schauer (2025)). Abb. 6-35 – Skript-Kapitel 6 zeigt eine beispielhafte Darstellung der Variationskoeffizienten ausgewählter Elemente.
Kapitel 6.2.4.a.iii - l-Drift und Koeffizientenkorrektur: Durchführung der l-Drift-Korrektur (Skript-Kapitel 7), wie beschrieben in Kapitel 6.1.2.a.ii – Schauer (2025), sowie der Koeffizientenkorrektur (Skript-Kapitel 8) gemäß 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 9).
Kapitel 6.2.4.a.iv - Normalverteilung: Überprüfung der chemischen Messdaten je Element auf Normalverteilung (Skript-Kapitel 10) sowie grafische Darstellung ausgewählter Elemente (Abb. 6-36 – Skript-Kapitel 11).
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)
- moments (Komsta/Novomestky 2022)
- openxlsx (Schauberger/Walker 2024)
- plyr (Wickham 2011)
- psych (Revelle 2024)
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
3 Working directory
knitr::opts_knit$set(root.dir = "./")4 Messunsicherheit
4.1 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.2//Grundlagen//Datengrundlage//Daten_BB_Datenkontrolle_Einzelmessungen.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: 1"
[1] "countMg: 244"
[1] "countCa: 0"
[1] "countK: 0"
[1] "countP: 0"
[1] "countS: 165"
[1] "countCl: 42"
[1] "countSc: 450"
[1] "countV: 2"
[1] "countCr: 0"
[1] "countCo: 178"
[1] "countNi: 4"
[1] "countCu: 10"
[1] "countZn: 0"
[1] "countAs: 14"
[1] "countSe: 56"
[1] "countRb: 0"
[1] "countSr: 0"
[1] "countY: 0"
[1] "countZr: 0"
[1] "countNb: 0"
[1] "countMo: 372"
[1] "countPd: 101"
[1] "countAg: 207"
[1] "countCd: 306"
[1] "countSn: 27"
[1] "countSb: 45"
[1] "countTe: 21"
[1] "countCs: 8"
[1] "countBa: 0"
[1] "countLa: 14"
[1] "countCe: 157"
[1] "countHf: 0"
[1] "countTa: 0"
[1] "countW: 14"
[1] "countRe: 0"
[1] "countAu: 214"
[1] "countHg: 53"
[1] "countPb: 0"
[1] "countBi: 0"
[1] "countTh: 4"
[1] "countU: 384"
[1] "countBal: 0"# Erstellung einer Liste mit spezifischen gefilterten Datensätzen
l = list(dataMn, dataV, dataNi, dataCu, dataTh)
# 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.2//Grundlagen//Datengrundlage//StdAlleWerte.csv",row.names=FALSE)4.2 Mittlere Messunsicherheit der Proben
# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Datenkontrolle_Einzelmessungen.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: 84"
[1] "countCa: 0"
[1] "countK: 0"
[1] "countP: 0"
[1] "countS: 60"
[1] "countCl: 15"
[1] "countSc: 229"
[1] "countV: 0"
[1] "countCr: 0"
[1] "countCo: 122"
[1] "countNi: 0"
[1] "countCu: 0"
[1] "countZn: 0"
[1] "countAs: 2"
[1] "countSe: 37"
[1] "countRb: 0"
[1] "countSr: 0"
[1] "countY: 0"
[1] "countZr: 0"
[1] "countNb: 0"
[1] "countMo: 198"
[1] "countPd: 91"
[1] "countAg: 148"
[1] "countCd: 110"
[1] "countSn: 6"
[1] "countSb: 5"
[1] "countTe: 3"
[1] "countCs: 0"
[1] "countBa: 0"
[1] "countLa: 0"
[1] "countCe: 52"
[1] "countHf: 0"
[1] "countTa: 0"
[1] "countW: 11"
[1] "countRe: 0"
[1] "countAu: 177"
[1] "countHg: 8"
[1] "countPb: 0"
[1] "countBi: 0"
[1] "countTh: 2"
[1] "countU: 96"
[1] "countBal: 0"5 Variationskoeffizienten
5.1 Berechnen der Varkoefs pro Probe
# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Datenkontrolle_Einzelmessungen.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","Cu_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)] <- 05.2 Export farbcodierte Tabelle
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:535, columnNumbers=2:20, 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.2//Grundlagen//Datengrundlage//Prüfung_VarKoef_Farbcodiert.xlsx", overwrite = TRUE)5.3 Export zahlcodierte Tabelle
Prüfung_Varkoef_0 <- cbind(apply(Prüfung_Varkoef[,2:20], 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:19], 2, function(x) ifelse(x > 20, 1, x)), Prüfung_Varkoef_0[,20]) # 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=20)
# Definieren der Spalten 1:19 als nummerisch
Prüfung_Varkoef_2[,1:19] <- sapply(Prüfung_Varkoef_2[,1:19],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 535/20 als "Spaltensumme"
text<-"Spaltensumme"
Prüfung_Varkoef_6[535,20]<-text
# Beschriftung der Zelle 536/20 als "Spaltenprozent"
text<-"Spaltenprozent"
Prüfung_Varkoef_6[536,20]<-text
# Tabelle anzeigen
head(Prüfung_Varkoef_6) Si_Varkoef Ti_Varkoef Al_Varkoef Fe_Varkoef Mn_Varkoef Ca_Varkoef K_Varkoef
188 1 1 1 1 0 1 1
132 1 1 1 0 1 0 0
387 0 0 0 0 1 0 0
426 1 1 1 0 1 1 1
444 0 1 0 0 1 0 1
91 0 1 0 0 1 1 0
P_Varkoef V_Varkoef Cr_Varkoef Cu_Varkoef Zn_Varkoef Rb_Varkoef Sr_Varkoef
188 1 1 1 0 1 1 0
132 1 1 1 1 0 0 0
387 1 0 1 1 1 1 0
426 1 0 1 1 0 0 0
444 1 1 1 1 1 0 0
91 1 1 1 0 0 0 0
Y_Varkoef Zr_Varkoef Nb_Varkoef Ba_Varkoef Pb_Varkoef Probennummer
188 1 1 1 0 0 219-142
132 0 0 0 1 0 1574-n
387 1 0 1 0 1 50
426 0 0 0 0 0 699-2AH
444 0 0 0 1 0 782
91 0 0 0 1 1 1302
Zeilensumme Zeilenprozent
188 14 74
132 9 47
387 9 47
426 9 47
444 9 47
91 8 42# Speichern als CSV
write.csv(Prüfung_Varkoef_6,"../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Prüfung_VarKoef_Zahlcodiert.csv",row.names=FALSE)6 Abb. 6-35
# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Datenkontrolle_Einzelmessungen.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","Ca_Varkoef","K_Varkoef","P_Varkoef","V_Varkoef","Cr_Varkoef","Cu_Varkoef","Zn_Varkoef","Rb_Varkoef","Sr_Varkoef","Y_Varkoef","Zr_Varkoef","Nb_Varkoef","Ba_Varkoef","Pb_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-35.eps",path=("../Daten//Kap_6//Kap_6.2//Abbildungen//Grundlagen//"),plot=last_plot(),device="eps",height=10,width=10,unit=c("cm"),dpi=1200)7 l-Drift Korrektur
7.1 Berechnen der l-Drift-Korrekturfaktoren
7.1.1 Zusammenstellen Daten 2018
# Daten einlesen und filtern
data1<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Standards//Messungen_StandardSdAR-M2_BB.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.2//Grundlagen//Standards//MedianStandardSdAR-M2proTag_2018.csv",row.names=FALSE)7.1.2 Berechen l-Drift-Korrekturfaktoren 2018
# Daten einlesen
NomMed<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Standards//NominalMedian_SdAR-M2.csv")
StWert<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Standards//MedianStandardSdAR-M2proTag_2018.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_2018<-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")7.1.3 Zusammenstellen Daten 2020
# Daten einlesen und filtern
data1<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Standards//Messungen_Standard2709a_BB.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.2//Grundlagen//Standards//MedianStandard2709aproTag_2020.csv",row.names=FALSE)7.1.4 Berechen l-Drift-Korrekturfaktoren 2020
# Daten einlesen
NomMed<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Standards//NominalMedian_2709a.csv")
StWert<- read.csv("../Daten//Kap_6//Kap_6.2//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")7.1.5 Zusammenführen der Daten
Das Datum muss auf folgendes Format angepasst werden: Gebietsschema Deutsch (Deutschland) - Format 14.3.2001
# Zeilenweise Kombination mehrerer Dataframes
data3<-rbind(KorFak_lDrift_2018,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.2//Grundlagen//Datengrundlage//KorFak_lDrift.csv",row.names=FALSE)7.2 Durchführen der l-Drift-Korrektur
7.2.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.2//Grundlagen//Datengrundlage//Daten_BB_Datenkontrolle_Einzelmessungen.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")
# Speichern als CSV
write.csv(data,"../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Sort.csv",row.names=FALSE)
# Daten einlesen
data<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Sort.csv")
KorFak<-read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//KorFak_lDrift_bearb.csv")7.2.2 l-Drift Korrektur des 27.9.2018
# Filtern der Korrekturfaktoren und Messdaten nach dem zu berechnenden Tag
KorFak27.9.2018<-KorFak %>% filter(Datum_median=="27.9.2018")
data27.9.2018<-data %>% filter(Datum=="27.9.2018")
# Definieren relevanter Variablen
Probennummer<-data27.9.2018$Probennummer
Datum<-data27.9.2018$Datum
# Extrahieren der Messwerte des ausgewählten Tages für Si
data27.9.2018_Si<-data27.9.2018$Si
# Extrahieren des l-Drift Korrekturfaktors des ausgewählten Tages für Si
KorFak27.9.2018_Si<-KorFak27.9.2018$lDrift_Si
# Durchführen der l-Drift-Korrektur
Si<- data27.9.2018_Si-data27.9.2018_Si*(KorFak27.9.2018_Si/100)
data27.9.2018_Ti<-data27.9.2018$Ti
KorFak27.9.2018_Ti<-KorFak27.9.2018$lDrift_Ti
Ti<- data27.9.2018_Ti-data27.9.2018_Ti*(KorFak27.9.2018_Ti/100)
data27.9.2018_Al<-data27.9.2018$Al
KorFak27.9.2018_Al<-KorFak27.9.2018$lDrift_Al
Al<- data27.9.2018_Al-data27.9.2018_Al*(KorFak27.9.2018_Al/100)
data27.9.2018_Fe<-data27.9.2018$Fe
KorFak27.9.2018_Fe<-KorFak27.9.2018$lDrift_Fe
Fe<- data27.9.2018_Fe-data27.9.2018_Fe*(KorFak27.9.2018_Fe/100)
data27.9.2018_Mn<-data27.9.2018$Mn
KorFak27.9.2018_Mn<-KorFak27.9.2018$lDrift_Mn
Mn<- data27.9.2018_Mn-data27.9.2018_Mn*(KorFak27.9.2018_Mn/100)
data27.9.2018_Mg<-data27.9.2018$Mg
KorFak27.9.2018_Mg<-KorFak27.9.2018$lDrift_Mg
Mg<- data27.9.2018_Mg-data27.9.2018_Mg*(KorFak27.9.2018_Mg/100)
data27.9.2018_Ca<-data27.9.2018$Ca
KorFak27.9.2018_Ca<-KorFak27.9.2018$lDrift_Ca
Ca<- data27.9.2018_Ca-data27.9.2018_Ca*(KorFak27.9.2018_Ca/100)
data27.9.2018_K<-data27.9.2018$K
KorFak27.9.2018_K<-KorFak27.9.2018$lDrift_K
K<- data27.9.2018_K-data27.9.2018_K*(KorFak27.9.2018_K/100)
data27.9.2018_P<-data27.9.2018$P
KorFak27.9.2018_P<-KorFak27.9.2018$lDrift_P
P<- data27.9.2018_P-data27.9.2018_P*(KorFak27.9.2018_P/100)
data27.9.2018_S<-data27.9.2018$S
KorFak27.9.2018_S<-KorFak27.9.2018$lDrift_S
S<- data27.9.2018_S-data27.9.2018_S*(KorFak27.9.2018_S/100)
data27.9.2018_Cl<-data27.9.2018$Cl
KorFak27.9.2018_Cl<-KorFak27.9.2018$lDrift_Cl
Cl<- data27.9.2018_Cl-data27.9.2018_Cl*(KorFak27.9.2018_Cl/100)
data27.9.2018_V<-data27.9.2018$V
KorFak27.9.2018_V<-KorFak27.9.2018$lDrift_V
V<- data27.9.2018_V-data27.9.2018_V*(KorFak27.9.2018_V/100)
data27.9.2018_Cr<-data27.9.2018$Cr
KorFak27.9.2018_Cr<-KorFak27.9.2018$lDrift_Cr
Cr<- data27.9.2018_Cr-data27.9.2018_Cr*(KorFak27.9.2018_Cr/100)
data27.9.2018_Ni<-data27.9.2018$Ni
KorFak27.9.2018_Ni<-KorFak27.9.2018$lDrift_Ni
Ni<- data27.9.2018_Ni-data27.9.2018_Ni*(KorFak27.9.2018_Ni/100)
data27.9.2018_Cu<-data27.9.2018$Cu
KorFak27.9.2018_Cu<-KorFak27.9.2018$lDrift_Cu
Cu<- data27.9.2018_Cu-data27.9.2018_Cu*(KorFak27.9.2018_Cu/100)
data27.9.2018_Zn<-data27.9.2018$Zn
KorFak27.9.2018_Zn<-KorFak27.9.2018$lDrift_Zn
Zn<- data27.9.2018_Zn-data27.9.2018_Zn*(KorFak27.9.2018_Zn/100)
data27.9.2018_As<-data27.9.2018$As
KorFak27.9.2018_As<-KorFak27.9.2018$lDrift_As
As<- data27.9.2018_As-data27.9.2018_As*(KorFak27.9.2018_As/100)
data27.9.2018_Se<-data27.9.2018$Se
KorFak27.9.2018_Se<-KorFak27.9.2018$lDrift_Se
Se<- data27.9.2018_Se-data27.9.2018_Se*(KorFak27.9.2018_Se/100)
data27.9.2018_Rb<-data27.9.2018$Rb
KorFak27.9.2018_Rb<-KorFak27.9.2018$lDrift_Rb
Rb<- data27.9.2018_Rb-data27.9.2018_Rb*(KorFak27.9.2018_Rb/100)
data27.9.2018_Sr<-data27.9.2018$Sr
KorFak27.9.2018_Sr<-KorFak27.9.2018$lDrift_Sr
Sr<- data27.9.2018_Sr-data27.9.2018_Sr*(KorFak27.9.2018_Sr/100)
data27.9.2018_Y<-data27.9.2018$Y
KorFak27.9.2018_Y<-KorFak27.9.2018$lDrift_Y
Y<- data27.9.2018_Y-data27.9.2018_Y*(KorFak27.9.2018_Y/100)
data27.9.2018_Zr<-data27.9.2018$Zr
KorFak27.9.2018_Zr<-KorFak27.9.2018$lDrift_Zr
Zr<- data27.9.2018_Zr-data27.9.2018_Zr*(KorFak27.9.2018_Zr/100)
data27.9.2018_Nb<-data27.9.2018$Nb
KorFak27.9.2018_Nb<-KorFak27.9.2018$lDrift_Nb
Nb<- data27.9.2018_Nb-data27.9.2018_Nb*(KorFak27.9.2018_Nb/100)
data27.9.2018_Mo<-data27.9.2018$Mo
KorFak27.9.2018_Mo<-KorFak27.9.2018$lDrift_Mo
Mo<- data27.9.2018_Mo-data27.9.2018_Mo*(KorFak27.9.2018_Mo/100)
data27.9.2018_Ag<-data27.9.2018$Ag
KorFak27.9.2018_Ag<-KorFak27.9.2018$lDrift_Ag
Ag<- data27.9.2018_Ag-data27.9.2018_Ag*(KorFak27.9.2018_Ag/100)
data27.9.2018_Cd<-data27.9.2018$Cd
KorFak27.9.2018_Cd<-KorFak27.9.2018$lDrift_Cd
Cd<- data27.9.2018_Cd-data27.9.2018_Cd*(KorFak27.9.2018_Cd/100)
data27.9.2018_Sn<-data27.9.2018$Sn
KorFak27.9.2018_Sn<-KorFak27.9.2018$lDrift_Sn
Sn<- data27.9.2018_Sn-data27.9.2018_Sn*(KorFak27.9.2018_Sn/100)
data27.9.2018_Sb<-data27.9.2018$Sb
KorFak27.9.2018_Sb<-KorFak27.9.2018$lDrift_Sb
Sb<- data27.9.2018_Sb-data27.9.2018_Sb*(KorFak27.9.2018_Sb/100)
data27.9.2018_Te<-data27.9.2018$Te
KorFak27.9.2018_Te<-KorFak27.9.2018$lDrift_Te
Te<- data27.9.2018_Te-data27.9.2018_Te*(KorFak27.9.2018_Te/100)
data27.9.2018_Cs<-data27.9.2018$Cs
KorFak27.9.2018_Cs<-KorFak27.9.2018$lDrift_Cs
Cs<- data27.9.2018_Cs-data27.9.2018_Cs*(KorFak27.9.2018_Cs/100)
data27.9.2018_Ba<-data27.9.2018$Ba
KorFak27.9.2018_Ba<-KorFak27.9.2018$lDrift_Ba
Ba<- data27.9.2018_Ba-data27.9.2018_Ba*(KorFak27.9.2018_Ba/100)
data27.9.2018_La<-data27.9.2018$La
KorFak27.9.2018_La<-KorFak27.9.2018$lDrift_La
La<- data27.9.2018_La-data27.9.2018_La*(KorFak27.9.2018_La/100)
data27.9.2018_Pb<-data27.9.2018$Pb
KorFak27.9.2018_Pb<-KorFak27.9.2018$lDrift_Pb
Pb<- data27.9.2018_Pb-data27.9.2018_Pb*(KorFak27.9.2018_Pb/100)
data27.9.2018_Th<-data27.9.2018$Th
KorFak27.9.2018_Th<-KorFak27.9.2018$lDrift_Th
Th<- data27.9.2018_Th-data27.9.2018_Th*(KorFak27.9.2018_Th/100)
data27.9.2018_U<-data27.9.2018$U
KorFak27.9.2018_U<-KorFak27.9.2018$lDrift_U
U<- data27.9.2018_U-data27.9.2018_U*(KorFak27.9.2018_U/100)
# Kombinieren mehrerer Dataframes
Daten_BB_lDrift_Kor27.9.2018<-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)7.2.3 l-Drift Korrektur des 28.9.2018
KorFak28.9.2018<-KorFak %>% filter(Datum_median=="28.9.2018")
data28.9.2018<-data %>% filter(Datum=="28.9.2018")
Probennummer<-data28.9.2018$Probennummer
Datum<-data28.9.2018$Datum
data28.9.2018_Si<-data28.9.2018$Si
KorFak28.9.2018_Si<-KorFak28.9.2018$lDrift_Si
Si<- data28.9.2018_Si-data28.9.2018_Si*(KorFak28.9.2018_Si/100)
data28.9.2018_Ti<-data28.9.2018$Ti
KorFak28.9.2018_Ti<-KorFak28.9.2018$lDrift_Ti
Ti<- data28.9.2018_Ti-data28.9.2018_Ti*(KorFak28.9.2018_Ti/100)
data28.9.2018_Al<-data28.9.2018$Al
KorFak28.9.2018_Al<-KorFak28.9.2018$lDrift_Al
Al<- data28.9.2018_Al-data28.9.2018_Al*(KorFak28.9.2018_Al/100)
data28.9.2018_Fe<-data28.9.2018$Fe
KorFak28.9.2018_Fe<-KorFak28.9.2018$lDrift_Fe
Fe<- data28.9.2018_Fe-data28.9.2018_Fe*(KorFak28.9.2018_Fe/100)
data28.9.2018_Mn<-data28.9.2018$Mn
KorFak28.9.2018_Mn<-KorFak28.9.2018$lDrift_Mn
Mn<- data28.9.2018_Mn-data28.9.2018_Mn*(KorFak28.9.2018_Mn/100)
data28.9.2018_Mg<-data28.9.2018$Mg
KorFak28.9.2018_Mg<-KorFak28.9.2018$lDrift_Mg
Mg<- data28.9.2018_Mg-data28.9.2018_Mg*(KorFak28.9.2018_Mg/100)
data28.9.2018_Ca<-data28.9.2018$Ca
KorFak28.9.2018_Ca<-KorFak28.9.2018$lDrift_Ca
Ca<- data28.9.2018_Ca-data28.9.2018_Ca*(KorFak28.9.2018_Ca/100)
data28.9.2018_K<-data28.9.2018$K
KorFak28.9.2018_K<-KorFak28.9.2018$lDrift_K
K<- data28.9.2018_K-data28.9.2018_K*(KorFak28.9.2018_K/100)
data28.9.2018_P<-data28.9.2018$P
KorFak28.9.2018_P<-KorFak28.9.2018$lDrift_P
P<- data28.9.2018_P-data28.9.2018_P*(KorFak28.9.2018_P/100)
data28.9.2018_S<-data28.9.2018$S
KorFak28.9.2018_S<-KorFak28.9.2018$lDrift_S
S<- data28.9.2018_S-data28.9.2018_S*(KorFak28.9.2018_S/100)
data28.9.2018_Cl<-data28.9.2018$Cl
KorFak28.9.2018_Cl<-KorFak28.9.2018$lDrift_Cl
Cl<- data28.9.2018_Cl-data28.9.2018_Cl*(KorFak28.9.2018_Cl/100)
data28.9.2018_V<-data28.9.2018$V
KorFak28.9.2018_V<-KorFak28.9.2018$lDrift_V
V<- data28.9.2018_V-data28.9.2018_V*(KorFak28.9.2018_V/100)
data28.9.2018_Cr<-data28.9.2018$Cr
KorFak28.9.2018_Cr<-KorFak28.9.2018$lDrift_Cr
Cr<- data28.9.2018_Cr-data28.9.2018_Cr*(KorFak28.9.2018_Cr/100)
data28.9.2018_Ni<-data28.9.2018$Ni
KorFak28.9.2018_Ni<-KorFak28.9.2018$lDrift_Ni
Ni<- data28.9.2018_Ni-data28.9.2018_Ni*(KorFak28.9.2018_Ni/100)
data28.9.2018_Cu<-data28.9.2018$Cu
KorFak28.9.2018_Cu<-KorFak28.9.2018$lDrift_Cu
Cu<- data28.9.2018_Cu-data28.9.2018_Cu*(KorFak28.9.2018_Cu/100)
data28.9.2018_Zn<-data28.9.2018$Zn
KorFak28.9.2018_Zn<-KorFak28.9.2018$lDrift_Zn
Zn<- data28.9.2018_Zn-data28.9.2018_Zn*(KorFak28.9.2018_Zn/100)
data28.9.2018_As<-data28.9.2018$As
KorFak28.9.2018_As<-KorFak28.9.2018$lDrift_As
As<- data28.9.2018_As-data28.9.2018_As*(KorFak28.9.2018_As/100)
data28.9.2018_Se<-data28.9.2018$Se
KorFak28.9.2018_Se<-KorFak28.9.2018$lDrift_Se
Se<- data28.9.2018_Se-data28.9.2018_Se*(KorFak28.9.2018_Se/100)
data28.9.2018_Rb<-data28.9.2018$Rb
KorFak28.9.2018_Rb<-KorFak28.9.2018$lDrift_Rb
Rb<- data28.9.2018_Rb-data28.9.2018_Rb*(KorFak28.9.2018_Rb/100)
data28.9.2018_Sr<-data28.9.2018$Sr
KorFak28.9.2018_Sr<-KorFak28.9.2018$lDrift_Sr
Sr<- data28.9.2018_Sr-data28.9.2018_Sr*(KorFak28.9.2018_Sr/100)
data28.9.2018_Y<-data28.9.2018$Y
KorFak28.9.2018_Y<-KorFak28.9.2018$lDrift_Y
Y<- data28.9.2018_Y-data28.9.2018_Y*(KorFak28.9.2018_Y/100)
data28.9.2018_Zr<-data28.9.2018$Zr
KorFak28.9.2018_Zr<-KorFak28.9.2018$lDrift_Zr
Zr<- data28.9.2018_Zr-data28.9.2018_Zr*(KorFak28.9.2018_Zr/100)
data28.9.2018_Nb<-data28.9.2018$Nb
KorFak28.9.2018_Nb<-KorFak28.9.2018$lDrift_Nb
Nb<- data28.9.2018_Nb-data28.9.2018_Nb*(KorFak28.9.2018_Nb/100)
data28.9.2018_Mo<-data28.9.2018$Mo
KorFak28.9.2018_Mo<-KorFak28.9.2018$lDrift_Mo
Mo<- data28.9.2018_Mo-data28.9.2018_Mo*(KorFak28.9.2018_Mo/100)
data28.9.2018_Ag<-data28.9.2018$Ag
KorFak28.9.2018_Ag<-KorFak28.9.2018$lDrift_Ag
Ag<- data28.9.2018_Ag-data28.9.2018_Ag*(KorFak28.9.2018_Ag/100)
data28.9.2018_Cd<-data28.9.2018$Cd
KorFak28.9.2018_Cd<-KorFak28.9.2018$lDrift_Cd
Cd<- data28.9.2018_Cd-data28.9.2018_Cd*(KorFak28.9.2018_Cd/100)
data28.9.2018_Sn<-data28.9.2018$Sn
KorFak28.9.2018_Sn<-KorFak28.9.2018$lDrift_Sn
Sn<- data28.9.2018_Sn-data28.9.2018_Sn*(KorFak28.9.2018_Sn/100)
data28.9.2018_Sb<-data28.9.2018$Sb
KorFak28.9.2018_Sb<-KorFak28.9.2018$lDrift_Sb
Sb<- data28.9.2018_Sb-data28.9.2018_Sb*(KorFak28.9.2018_Sb/100)
data28.9.2018_Te<-data28.9.2018$Te
KorFak28.9.2018_Te<-KorFak28.9.2018$lDrift_Te
Te<- data28.9.2018_Te-data28.9.2018_Te*(KorFak28.9.2018_Te/100)
data28.9.2018_Cs<-data28.9.2018$Cs
KorFak28.9.2018_Cs<-KorFak28.9.2018$lDrift_Cs
Cs<- data28.9.2018_Cs-data28.9.2018_Cs*(KorFak28.9.2018_Cs/100)
data28.9.2018_Ba<-data28.9.2018$Ba
KorFak28.9.2018_Ba<-KorFak28.9.2018$lDrift_Ba
Ba<- data28.9.2018_Ba-data28.9.2018_Ba*(KorFak28.9.2018_Ba/100)
data28.9.2018_La<-data28.9.2018$La
KorFak28.9.2018_La<-KorFak28.9.2018$lDrift_La
La<- data28.9.2018_La-data28.9.2018_La*(KorFak28.9.2018_La/100)
data28.9.2018_Pb<-data28.9.2018$Pb
KorFak28.9.2018_Pb<-KorFak28.9.2018$lDrift_Pb
Pb<- data28.9.2018_Pb-data28.9.2018_Pb*(KorFak28.9.2018_Pb/100)
data28.9.2018_Th<-data28.9.2018$Th
KorFak28.9.2018_Th<-KorFak28.9.2018$lDrift_Th
Th<- data28.9.2018_Th-data28.9.2018_Th*(KorFak28.9.2018_Th/100)
data28.9.2018_U<-data28.9.2018$U
KorFak28.9.2018_U<-KorFak28.9.2018$lDrift_U
U<- data28.9.2018_U-data28.9.2018_U*(KorFak28.9.2018_U/100)
Daten_BB_lDrift_Kor28.9.2018<-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)7.2.4 l-Drift Korrektur des 29.9.2018
KorFak29.9.2018<-KorFak %>% filter(Datum_median=="29.9.2018")
data29.9.2018<-data %>% filter(Datum=="29.9.2018")
Probennummer<-data29.9.2018$Probennummer
Datum<-data29.9.2018$Datum
data29.9.2018_Si<-data29.9.2018$Si
KorFak29.9.2018_Si<-KorFak29.9.2018$lDrift_Si
Si<- data29.9.2018_Si-data29.9.2018_Si*(KorFak29.9.2018_Si/100)
data29.9.2018_Ti<-data29.9.2018$Ti
KorFak29.9.2018_Ti<-KorFak29.9.2018$lDrift_Ti
Ti<- data29.9.2018_Ti-data29.9.2018_Ti*(KorFak29.9.2018_Ti/100)
data29.9.2018_Al<-data29.9.2018$Al
KorFak29.9.2018_Al<-KorFak29.9.2018$lDrift_Al
Al<- data29.9.2018_Al-data29.9.2018_Al*(KorFak29.9.2018_Al/100)
data29.9.2018_Fe<-data29.9.2018$Fe
KorFak29.9.2018_Fe<-KorFak29.9.2018$lDrift_Fe
Fe<- data29.9.2018_Fe-data29.9.2018_Fe*(KorFak29.9.2018_Fe/100)
data29.9.2018_Mn<-data29.9.2018$Mn
KorFak29.9.2018_Mn<-KorFak29.9.2018$lDrift_Mn
Mn<- data29.9.2018_Mn-data29.9.2018_Mn*(KorFak29.9.2018_Mn/100)
data29.9.2018_Mg<-data29.9.2018$Mg
KorFak29.9.2018_Mg<-KorFak29.9.2018$lDrift_Mg
Mg<- data29.9.2018_Mg-data29.9.2018_Mg*(KorFak29.9.2018_Mg/100)
data29.9.2018_Ca<-data29.9.2018$Ca
KorFak29.9.2018_Ca<-KorFak29.9.2018$lDrift_Ca
Ca<- data29.9.2018_Ca-data29.9.2018_Ca*(KorFak29.9.2018_Ca/100)
data29.9.2018_K<-data29.9.2018$K
KorFak29.9.2018_K<-KorFak29.9.2018$lDrift_K
K<- data29.9.2018_K-data29.9.2018_K*(KorFak29.9.2018_K/100)
data29.9.2018_P<-data29.9.2018$P
KorFak29.9.2018_P<-KorFak29.9.2018$lDrift_P
P<- data29.9.2018_P-data29.9.2018_P*(KorFak29.9.2018_P/100)
data29.9.2018_S<-data29.9.2018$S
KorFak29.9.2018_S<-KorFak29.9.2018$lDrift_S
S<- data29.9.2018_S-data29.9.2018_S*(KorFak29.9.2018_S/100)
data29.9.2018_Cl<-data29.9.2018$Cl
KorFak29.9.2018_Cl<-KorFak29.9.2018$lDrift_Cl
Cl<- data29.9.2018_Cl-data29.9.2018_Cl*(KorFak29.9.2018_Cl/100)
data29.9.2018_V<-data29.9.2018$V
KorFak29.9.2018_V<-KorFak29.9.2018$lDrift_V
V<- data29.9.2018_V-data29.9.2018_V*(KorFak29.9.2018_V/100)
data29.9.2018_Cr<-data29.9.2018$Cr
KorFak29.9.2018_Cr<-KorFak29.9.2018$lDrift_Cr
Cr<- data29.9.2018_Cr-data29.9.2018_Cr*(KorFak29.9.2018_Cr/100)
data29.9.2018_Ni<-data29.9.2018$Ni
KorFak29.9.2018_Ni<-KorFak29.9.2018$lDrift_Ni
Ni<- data29.9.2018_Ni-data29.9.2018_Ni*(KorFak29.9.2018_Ni/100)
data29.9.2018_Cu<-data29.9.2018$Cu
KorFak29.9.2018_Cu<-KorFak29.9.2018$lDrift_Cu
Cu<- data29.9.2018_Cu-data29.9.2018_Cu*(KorFak29.9.2018_Cu/100)
data29.9.2018_Zn<-data29.9.2018$Zn
KorFak29.9.2018_Zn<-KorFak29.9.2018$lDrift_Zn
Zn<- data29.9.2018_Zn-data29.9.2018_Zn*(KorFak29.9.2018_Zn/100)
data29.9.2018_As<-data29.9.2018$As
KorFak29.9.2018_As<-KorFak29.9.2018$lDrift_As
As<- data29.9.2018_As-data29.9.2018_As*(KorFak29.9.2018_As/100)
data29.9.2018_Se<-data29.9.2018$Se
KorFak29.9.2018_Se<-KorFak29.9.2018$lDrift_Se
Se<- data29.9.2018_Se-data29.9.2018_Se*(KorFak29.9.2018_Se/100)
data29.9.2018_Rb<-data29.9.2018$Rb
KorFak29.9.2018_Rb<-KorFak29.9.2018$lDrift_Rb
Rb<- data29.9.2018_Rb-data29.9.2018_Rb*(KorFak29.9.2018_Rb/100)
data29.9.2018_Sr<-data29.9.2018$Sr
KorFak29.9.2018_Sr<-KorFak29.9.2018$lDrift_Sr
Sr<- data29.9.2018_Sr-data29.9.2018_Sr*(KorFak29.9.2018_Sr/100)
data29.9.2018_Y<-data29.9.2018$Y
KorFak29.9.2018_Y<-KorFak29.9.2018$lDrift_Y
Y<- data29.9.2018_Y-data29.9.2018_Y*(KorFak29.9.2018_Y/100)
data29.9.2018_Zr<-data29.9.2018$Zr
KorFak29.9.2018_Zr<-KorFak29.9.2018$lDrift_Zr
Zr<- data29.9.2018_Zr-data29.9.2018_Zr*(KorFak29.9.2018_Zr/100)
data29.9.2018_Nb<-data29.9.2018$Nb
KorFak29.9.2018_Nb<-KorFak29.9.2018$lDrift_Nb
Nb<- data29.9.2018_Nb-data29.9.2018_Nb*(KorFak29.9.2018_Nb/100)
data29.9.2018_Mo<-data29.9.2018$Mo
KorFak29.9.2018_Mo<-KorFak29.9.2018$lDrift_Mo
Mo<- data29.9.2018_Mo-data29.9.2018_Mo*(KorFak29.9.2018_Mo/100)
data29.9.2018_Ag<-data29.9.2018$Ag
KorFak29.9.2018_Ag<-KorFak29.9.2018$lDrift_Ag
Ag<- data29.9.2018_Ag-data29.9.2018_Ag*(KorFak29.9.2018_Ag/100)
data29.9.2018_Cd<-data29.9.2018$Cd
KorFak29.9.2018_Cd<-KorFak29.9.2018$lDrift_Cd
Cd<- data29.9.2018_Cd-data29.9.2018_Cd*(KorFak29.9.2018_Cd/100)
data29.9.2018_Sn<-data29.9.2018$Sn
KorFak29.9.2018_Sn<-KorFak29.9.2018$lDrift_Sn
Sn<- data29.9.2018_Sn-data29.9.2018_Sn*(KorFak29.9.2018_Sn/100)
data29.9.2018_Sb<-data29.9.2018$Sb
KorFak29.9.2018_Sb<-KorFak29.9.2018$lDrift_Sb
Sb<- data29.9.2018_Sb-data29.9.2018_Sb*(KorFak29.9.2018_Sb/100)
data29.9.2018_Te<-data29.9.2018$Te
KorFak29.9.2018_Te<-KorFak29.9.2018$lDrift_Te
Te<- data29.9.2018_Te-data29.9.2018_Te*(KorFak29.9.2018_Te/100)
data29.9.2018_Cs<-data29.9.2018$Cs
KorFak29.9.2018_Cs<-KorFak29.9.2018$lDrift_Cs
Cs<- data29.9.2018_Cs-data29.9.2018_Cs*(KorFak29.9.2018_Cs/100)
data29.9.2018_Ba<-data29.9.2018$Ba
KorFak29.9.2018_Ba<-KorFak29.9.2018$lDrift_Ba
Ba<- data29.9.2018_Ba-data29.9.2018_Ba*(KorFak29.9.2018_Ba/100)
data29.9.2018_La<-data29.9.2018$La
KorFak29.9.2018_La<-KorFak29.9.2018$lDrift_La
La<- data29.9.2018_La-data29.9.2018_La*(KorFak29.9.2018_La/100)
data29.9.2018_Pb<-data29.9.2018$Pb
KorFak29.9.2018_Pb<-KorFak29.9.2018$lDrift_Pb
Pb<- data29.9.2018_Pb-data29.9.2018_Pb*(KorFak29.9.2018_Pb/100)
data29.9.2018_Th<-data29.9.2018$Th
KorFak29.9.2018_Th<-KorFak29.9.2018$lDrift_Th
Th<- data29.9.2018_Th-data29.9.2018_Th*(KorFak29.9.2018_Th/100)
data29.9.2018_U<-data29.9.2018$U
KorFak29.9.2018_U<-KorFak29.9.2018$lDrift_U
U<- data29.9.2018_U-data29.9.2018_U*(KorFak29.9.2018_U/100)
Daten_BB_lDrift_Kor29.9.2018<-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)7.2.5 l-Drift Korrektur des 1.10.2018
KorFak1.10.2018<-KorFak %>% filter(Datum_median=="1.10.2018")
data1.10.2018<-data %>% filter(Datum=="1.10.2018")
Probennummer<-data1.10.2018$Probennummer
Datum<-data1.10.2018$Datum
data1.10.2018_Si<-data1.10.2018$Si
KorFak1.10.2018_Si<-KorFak1.10.2018$lDrift_Si
Si<- data1.10.2018_Si-data1.10.2018_Si*(KorFak1.10.2018_Si/100)
data1.10.2018_Ti<-data1.10.2018$Ti
KorFak1.10.2018_Ti<-KorFak1.10.2018$lDrift_Ti
Ti<- data1.10.2018_Ti-data1.10.2018_Ti*(KorFak1.10.2018_Ti/100)
data1.10.2018_Al<-data1.10.2018$Al
KorFak1.10.2018_Al<-KorFak1.10.2018$lDrift_Al
Al<- data1.10.2018_Al-data1.10.2018_Al*(KorFak1.10.2018_Al/100)
data1.10.2018_Fe<-data1.10.2018$Fe
KorFak1.10.2018_Fe<-KorFak1.10.2018$lDrift_Fe
Fe<- data1.10.2018_Fe-data1.10.2018_Fe*(KorFak1.10.2018_Fe/100)
data1.10.2018_Mn<-data1.10.2018$Mn
KorFak1.10.2018_Mn<-KorFak1.10.2018$lDrift_Mn
Mn<- data1.10.2018_Mn-data1.10.2018_Mn*(KorFak1.10.2018_Mn/100)
data1.10.2018_Mg<-data1.10.2018$Mg
KorFak1.10.2018_Mg<-KorFak1.10.2018$lDrift_Mg
Mg<- data1.10.2018_Mg-data1.10.2018_Mg*(KorFak1.10.2018_Mg/100)
data1.10.2018_Ca<-data1.10.2018$Ca
KorFak1.10.2018_Ca<-KorFak1.10.2018$lDrift_Ca
Ca<- data1.10.2018_Ca-data1.10.2018_Ca*(KorFak1.10.2018_Ca/100)
data1.10.2018_K<-data1.10.2018$K
KorFak1.10.2018_K<-KorFak1.10.2018$lDrift_K
K<- data1.10.2018_K-data1.10.2018_K*(KorFak1.10.2018_K/100)
data1.10.2018_P<-data1.10.2018$P
KorFak1.10.2018_P<-KorFak1.10.2018$lDrift_P
P<- data1.10.2018_P-data1.10.2018_P*(KorFak1.10.2018_P/100)
data1.10.2018_S<-data1.10.2018$S
KorFak1.10.2018_S<-KorFak1.10.2018$lDrift_S
S<- data1.10.2018_S-data1.10.2018_S*(KorFak1.10.2018_S/100)
data1.10.2018_Cl<-data1.10.2018$Cl
KorFak1.10.2018_Cl<-KorFak1.10.2018$lDrift_Cl
Cl<- data1.10.2018_Cl-data1.10.2018_Cl*(KorFak1.10.2018_Cl/100)
data1.10.2018_V<-data1.10.2018$V
KorFak1.10.2018_V<-KorFak1.10.2018$lDrift_V
V<- data1.10.2018_V-data1.10.2018_V*(KorFak1.10.2018_V/100)
data1.10.2018_Cr<-data1.10.2018$Cr
KorFak1.10.2018_Cr<-KorFak1.10.2018$lDrift_Cr
Cr<- data1.10.2018_Cr-data1.10.2018_Cr*(KorFak1.10.2018_Cr/100)
data1.10.2018_Ni<-data1.10.2018$Ni
KorFak1.10.2018_Ni<-KorFak1.10.2018$lDrift_Ni
Ni<- data1.10.2018_Ni-data1.10.2018_Ni*(KorFak1.10.2018_Ni/100)
data1.10.2018_Cu<-data1.10.2018$Cu
KorFak1.10.2018_Cu<-KorFak1.10.2018$lDrift_Cu
Cu<- data1.10.2018_Cu-data1.10.2018_Cu*(KorFak1.10.2018_Cu/100)
data1.10.2018_Zn<-data1.10.2018$Zn
KorFak1.10.2018_Zn<-KorFak1.10.2018$lDrift_Zn
Zn<- data1.10.2018_Zn-data1.10.2018_Zn*(KorFak1.10.2018_Zn/100)
data1.10.2018_As<-data1.10.2018$As
KorFak1.10.2018_As<-KorFak1.10.2018$lDrift_As
As<- data1.10.2018_As-data1.10.2018_As*(KorFak1.10.2018_As/100)
data1.10.2018_Se<-data1.10.2018$Se
KorFak1.10.2018_Se<-KorFak1.10.2018$lDrift_Se
Se<- data1.10.2018_Se-data1.10.2018_Se*(KorFak1.10.2018_Se/100)
data1.10.2018_Rb<-data1.10.2018$Rb
KorFak1.10.2018_Rb<-KorFak1.10.2018$lDrift_Rb
Rb<- data1.10.2018_Rb-data1.10.2018_Rb*(KorFak1.10.2018_Rb/100)
data1.10.2018_Sr<-data1.10.2018$Sr
KorFak1.10.2018_Sr<-KorFak1.10.2018$lDrift_Sr
Sr<- data1.10.2018_Sr-data1.10.2018_Sr*(KorFak1.10.2018_Sr/100)
data1.10.2018_Y<-data1.10.2018$Y
KorFak1.10.2018_Y<-KorFak1.10.2018$lDrift_Y
Y<- data1.10.2018_Y-data1.10.2018_Y*(KorFak1.10.2018_Y/100)
data1.10.2018_Zr<-data1.10.2018$Zr
KorFak1.10.2018_Zr<-KorFak1.10.2018$lDrift_Zr
Zr<- data1.10.2018_Zr-data1.10.2018_Zr*(KorFak1.10.2018_Zr/100)
data1.10.2018_Nb<-data1.10.2018$Nb
KorFak1.10.2018_Nb<-KorFak1.10.2018$lDrift_Nb
Nb<- data1.10.2018_Nb-data1.10.2018_Nb*(KorFak1.10.2018_Nb/100)
data1.10.2018_Mo<-data1.10.2018$Mo
KorFak1.10.2018_Mo<-KorFak1.10.2018$lDrift_Mo
Mo<- data1.10.2018_Mo-data1.10.2018_Mo*(KorFak1.10.2018_Mo/100)
data1.10.2018_Ag<-data1.10.2018$Ag
KorFak1.10.2018_Ag<-KorFak1.10.2018$lDrift_Ag
Ag<- data1.10.2018_Ag-data1.10.2018_Ag*(KorFak1.10.2018_Ag/100)
data1.10.2018_Cd<-data1.10.2018$Cd
KorFak1.10.2018_Cd<-KorFak1.10.2018$lDrift_Cd
Cd<- data1.10.2018_Cd-data1.10.2018_Cd*(KorFak1.10.2018_Cd/100)
data1.10.2018_Sn<-data1.10.2018$Sn
KorFak1.10.2018_Sn<-KorFak1.10.2018$lDrift_Sn
Sn<- data1.10.2018_Sn-data1.10.2018_Sn*(KorFak1.10.2018_Sn/100)
data1.10.2018_Sb<-data1.10.2018$Sb
KorFak1.10.2018_Sb<-KorFak1.10.2018$lDrift_Sb
Sb<- data1.10.2018_Sb-data1.10.2018_Sb*(KorFak1.10.2018_Sb/100)
data1.10.2018_Te<-data1.10.2018$Te
KorFak1.10.2018_Te<-KorFak1.10.2018$lDrift_Te
Te<- data1.10.2018_Te-data1.10.2018_Te*(KorFak1.10.2018_Te/100)
data1.10.2018_Cs<-data1.10.2018$Cs
KorFak1.10.2018_Cs<-KorFak1.10.2018$lDrift_Cs
Cs<- data1.10.2018_Cs-data1.10.2018_Cs*(KorFak1.10.2018_Cs/100)
data1.10.2018_Ba<-data1.10.2018$Ba
KorFak1.10.2018_Ba<-KorFak1.10.2018$lDrift_Ba
Ba<- data1.10.2018_Ba-data1.10.2018_Ba*(KorFak1.10.2018_Ba/100)
data1.10.2018_La<-data1.10.2018$La
KorFak1.10.2018_La<-KorFak1.10.2018$lDrift_La
La<- data1.10.2018_La-data1.10.2018_La*(KorFak1.10.2018_La/100)
data1.10.2018_Pb<-data1.10.2018$Pb
KorFak1.10.2018_Pb<-KorFak1.10.2018$lDrift_Pb
Pb<- data1.10.2018_Pb-data1.10.2018_Pb*(KorFak1.10.2018_Pb/100)
data1.10.2018_Th<-data1.10.2018$Th
KorFak1.10.2018_Th<-KorFak1.10.2018$lDrift_Th
Th<- data1.10.2018_Th-data1.10.2018_Th*(KorFak1.10.2018_Th/100)
data1.10.2018_U<-data1.10.2018$U
KorFak1.10.2018_U<-KorFak1.10.2018$lDrift_U
U<- data1.10.2018_U-data1.10.2018_U*(KorFak1.10.2018_U/100)
Daten_BB_lDrift_Kor1.10.2018<-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)7.2.6 l-Drift Korrektur des 2.10.2018
KorFak2.10.2018<-KorFak %>% filter(Datum_median=="2.10.2018")
data2.10.2018<-data %>% filter(Datum=="2.10.2018")
Probennummer<-data2.10.2018$Probennummer
Datum<-data2.10.2018$Datum
data2.10.2018_Si<-data2.10.2018$Si
KorFak2.10.2018_Si<-KorFak2.10.2018$lDrift_Si
Si<- data2.10.2018_Si-data2.10.2018_Si*(KorFak2.10.2018_Si/100)
data2.10.2018_Ti<-data2.10.2018$Ti
KorFak2.10.2018_Ti<-KorFak2.10.2018$lDrift_Ti
Ti<- data2.10.2018_Ti-data2.10.2018_Ti*(KorFak2.10.2018_Ti/100)
data2.10.2018_Al<-data2.10.2018$Al
KorFak2.10.2018_Al<-KorFak2.10.2018$lDrift_Al
Al<- data2.10.2018_Al-data2.10.2018_Al*(KorFak2.10.2018_Al/100)
data2.10.2018_Fe<-data2.10.2018$Fe
KorFak2.10.2018_Fe<-KorFak2.10.2018$lDrift_Fe
Fe<- data2.10.2018_Fe-data2.10.2018_Fe*(KorFak2.10.2018_Fe/100)
data2.10.2018_Mn<-data2.10.2018$Mn
KorFak2.10.2018_Mn<-KorFak2.10.2018$lDrift_Mn
Mn<- data2.10.2018_Mn-data2.10.2018_Mn*(KorFak2.10.2018_Mn/100)
data2.10.2018_Mg<-data2.10.2018$Mg
KorFak2.10.2018_Mg<-KorFak2.10.2018$lDrift_Mg
Mg<- data2.10.2018_Mg-data2.10.2018_Mg*(KorFak2.10.2018_Mg/100)
data2.10.2018_Ca<-data2.10.2018$Ca
KorFak2.10.2018_Ca<-KorFak2.10.2018$lDrift_Ca
Ca<- data2.10.2018_Ca-data2.10.2018_Ca*(KorFak2.10.2018_Ca/100)
data2.10.2018_K<-data2.10.2018$K
KorFak2.10.2018_K<-KorFak2.10.2018$lDrift_K
K<- data2.10.2018_K-data2.10.2018_K*(KorFak2.10.2018_K/100)
data2.10.2018_P<-data2.10.2018$P
KorFak2.10.2018_P<-KorFak2.10.2018$lDrift_P
P<- data2.10.2018_P-data2.10.2018_P*(KorFak2.10.2018_P/100)
data2.10.2018_S<-data2.10.2018$S
KorFak2.10.2018_S<-KorFak2.10.2018$lDrift_S
S<- data2.10.2018_S-data2.10.2018_S*(KorFak2.10.2018_S/100)
data2.10.2018_Cl<-data2.10.2018$Cl
KorFak2.10.2018_Cl<-KorFak2.10.2018$lDrift_Cl
Cl<- data2.10.2018_Cl-data2.10.2018_Cl*(KorFak2.10.2018_Cl/100)
data2.10.2018_V<-data2.10.2018$V
KorFak2.10.2018_V<-KorFak2.10.2018$lDrift_V
V<- data2.10.2018_V-data2.10.2018_V*(KorFak2.10.2018_V/100)
data2.10.2018_Cr<-data2.10.2018$Cr
KorFak2.10.2018_Cr<-KorFak2.10.2018$lDrift_Cr
Cr<- data2.10.2018_Cr-data2.10.2018_Cr*(KorFak2.10.2018_Cr/100)
data2.10.2018_Ni<-data2.10.2018$Ni
KorFak2.10.2018_Ni<-KorFak2.10.2018$lDrift_Ni
Ni<- data2.10.2018_Ni-data2.10.2018_Ni*(KorFak2.10.2018_Ni/100)
data2.10.2018_Cu<-data2.10.2018$Cu
KorFak2.10.2018_Cu<-KorFak2.10.2018$lDrift_Cu
Cu<- data2.10.2018_Cu-data2.10.2018_Cu*(KorFak2.10.2018_Cu/100)
data2.10.2018_Zn<-data2.10.2018$Zn
KorFak2.10.2018_Zn<-KorFak2.10.2018$lDrift_Zn
Zn<- data2.10.2018_Zn-data2.10.2018_Zn*(KorFak2.10.2018_Zn/100)
data2.10.2018_As<-data2.10.2018$As
KorFak2.10.2018_As<-KorFak2.10.2018$lDrift_As
As<- data2.10.2018_As-data2.10.2018_As*(KorFak2.10.2018_As/100)
data2.10.2018_Se<-data2.10.2018$Se
KorFak2.10.2018_Se<-KorFak2.10.2018$lDrift_Se
Se<- data2.10.2018_Se-data2.10.2018_Se*(KorFak2.10.2018_Se/100)
data2.10.2018_Rb<-data2.10.2018$Rb
KorFak2.10.2018_Rb<-KorFak2.10.2018$lDrift_Rb
Rb<- data2.10.2018_Rb-data2.10.2018_Rb*(KorFak2.10.2018_Rb/100)
data2.10.2018_Sr<-data2.10.2018$Sr
KorFak2.10.2018_Sr<-KorFak2.10.2018$lDrift_Sr
Sr<- data2.10.2018_Sr-data2.10.2018_Sr*(KorFak2.10.2018_Sr/100)
data2.10.2018_Y<-data2.10.2018$Y
KorFak2.10.2018_Y<-KorFak2.10.2018$lDrift_Y
Y<- data2.10.2018_Y-data2.10.2018_Y*(KorFak2.10.2018_Y/100)
data2.10.2018_Zr<-data2.10.2018$Zr
KorFak2.10.2018_Zr<-KorFak2.10.2018$lDrift_Zr
Zr<- data2.10.2018_Zr-data2.10.2018_Zr*(KorFak2.10.2018_Zr/100)
data2.10.2018_Nb<-data2.10.2018$Nb
KorFak2.10.2018_Nb<-KorFak2.10.2018$lDrift_Nb
Nb<- data2.10.2018_Nb-data2.10.2018_Nb*(KorFak2.10.2018_Nb/100)
data2.10.2018_Mo<-data2.10.2018$Mo
KorFak2.10.2018_Mo<-KorFak2.10.2018$lDrift_Mo
Mo<- data2.10.2018_Mo-data2.10.2018_Mo*(KorFak2.10.2018_Mo/100)
data2.10.2018_Ag<-data2.10.2018$Ag
KorFak2.10.2018_Ag<-KorFak2.10.2018$lDrift_Ag
Ag<- data2.10.2018_Ag-data2.10.2018_Ag*(KorFak2.10.2018_Ag/100)
data2.10.2018_Cd<-data2.10.2018$Cd
KorFak2.10.2018_Cd<-KorFak2.10.2018$lDrift_Cd
Cd<- data2.10.2018_Cd-data2.10.2018_Cd*(KorFak2.10.2018_Cd/100)
data2.10.2018_Sn<-data2.10.2018$Sn
KorFak2.10.2018_Sn<-KorFak2.10.2018$lDrift_Sn
Sn<- data2.10.2018_Sn-data2.10.2018_Sn*(KorFak2.10.2018_Sn/100)
data2.10.2018_Sb<-data2.10.2018$Sb
KorFak2.10.2018_Sb<-KorFak2.10.2018$lDrift_Sb
Sb<- data2.10.2018_Sb-data2.10.2018_Sb*(KorFak2.10.2018_Sb/100)
data2.10.2018_Te<-data2.10.2018$Te
KorFak2.10.2018_Te<-KorFak2.10.2018$lDrift_Te
Te<- data2.10.2018_Te-data2.10.2018_Te*(KorFak2.10.2018_Te/100)
data2.10.2018_Cs<-data2.10.2018$Cs
KorFak2.10.2018_Cs<-KorFak2.10.2018$lDrift_Cs
Cs<- data2.10.2018_Cs-data2.10.2018_Cs*(KorFak2.10.2018_Cs/100)
data2.10.2018_Ba<-data2.10.2018$Ba
KorFak2.10.2018_Ba<-KorFak2.10.2018$lDrift_Ba
Ba<- data2.10.2018_Ba-data2.10.2018_Ba*(KorFak2.10.2018_Ba/100)
data2.10.2018_La<-data2.10.2018$La
KorFak2.10.2018_La<-KorFak2.10.2018$lDrift_La
La<- data2.10.2018_La-data2.10.2018_La*(KorFak2.10.2018_La/100)
data2.10.2018_Pb<-data2.10.2018$Pb
KorFak2.10.2018_Pb<-KorFak2.10.2018$lDrift_Pb
Pb<- data2.10.2018_Pb-data2.10.2018_Pb*(KorFak2.10.2018_Pb/100)
data2.10.2018_Th<-data2.10.2018$Th
KorFak2.10.2018_Th<-KorFak2.10.2018$lDrift_Th
Th<- data2.10.2018_Th-data2.10.2018_Th*(KorFak2.10.2018_Th/100)
data2.10.2018_U<-data2.10.2018$U
KorFak2.10.2018_U<-KorFak2.10.2018$lDrift_U
U<- data2.10.2018_U-data2.10.2018_U*(KorFak2.10.2018_U/100)
Daten_BB_lDrift_Kor2.10.2018<-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)7.2.7 l-Drift Korrektur des 3.10.2018
KorFak3.10.2018<-KorFak %>% filter(Datum_median=="3.10.2018")
data3.10.2018<-data %>% filter(Datum=="3.10.2018")
Probennummer<-data3.10.2018$Probennummer
Datum<-data3.10.2018$Datum
data3.10.2018_Si<-data3.10.2018$Si
KorFak3.10.2018_Si<-KorFak3.10.2018$lDrift_Si
Si<- data3.10.2018_Si-data3.10.2018_Si*(KorFak3.10.2018_Si/100)
data3.10.2018_Ti<-data3.10.2018$Ti
KorFak3.10.2018_Ti<-KorFak3.10.2018$lDrift_Ti
Ti<- data3.10.2018_Ti-data3.10.2018_Ti*(KorFak3.10.2018_Ti/100)
data3.10.2018_Al<-data3.10.2018$Al
KorFak3.10.2018_Al<-KorFak3.10.2018$lDrift_Al
Al<- data3.10.2018_Al-data3.10.2018_Al*(KorFak3.10.2018_Al/100)
data3.10.2018_Fe<-data3.10.2018$Fe
KorFak3.10.2018_Fe<-KorFak3.10.2018$lDrift_Fe
Fe<- data3.10.2018_Fe-data3.10.2018_Fe*(KorFak3.10.2018_Fe/100)
data3.10.2018_Mn<-data3.10.2018$Mn
KorFak3.10.2018_Mn<-KorFak3.10.2018$lDrift_Mn
Mn<- data3.10.2018_Mn-data3.10.2018_Mn*(KorFak3.10.2018_Mn/100)
data3.10.2018_Mg<-data3.10.2018$Mg
KorFak3.10.2018_Mg<-KorFak3.10.2018$lDrift_Mg
Mg<- data3.10.2018_Mg-data3.10.2018_Mg*(KorFak3.10.2018_Mg/100)
data3.10.2018_Ca<-data3.10.2018$Ca
KorFak3.10.2018_Ca<-KorFak3.10.2018$lDrift_Ca
Ca<- data3.10.2018_Ca-data3.10.2018_Ca*(KorFak3.10.2018_Ca/100)
data3.10.2018_K<-data3.10.2018$K
KorFak3.10.2018_K<-KorFak3.10.2018$lDrift_K
K<- data3.10.2018_K-data3.10.2018_K*(KorFak3.10.2018_K/100)
data3.10.2018_P<-data3.10.2018$P
KorFak3.10.2018_P<-KorFak3.10.2018$lDrift_P
P<- data3.10.2018_P-data3.10.2018_P*(KorFak3.10.2018_P/100)
data3.10.2018_S<-data3.10.2018$S
KorFak3.10.2018_S<-KorFak3.10.2018$lDrift_S
S<- data3.10.2018_S-data3.10.2018_S*(KorFak3.10.2018_S/100)
data3.10.2018_Cl<-data3.10.2018$Cl
KorFak3.10.2018_Cl<-KorFak3.10.2018$lDrift_Cl
Cl<- data3.10.2018_Cl-data3.10.2018_Cl*(KorFak3.10.2018_Cl/100)
data3.10.2018_V<-data3.10.2018$V
KorFak3.10.2018_V<-KorFak3.10.2018$lDrift_V
V<- data3.10.2018_V-data3.10.2018_V*(KorFak3.10.2018_V/100)
data3.10.2018_Cr<-data3.10.2018$Cr
KorFak3.10.2018_Cr<-KorFak3.10.2018$lDrift_Cr
Cr<- data3.10.2018_Cr-data3.10.2018_Cr*(KorFak3.10.2018_Cr/100)
data3.10.2018_Ni<-data3.10.2018$Ni
KorFak3.10.2018_Ni<-KorFak3.10.2018$lDrift_Ni
Ni<- data3.10.2018_Ni-data3.10.2018_Ni*(KorFak3.10.2018_Ni/100)
data3.10.2018_Cu<-data3.10.2018$Cu
KorFak3.10.2018_Cu<-KorFak3.10.2018$lDrift_Cu
Cu<- data3.10.2018_Cu-data3.10.2018_Cu*(KorFak3.10.2018_Cu/100)
data3.10.2018_Zn<-data3.10.2018$Zn
KorFak3.10.2018_Zn<-KorFak3.10.2018$lDrift_Zn
Zn<- data3.10.2018_Zn-data3.10.2018_Zn*(KorFak3.10.2018_Zn/100)
data3.10.2018_As<-data3.10.2018$As
KorFak3.10.2018_As<-KorFak3.10.2018$lDrift_As
As<- data3.10.2018_As-data3.10.2018_As*(KorFak3.10.2018_As/100)
data3.10.2018_Se<-data3.10.2018$Se
KorFak3.10.2018_Se<-KorFak3.10.2018$lDrift_Se
Se<- data3.10.2018_Se-data3.10.2018_Se*(KorFak3.10.2018_Se/100)
data3.10.2018_Rb<-data3.10.2018$Rb
KorFak3.10.2018_Rb<-KorFak3.10.2018$lDrift_Rb
Rb<- data3.10.2018_Rb-data3.10.2018_Rb*(KorFak3.10.2018_Rb/100)
data3.10.2018_Sr<-data3.10.2018$Sr
KorFak3.10.2018_Sr<-KorFak3.10.2018$lDrift_Sr
Sr<- data3.10.2018_Sr-data3.10.2018_Sr*(KorFak3.10.2018_Sr/100)
data3.10.2018_Y<-data3.10.2018$Y
KorFak3.10.2018_Y<-KorFak3.10.2018$lDrift_Y
Y<- data3.10.2018_Y-data3.10.2018_Y*(KorFak3.10.2018_Y/100)
data3.10.2018_Zr<-data3.10.2018$Zr
KorFak3.10.2018_Zr<-KorFak3.10.2018$lDrift_Zr
Zr<- data3.10.2018_Zr-data3.10.2018_Zr*(KorFak3.10.2018_Zr/100)
data3.10.2018_Nb<-data3.10.2018$Nb
KorFak3.10.2018_Nb<-KorFak3.10.2018$lDrift_Nb
Nb<- data3.10.2018_Nb-data3.10.2018_Nb*(KorFak3.10.2018_Nb/100)
data3.10.2018_Mo<-data3.10.2018$Mo
KorFak3.10.2018_Mo<-KorFak3.10.2018$lDrift_Mo
Mo<- data3.10.2018_Mo-data3.10.2018_Mo*(KorFak3.10.2018_Mo/100)
data3.10.2018_Ag<-data3.10.2018$Ag
KorFak3.10.2018_Ag<-KorFak3.10.2018$lDrift_Ag
Ag<- data3.10.2018_Ag-data3.10.2018_Ag*(KorFak3.10.2018_Ag/100)
data3.10.2018_Cd<-data3.10.2018$Cd
KorFak3.10.2018_Cd<-KorFak3.10.2018$lDrift_Cd
Cd<- data3.10.2018_Cd-data3.10.2018_Cd*(KorFak3.10.2018_Cd/100)
data3.10.2018_Sn<-data3.10.2018$Sn
KorFak3.10.2018_Sn<-KorFak3.10.2018$lDrift_Sn
Sn<- data3.10.2018_Sn-data3.10.2018_Sn*(KorFak3.10.2018_Sn/100)
data3.10.2018_Sb<-data3.10.2018$Sb
KorFak3.10.2018_Sb<-KorFak3.10.2018$lDrift_Sb
Sb<- data3.10.2018_Sb-data3.10.2018_Sb*(KorFak3.10.2018_Sb/100)
data3.10.2018_Te<-data3.10.2018$Te
KorFak3.10.2018_Te<-KorFak3.10.2018$lDrift_Te
Te<- data3.10.2018_Te-data3.10.2018_Te*(KorFak3.10.2018_Te/100)
data3.10.2018_Cs<-data3.10.2018$Cs
KorFak3.10.2018_Cs<-KorFak3.10.2018$lDrift_Cs
Cs<- data3.10.2018_Cs-data3.10.2018_Cs*(KorFak3.10.2018_Cs/100)
data3.10.2018_Ba<-data3.10.2018$Ba
KorFak3.10.2018_Ba<-KorFak3.10.2018$lDrift_Ba
Ba<- data3.10.2018_Ba-data3.10.2018_Ba*(KorFak3.10.2018_Ba/100)
data3.10.2018_La<-data3.10.2018$La
KorFak3.10.2018_La<-KorFak3.10.2018$lDrift_La
La<- data3.10.2018_La-data3.10.2018_La*(KorFak3.10.2018_La/100)
data3.10.2018_Pb<-data3.10.2018$Pb
KorFak3.10.2018_Pb<-KorFak3.10.2018$lDrift_Pb
Pb<- data3.10.2018_Pb-data3.10.2018_Pb*(KorFak3.10.2018_Pb/100)
data3.10.2018_Th<-data3.10.2018$Th
KorFak3.10.2018_Th<-KorFak3.10.2018$lDrift_Th
Th<- data3.10.2018_Th-data3.10.2018_Th*(KorFak3.10.2018_Th/100)
data3.10.2018_U<-data3.10.2018$U
KorFak3.10.2018_U<-KorFak3.10.2018$lDrift_U
U<- data3.10.2018_U-data3.10.2018_U*(KorFak3.10.2018_U/100)
Daten_BB_lDrift_Kor3.10.2018<-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)7.2.8 l-Drift Korrektur des 4.10.2018
KorFak4.10.2018<-KorFak %>% filter(Datum_median=="4.10.2018")
data4.10.2018<-data %>% filter(Datum=="4.10.2018")
Probennummer<-data4.10.2018$Probennummer
Datum<-data4.10.2018$Datum
data4.10.2018_Si<-data4.10.2018$Si
KorFak4.10.2018_Si<-KorFak4.10.2018$lDrift_Si
Si<- data4.10.2018_Si-data4.10.2018_Si*(KorFak4.10.2018_Si/100)
data4.10.2018_Ti<-data4.10.2018$Ti
KorFak4.10.2018_Ti<-KorFak4.10.2018$lDrift_Ti
Ti<- data4.10.2018_Ti-data4.10.2018_Ti*(KorFak4.10.2018_Ti/100)
data4.10.2018_Al<-data4.10.2018$Al
KorFak4.10.2018_Al<-KorFak4.10.2018$lDrift_Al
Al<- data4.10.2018_Al-data4.10.2018_Al*(KorFak4.10.2018_Al/100)
data4.10.2018_Fe<-data4.10.2018$Fe
KorFak4.10.2018_Fe<-KorFak4.10.2018$lDrift_Fe
Fe<- data4.10.2018_Fe-data4.10.2018_Fe*(KorFak4.10.2018_Fe/100)
data4.10.2018_Mn<-data4.10.2018$Mn
KorFak4.10.2018_Mn<-KorFak4.10.2018$lDrift_Mn
Mn<- data4.10.2018_Mn-data4.10.2018_Mn*(KorFak4.10.2018_Mn/100)
data4.10.2018_Mg<-data4.10.2018$Mg
KorFak4.10.2018_Mg<-KorFak4.10.2018$lDrift_Mg
Mg<- data4.10.2018_Mg-data4.10.2018_Mg*(KorFak4.10.2018_Mg/100)
data4.10.2018_Ca<-data4.10.2018$Ca
KorFak4.10.2018_Ca<-KorFak4.10.2018$lDrift_Ca
Ca<- data4.10.2018_Ca-data4.10.2018_Ca*(KorFak4.10.2018_Ca/100)
data4.10.2018_K<-data4.10.2018$K
KorFak4.10.2018_K<-KorFak4.10.2018$lDrift_K
K<- data4.10.2018_K-data4.10.2018_K*(KorFak4.10.2018_K/100)
data4.10.2018_P<-data4.10.2018$P
KorFak4.10.2018_P<-KorFak4.10.2018$lDrift_P
P<- data4.10.2018_P-data4.10.2018_P*(KorFak4.10.2018_P/100)
data4.10.2018_S<-data4.10.2018$S
KorFak4.10.2018_S<-KorFak4.10.2018$lDrift_S
S<- data4.10.2018_S-data4.10.2018_S*(KorFak4.10.2018_S/100)
data4.10.2018_Cl<-data4.10.2018$Cl
KorFak4.10.2018_Cl<-KorFak4.10.2018$lDrift_Cl
Cl<- data4.10.2018_Cl-data4.10.2018_Cl*(KorFak4.10.2018_Cl/100)
data4.10.2018_V<-data4.10.2018$V
KorFak4.10.2018_V<-KorFak4.10.2018$lDrift_V
V<- data4.10.2018_V-data4.10.2018_V*(KorFak4.10.2018_V/100)
data4.10.2018_Cr<-data4.10.2018$Cr
KorFak4.10.2018_Cr<-KorFak4.10.2018$lDrift_Cr
Cr<- data4.10.2018_Cr-data4.10.2018_Cr*(KorFak4.10.2018_Cr/100)
data4.10.2018_Ni<-data4.10.2018$Ni
KorFak4.10.2018_Ni<-KorFak4.10.2018$lDrift_Ni
Ni<- data4.10.2018_Ni-data4.10.2018_Ni*(KorFak4.10.2018_Ni/100)
data4.10.2018_Cu<-data4.10.2018$Cu
KorFak4.10.2018_Cu<-KorFak4.10.2018$lDrift_Cu
Cu<- data4.10.2018_Cu-data4.10.2018_Cu*(KorFak4.10.2018_Cu/100)
data4.10.2018_Zn<-data4.10.2018$Zn
KorFak4.10.2018_Zn<-KorFak4.10.2018$lDrift_Zn
Zn<- data4.10.2018_Zn-data4.10.2018_Zn*(KorFak4.10.2018_Zn/100)
data4.10.2018_As<-data4.10.2018$As
KorFak4.10.2018_As<-KorFak4.10.2018$lDrift_As
As<- data4.10.2018_As-data4.10.2018_As*(KorFak4.10.2018_As/100)
data4.10.2018_Se<-data4.10.2018$Se
KorFak4.10.2018_Se<-KorFak4.10.2018$lDrift_Se
Se<- data4.10.2018_Se-data4.10.2018_Se*(KorFak4.10.2018_Se/100)
data4.10.2018_Rb<-data4.10.2018$Rb
KorFak4.10.2018_Rb<-KorFak4.10.2018$lDrift_Rb
Rb<- data4.10.2018_Rb-data4.10.2018_Rb*(KorFak4.10.2018_Rb/100)
data4.10.2018_Sr<-data4.10.2018$Sr
KorFak4.10.2018_Sr<-KorFak4.10.2018$lDrift_Sr
Sr<- data4.10.2018_Sr-data4.10.2018_Sr*(KorFak4.10.2018_Sr/100)
data4.10.2018_Y<-data4.10.2018$Y
KorFak4.10.2018_Y<-KorFak4.10.2018$lDrift_Y
Y<- data4.10.2018_Y-data4.10.2018_Y*(KorFak4.10.2018_Y/100)
data4.10.2018_Zr<-data4.10.2018$Zr
KorFak4.10.2018_Zr<-KorFak4.10.2018$lDrift_Zr
Zr<- data4.10.2018_Zr-data4.10.2018_Zr*(KorFak4.10.2018_Zr/100)
data4.10.2018_Nb<-data4.10.2018$Nb
KorFak4.10.2018_Nb<-KorFak4.10.2018$lDrift_Nb
Nb<- data4.10.2018_Nb-data4.10.2018_Nb*(KorFak4.10.2018_Nb/100)
data4.10.2018_Mo<-data4.10.2018$Mo
KorFak4.10.2018_Mo<-KorFak4.10.2018$lDrift_Mo
Mo<- data4.10.2018_Mo-data4.10.2018_Mo*(KorFak4.10.2018_Mo/100)
data4.10.2018_Ag<-data4.10.2018$Ag
KorFak4.10.2018_Ag<-KorFak4.10.2018$lDrift_Ag
Ag<- data4.10.2018_Ag-data4.10.2018_Ag*(KorFak4.10.2018_Ag/100)
data4.10.2018_Cd<-data4.10.2018$Cd
KorFak4.10.2018_Cd<-KorFak4.10.2018$lDrift_Cd
Cd<- data4.10.2018_Cd-data4.10.2018_Cd*(KorFak4.10.2018_Cd/100)
data4.10.2018_Sn<-data4.10.2018$Sn
KorFak4.10.2018_Sn<-KorFak4.10.2018$lDrift_Sn
Sn<- data4.10.2018_Sn-data4.10.2018_Sn*(KorFak4.10.2018_Sn/100)
data4.10.2018_Sb<-data4.10.2018$Sb
KorFak4.10.2018_Sb<-KorFak4.10.2018$lDrift_Sb
Sb<- data4.10.2018_Sb-data4.10.2018_Sb*(KorFak4.10.2018_Sb/100)
data4.10.2018_Te<-data4.10.2018$Te
KorFak4.10.2018_Te<-KorFak4.10.2018$lDrift_Te
Te<- data4.10.2018_Te-data4.10.2018_Te*(KorFak4.10.2018_Te/100)
data4.10.2018_Cs<-data4.10.2018$Cs
KorFak4.10.2018_Cs<-KorFak4.10.2018$lDrift_Cs
Cs<- data4.10.2018_Cs-data4.10.2018_Cs*(KorFak4.10.2018_Cs/100)
data4.10.2018_Ba<-data4.10.2018$Ba
KorFak4.10.2018_Ba<-KorFak4.10.2018$lDrift_Ba
Ba<- data4.10.2018_Ba-data4.10.2018_Ba*(KorFak4.10.2018_Ba/100)
data4.10.2018_La<-data4.10.2018$La
KorFak4.10.2018_La<-KorFak4.10.2018$lDrift_La
La<- data4.10.2018_La-data4.10.2018_La*(KorFak4.10.2018_La/100)
data4.10.2018_Pb<-data4.10.2018$Pb
KorFak4.10.2018_Pb<-KorFak4.10.2018$lDrift_Pb
Pb<- data4.10.2018_Pb-data4.10.2018_Pb*(KorFak4.10.2018_Pb/100)
data4.10.2018_Th<-data4.10.2018$Th
KorFak4.10.2018_Th<-KorFak4.10.2018$lDrift_Th
Th<- data4.10.2018_Th-data4.10.2018_Th*(KorFak4.10.2018_Th/100)
data4.10.2018_U<-data4.10.2018$U
KorFak4.10.2018_U<-KorFak4.10.2018$lDrift_U
U<- data4.10.2018_U-data4.10.2018_U*(KorFak4.10.2018_U/100)
Daten_BB_lDrift_Kor4.10.2018<-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)7.2.9 l-Drift Korrektur des 13.11.2018
KorFak13.11.2018<-KorFak %>% filter(Datum_median=="13.11.2018")
data13.11.2018<-data %>% filter(Datum=="13.11.2018")
Probennummer<-data13.11.2018$Probennummer
Datum<-data13.11.2018$Datum
data13.11.2018_Si<-data13.11.2018$Si
KorFak13.11.2018_Si<-KorFak13.11.2018$lDrift_Si
Si<- data13.11.2018_Si-data13.11.2018_Si*(KorFak13.11.2018_Si/100)
data13.11.2018_Ti<-data13.11.2018$Ti
KorFak13.11.2018_Ti<-KorFak13.11.2018$lDrift_Ti
Ti<- data13.11.2018_Ti-data13.11.2018_Ti*(KorFak13.11.2018_Ti/100)
data13.11.2018_Al<-data13.11.2018$Al
KorFak13.11.2018_Al<-KorFak13.11.2018$lDrift_Al
Al<- data13.11.2018_Al-data13.11.2018_Al*(KorFak13.11.2018_Al/100)
data13.11.2018_Fe<-data13.11.2018$Fe
KorFak13.11.2018_Fe<-KorFak13.11.2018$lDrift_Fe
Fe<- data13.11.2018_Fe-data13.11.2018_Fe*(KorFak13.11.2018_Fe/100)
data13.11.2018_Mn<-data13.11.2018$Mn
KorFak13.11.2018_Mn<-KorFak13.11.2018$lDrift_Mn
Mn<- data13.11.2018_Mn-data13.11.2018_Mn*(KorFak13.11.2018_Mn/100)
data13.11.2018_Mg<-data13.11.2018$Mg
KorFak13.11.2018_Mg<-KorFak13.11.2018$lDrift_Mg
Mg<- data13.11.2018_Mg-data13.11.2018_Mg*(KorFak13.11.2018_Mg/100)
data13.11.2018_Ca<-data13.11.2018$Ca
KorFak13.11.2018_Ca<-KorFak13.11.2018$lDrift_Ca
Ca<- data13.11.2018_Ca-data13.11.2018_Ca*(KorFak13.11.2018_Ca/100)
data13.11.2018_K<-data13.11.2018$K
KorFak13.11.2018_K<-KorFak13.11.2018$lDrift_K
K<- data13.11.2018_K-data13.11.2018_K*(KorFak13.11.2018_K/100)
data13.11.2018_P<-data13.11.2018$P
KorFak13.11.2018_P<-KorFak13.11.2018$lDrift_P
P<- data13.11.2018_P-data13.11.2018_P*(KorFak13.11.2018_P/100)
data13.11.2018_S<-data13.11.2018$S
KorFak13.11.2018_S<-KorFak13.11.2018$lDrift_S
S<- data13.11.2018_S-data13.11.2018_S*(KorFak13.11.2018_S/100)
data13.11.2018_Cl<-data13.11.2018$Cl
KorFak13.11.2018_Cl<-KorFak13.11.2018$lDrift_Cl
Cl<- data13.11.2018_Cl-data13.11.2018_Cl*(KorFak13.11.2018_Cl/100)
data13.11.2018_V<-data13.11.2018$V
KorFak13.11.2018_V<-KorFak13.11.2018$lDrift_V
V<- data13.11.2018_V-data13.11.2018_V*(KorFak13.11.2018_V/100)
data13.11.2018_Cr<-data13.11.2018$Cr
KorFak13.11.2018_Cr<-KorFak13.11.2018$lDrift_Cr
Cr<- data13.11.2018_Cr-data13.11.2018_Cr*(KorFak13.11.2018_Cr/100)
data13.11.2018_Ni<-data13.11.2018$Ni
KorFak13.11.2018_Ni<-KorFak13.11.2018$lDrift_Ni
Ni<- data13.11.2018_Ni-data13.11.2018_Ni*(KorFak13.11.2018_Ni/100)
data13.11.2018_Cu<-data13.11.2018$Cu
KorFak13.11.2018_Cu<-KorFak13.11.2018$lDrift_Cu
Cu<- data13.11.2018_Cu-data13.11.2018_Cu*(KorFak13.11.2018_Cu/100)
data13.11.2018_Zn<-data13.11.2018$Zn
KorFak13.11.2018_Zn<-KorFak13.11.2018$lDrift_Zn
Zn<- data13.11.2018_Zn-data13.11.2018_Zn*(KorFak13.11.2018_Zn/100)
data13.11.2018_As<-data13.11.2018$As
KorFak13.11.2018_As<-KorFak13.11.2018$lDrift_As
As<- data13.11.2018_As-data13.11.2018_As*(KorFak13.11.2018_As/100)
data13.11.2018_Se<-data13.11.2018$Se
KorFak13.11.2018_Se<-KorFak13.11.2018$lDrift_Se
Se<- data13.11.2018_Se-data13.11.2018_Se*(KorFak13.11.2018_Se/100)
data13.11.2018_Rb<-data13.11.2018$Rb
KorFak13.11.2018_Rb<-KorFak13.11.2018$lDrift_Rb
Rb<- data13.11.2018_Rb-data13.11.2018_Rb*(KorFak13.11.2018_Rb/100)
data13.11.2018_Sr<-data13.11.2018$Sr
KorFak13.11.2018_Sr<-KorFak13.11.2018$lDrift_Sr
Sr<- data13.11.2018_Sr-data13.11.2018_Sr*(KorFak13.11.2018_Sr/100)
data13.11.2018_Y<-data13.11.2018$Y
KorFak13.11.2018_Y<-KorFak13.11.2018$lDrift_Y
Y<- data13.11.2018_Y-data13.11.2018_Y*(KorFak13.11.2018_Y/100)
data13.11.2018_Zr<-data13.11.2018$Zr
KorFak13.11.2018_Zr<-KorFak13.11.2018$lDrift_Zr
Zr<- data13.11.2018_Zr-data13.11.2018_Zr*(KorFak13.11.2018_Zr/100)
data13.11.2018_Nb<-data13.11.2018$Nb
KorFak13.11.2018_Nb<-KorFak13.11.2018$lDrift_Nb
Nb<- data13.11.2018_Nb-data13.11.2018_Nb*(KorFak13.11.2018_Nb/100)
data13.11.2018_Mo<-data13.11.2018$Mo
KorFak13.11.2018_Mo<-KorFak13.11.2018$lDrift_Mo
Mo<- data13.11.2018_Mo-data13.11.2018_Mo*(KorFak13.11.2018_Mo/100)
data13.11.2018_Ag<-data13.11.2018$Ag
KorFak13.11.2018_Ag<-KorFak13.11.2018$lDrift_Ag
Ag<- data13.11.2018_Ag-data13.11.2018_Ag*(KorFak13.11.2018_Ag/100)
data13.11.2018_Cd<-data13.11.2018$Cd
KorFak13.11.2018_Cd<-KorFak13.11.2018$lDrift_Cd
Cd<- data13.11.2018_Cd-data13.11.2018_Cd*(KorFak13.11.2018_Cd/100)
data13.11.2018_Sn<-data13.11.2018$Sn
KorFak13.11.2018_Sn<-KorFak13.11.2018$lDrift_Sn
Sn<- data13.11.2018_Sn-data13.11.2018_Sn*(KorFak13.11.2018_Sn/100)
data13.11.2018_Sb<-data13.11.2018$Sb
KorFak13.11.2018_Sb<-KorFak13.11.2018$lDrift_Sb
Sb<- data13.11.2018_Sb-data13.11.2018_Sb*(KorFak13.11.2018_Sb/100)
data13.11.2018_Te<-data13.11.2018$Te
KorFak13.11.2018_Te<-KorFak13.11.2018$lDrift_Te
Te<- data13.11.2018_Te-data13.11.2018_Te*(KorFak13.11.2018_Te/100)
data13.11.2018_Cs<-data13.11.2018$Cs
KorFak13.11.2018_Cs<-KorFak13.11.2018$lDrift_Cs
Cs<- data13.11.2018_Cs-data13.11.2018_Cs*(KorFak13.11.2018_Cs/100)
data13.11.2018_Ba<-data13.11.2018$Ba
KorFak13.11.2018_Ba<-KorFak13.11.2018$lDrift_Ba
Ba<- data13.11.2018_Ba-data13.11.2018_Ba*(KorFak13.11.2018_Ba/100)
data13.11.2018_La<-data13.11.2018$La
KorFak13.11.2018_La<-KorFak13.11.2018$lDrift_La
La<- data13.11.2018_La-data13.11.2018_La*(KorFak13.11.2018_La/100)
data13.11.2018_Pb<-data13.11.2018$Pb
KorFak13.11.2018_Pb<-KorFak13.11.2018$lDrift_Pb
Pb<- data13.11.2018_Pb-data13.11.2018_Pb*(KorFak13.11.2018_Pb/100)
data13.11.2018_Th<-data13.11.2018$Th
KorFak13.11.2018_Th<-KorFak13.11.2018$lDrift_Th
Th<- data13.11.2018_Th-data13.11.2018_Th*(KorFak13.11.2018_Th/100)
data13.11.2018_U<-data13.11.2018$U
KorFak13.11.2018_U<-KorFak13.11.2018$lDrift_U
U<- data13.11.2018_U-data13.11.2018_U*(KorFak13.11.2018_U/100)
Daten_BB_lDrift_Kor13.11.2018<-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)7.2.10 l-Drift Korrektur des 14.11.2018
KorFak14.11.2018<-KorFak %>% filter(Datum_median=="14.11.2018")
data14.11.2018<-data %>% filter(Datum=="14.11.2018")
Probennummer<-data14.11.2018$Probennummer
Datum<-data14.11.2018$Datum
data14.11.2018_Si<-data14.11.2018$Si
KorFak14.11.2018_Si<-KorFak14.11.2018$lDrift_Si
Si<- data14.11.2018_Si-data14.11.2018_Si*(KorFak14.11.2018_Si/100)
data14.11.2018_Ti<-data14.11.2018$Ti
KorFak14.11.2018_Ti<-KorFak14.11.2018$lDrift_Ti
Ti<- data14.11.2018_Ti-data14.11.2018_Ti*(KorFak14.11.2018_Ti/100)
data14.11.2018_Al<-data14.11.2018$Al
KorFak14.11.2018_Al<-KorFak14.11.2018$lDrift_Al
Al<- data14.11.2018_Al-data14.11.2018_Al*(KorFak14.11.2018_Al/100)
data14.11.2018_Fe<-data14.11.2018$Fe
KorFak14.11.2018_Fe<-KorFak14.11.2018$lDrift_Fe
Fe<- data14.11.2018_Fe-data14.11.2018_Fe*(KorFak14.11.2018_Fe/100)
data14.11.2018_Mn<-data14.11.2018$Mn
KorFak14.11.2018_Mn<-KorFak14.11.2018$lDrift_Mn
Mn<- data14.11.2018_Mn-data14.11.2018_Mn*(KorFak14.11.2018_Mn/100)
data14.11.2018_Mg<-data14.11.2018$Mg
KorFak14.11.2018_Mg<-KorFak14.11.2018$lDrift_Mg
Mg<- data14.11.2018_Mg-data14.11.2018_Mg*(KorFak14.11.2018_Mg/100)
data14.11.2018_Ca<-data14.11.2018$Ca
KorFak14.11.2018_Ca<-KorFak14.11.2018$lDrift_Ca
Ca<- data14.11.2018_Ca-data14.11.2018_Ca*(KorFak14.11.2018_Ca/100)
data14.11.2018_K<-data14.11.2018$K
KorFak14.11.2018_K<-KorFak14.11.2018$lDrift_K
K<- data14.11.2018_K-data14.11.2018_K*(KorFak14.11.2018_K/100)
data14.11.2018_P<-data14.11.2018$P
KorFak14.11.2018_P<-KorFak14.11.2018$lDrift_P
P<- data14.11.2018_P-data14.11.2018_P*(KorFak14.11.2018_P/100)
data14.11.2018_S<-data14.11.2018$S
KorFak14.11.2018_S<-KorFak14.11.2018$lDrift_S
S<- data14.11.2018_S-data14.11.2018_S*(KorFak14.11.2018_S/100)
data14.11.2018_Cl<-data14.11.2018$Cl
KorFak14.11.2018_Cl<-KorFak14.11.2018$lDrift_Cl
Cl<- data14.11.2018_Cl-data14.11.2018_Cl*(KorFak14.11.2018_Cl/100)
data14.11.2018_V<-data14.11.2018$V
KorFak14.11.2018_V<-KorFak14.11.2018$lDrift_V
V<- data14.11.2018_V-data14.11.2018_V*(KorFak14.11.2018_V/100)
data14.11.2018_Cr<-data14.11.2018$Cr
KorFak14.11.2018_Cr<-KorFak14.11.2018$lDrift_Cr
Cr<- data14.11.2018_Cr-data14.11.2018_Cr*(KorFak14.11.2018_Cr/100)
data14.11.2018_Ni<-data14.11.2018$Ni
KorFak14.11.2018_Ni<-KorFak14.11.2018$lDrift_Ni
Ni<- data14.11.2018_Ni-data14.11.2018_Ni*(KorFak14.11.2018_Ni/100)
data14.11.2018_Cu<-data14.11.2018$Cu
KorFak14.11.2018_Cu<-KorFak14.11.2018$lDrift_Cu
Cu<- data14.11.2018_Cu-data14.11.2018_Cu*(KorFak14.11.2018_Cu/100)
data14.11.2018_Zn<-data14.11.2018$Zn
KorFak14.11.2018_Zn<-KorFak14.11.2018$lDrift_Zn
Zn<- data14.11.2018_Zn-data14.11.2018_Zn*(KorFak14.11.2018_Zn/100)
data14.11.2018_As<-data14.11.2018$As
KorFak14.11.2018_As<-KorFak14.11.2018$lDrift_As
As<- data14.11.2018_As-data14.11.2018_As*(KorFak14.11.2018_As/100)
data14.11.2018_Se<-data14.11.2018$Se
KorFak14.11.2018_Se<-KorFak14.11.2018$lDrift_Se
Se<- data14.11.2018_Se-data14.11.2018_Se*(KorFak14.11.2018_Se/100)
data14.11.2018_Rb<-data14.11.2018$Rb
KorFak14.11.2018_Rb<-KorFak14.11.2018$lDrift_Rb
Rb<- data14.11.2018_Rb-data14.11.2018_Rb*(KorFak14.11.2018_Rb/100)
data14.11.2018_Sr<-data14.11.2018$Sr
KorFak14.11.2018_Sr<-KorFak14.11.2018$lDrift_Sr
Sr<- data14.11.2018_Sr-data14.11.2018_Sr*(KorFak14.11.2018_Sr/100)
data14.11.2018_Y<-data14.11.2018$Y
KorFak14.11.2018_Y<-KorFak14.11.2018$lDrift_Y
Y<- data14.11.2018_Y-data14.11.2018_Y*(KorFak14.11.2018_Y/100)
data14.11.2018_Zr<-data14.11.2018$Zr
KorFak14.11.2018_Zr<-KorFak14.11.2018$lDrift_Zr
Zr<- data14.11.2018_Zr-data14.11.2018_Zr*(KorFak14.11.2018_Zr/100)
data14.11.2018_Nb<-data14.11.2018$Nb
KorFak14.11.2018_Nb<-KorFak14.11.2018$lDrift_Nb
Nb<- data14.11.2018_Nb-data14.11.2018_Nb*(KorFak14.11.2018_Nb/100)
data14.11.2018_Mo<-data14.11.2018$Mo
KorFak14.11.2018_Mo<-KorFak14.11.2018$lDrift_Mo
Mo<- data14.11.2018_Mo-data14.11.2018_Mo*(KorFak14.11.2018_Mo/100)
data14.11.2018_Ag<-data14.11.2018$Ag
KorFak14.11.2018_Ag<-KorFak14.11.2018$lDrift_Ag
Ag<- data14.11.2018_Ag-data14.11.2018_Ag*(KorFak14.11.2018_Ag/100)
data14.11.2018_Cd<-data14.11.2018$Cd
KorFak14.11.2018_Cd<-KorFak14.11.2018$lDrift_Cd
Cd<- data14.11.2018_Cd-data14.11.2018_Cd*(KorFak14.11.2018_Cd/100)
data14.11.2018_Sn<-data14.11.2018$Sn
KorFak14.11.2018_Sn<-KorFak14.11.2018$lDrift_Sn
Sn<- data14.11.2018_Sn-data14.11.2018_Sn*(KorFak14.11.2018_Sn/100)
data14.11.2018_Sb<-data14.11.2018$Sb
KorFak14.11.2018_Sb<-KorFak14.11.2018$lDrift_Sb
Sb<- data14.11.2018_Sb-data14.11.2018_Sb*(KorFak14.11.2018_Sb/100)
data14.11.2018_Te<-data14.11.2018$Te
KorFak14.11.2018_Te<-KorFak14.11.2018$lDrift_Te
Te<- data14.11.2018_Te-data14.11.2018_Te*(KorFak14.11.2018_Te/100)
data14.11.2018_Cs<-data14.11.2018$Cs
KorFak14.11.2018_Cs<-KorFak14.11.2018$lDrift_Cs
Cs<- data14.11.2018_Cs-data14.11.2018_Cs*(KorFak14.11.2018_Cs/100)
data14.11.2018_Ba<-data14.11.2018$Ba
KorFak14.11.2018_Ba<-KorFak14.11.2018$lDrift_Ba
Ba<- data14.11.2018_Ba-data14.11.2018_Ba*(KorFak14.11.2018_Ba/100)
data14.11.2018_La<-data14.11.2018$La
KorFak14.11.2018_La<-KorFak14.11.2018$lDrift_La
La<- data14.11.2018_La-data14.11.2018_La*(KorFak14.11.2018_La/100)
data14.11.2018_Pb<-data14.11.2018$Pb
KorFak14.11.2018_Pb<-KorFak14.11.2018$lDrift_Pb
Pb<- data14.11.2018_Pb-data14.11.2018_Pb*(KorFak14.11.2018_Pb/100)
data14.11.2018_Th<-data14.11.2018$Th
KorFak14.11.2018_Th<-KorFak14.11.2018$lDrift_Th
Th<- data14.11.2018_Th-data14.11.2018_Th*(KorFak14.11.2018_Th/100)
data14.11.2018_U<-data14.11.2018$U
KorFak14.11.2018_U<-KorFak14.11.2018$lDrift_U
U<- data14.11.2018_U-data14.11.2018_U*(KorFak14.11.2018_U/100)
Daten_BB_lDrift_Kor14.11.2018<-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)7.2.11 l-Drift Korrektur des 15.11.2018
KorFak15.11.2018<-KorFak %>% filter(Datum_median=="15.11.2018")
data15.11.2018<-data %>% filter(Datum=="15.11.2018")
Probennummer<-data15.11.2018$Probennummer
Datum<-data15.11.2018$Datum
data15.11.2018_Si<-data15.11.2018$Si
KorFak15.11.2018_Si<-KorFak15.11.2018$lDrift_Si
Si<- data15.11.2018_Si-data15.11.2018_Si*(KorFak15.11.2018_Si/100)
data15.11.2018_Ti<-data15.11.2018$Ti
KorFak15.11.2018_Ti<-KorFak15.11.2018$lDrift_Ti
Ti<- data15.11.2018_Ti-data15.11.2018_Ti*(KorFak15.11.2018_Ti/100)
data15.11.2018_Al<-data15.11.2018$Al
KorFak15.11.2018_Al<-KorFak15.11.2018$lDrift_Al
Al<- data15.11.2018_Al-data15.11.2018_Al*(KorFak15.11.2018_Al/100)
data15.11.2018_Fe<-data15.11.2018$Fe
KorFak15.11.2018_Fe<-KorFak15.11.2018$lDrift_Fe
Fe<- data15.11.2018_Fe-data15.11.2018_Fe*(KorFak15.11.2018_Fe/100)
data15.11.2018_Mn<-data15.11.2018$Mn
KorFak15.11.2018_Mn<-KorFak15.11.2018$lDrift_Mn
Mn<- data15.11.2018_Mn-data15.11.2018_Mn*(KorFak15.11.2018_Mn/100)
data15.11.2018_Mg<-data15.11.2018$Mg
KorFak15.11.2018_Mg<-KorFak15.11.2018$lDrift_Mg
Mg<- data15.11.2018_Mg-data15.11.2018_Mg*(KorFak15.11.2018_Mg/100)
data15.11.2018_Ca<-data15.11.2018$Ca
KorFak15.11.2018_Ca<-KorFak15.11.2018$lDrift_Ca
Ca<- data15.11.2018_Ca-data15.11.2018_Ca*(KorFak15.11.2018_Ca/100)
data15.11.2018_K<-data15.11.2018$K
KorFak15.11.2018_K<-KorFak15.11.2018$lDrift_K
K<- data15.11.2018_K-data15.11.2018_K*(KorFak15.11.2018_K/100)
data15.11.2018_P<-data15.11.2018$P
KorFak15.11.2018_P<-KorFak15.11.2018$lDrift_P
P<- data15.11.2018_P-data15.11.2018_P*(KorFak15.11.2018_P/100)
data15.11.2018_S<-data15.11.2018$S
KorFak15.11.2018_S<-KorFak15.11.2018$lDrift_S
S<- data15.11.2018_S-data15.11.2018_S*(KorFak15.11.2018_S/100)
data15.11.2018_Cl<-data15.11.2018$Cl
KorFak15.11.2018_Cl<-KorFak15.11.2018$lDrift_Cl
Cl<- data15.11.2018_Cl-data15.11.2018_Cl*(KorFak15.11.2018_Cl/100)
data15.11.2018_V<-data15.11.2018$V
KorFak15.11.2018_V<-KorFak15.11.2018$lDrift_V
V<- data15.11.2018_V-data15.11.2018_V*(KorFak15.11.2018_V/100)
data15.11.2018_Cr<-data15.11.2018$Cr
KorFak15.11.2018_Cr<-KorFak15.11.2018$lDrift_Cr
Cr<- data15.11.2018_Cr-data15.11.2018_Cr*(KorFak15.11.2018_Cr/100)
data15.11.2018_Ni<-data15.11.2018$Ni
KorFak15.11.2018_Ni<-KorFak15.11.2018$lDrift_Ni
Ni<- data15.11.2018_Ni-data15.11.2018_Ni*(KorFak15.11.2018_Ni/100)
data15.11.2018_Cu<-data15.11.2018$Cu
KorFak15.11.2018_Cu<-KorFak15.11.2018$lDrift_Cu
Cu<- data15.11.2018_Cu-data15.11.2018_Cu*(KorFak15.11.2018_Cu/100)
data15.11.2018_Zn<-data15.11.2018$Zn
KorFak15.11.2018_Zn<-KorFak15.11.2018$lDrift_Zn
Zn<- data15.11.2018_Zn-data15.11.2018_Zn*(KorFak15.11.2018_Zn/100)
data15.11.2018_As<-data15.11.2018$As
KorFak15.11.2018_As<-KorFak15.11.2018$lDrift_As
As<- data15.11.2018_As-data15.11.2018_As*(KorFak15.11.2018_As/100)
data15.11.2018_Se<-data15.11.2018$Se
KorFak15.11.2018_Se<-KorFak15.11.2018$lDrift_Se
Se<- data15.11.2018_Se-data15.11.2018_Se*(KorFak15.11.2018_Se/100)
data15.11.2018_Rb<-data15.11.2018$Rb
KorFak15.11.2018_Rb<-KorFak15.11.2018$lDrift_Rb
Rb<- data15.11.2018_Rb-data15.11.2018_Rb*(KorFak15.11.2018_Rb/100)
data15.11.2018_Sr<-data15.11.2018$Sr
KorFak15.11.2018_Sr<-KorFak15.11.2018$lDrift_Sr
Sr<- data15.11.2018_Sr-data15.11.2018_Sr*(KorFak15.11.2018_Sr/100)
data15.11.2018_Y<-data15.11.2018$Y
KorFak15.11.2018_Y<-KorFak15.11.2018$lDrift_Y
Y<- data15.11.2018_Y-data15.11.2018_Y*(KorFak15.11.2018_Y/100)
data15.11.2018_Zr<-data15.11.2018$Zr
KorFak15.11.2018_Zr<-KorFak15.11.2018$lDrift_Zr
Zr<- data15.11.2018_Zr-data15.11.2018_Zr*(KorFak15.11.2018_Zr/100)
data15.11.2018_Nb<-data15.11.2018$Nb
KorFak15.11.2018_Nb<-KorFak15.11.2018$lDrift_Nb
Nb<- data15.11.2018_Nb-data15.11.2018_Nb*(KorFak15.11.2018_Nb/100)
data15.11.2018_Mo<-data15.11.2018$Mo
KorFak15.11.2018_Mo<-KorFak15.11.2018$lDrift_Mo
Mo<- data15.11.2018_Mo-data15.11.2018_Mo*(KorFak15.11.2018_Mo/100)
data15.11.2018_Ag<-data15.11.2018$Ag
KorFak15.11.2018_Ag<-KorFak15.11.2018$lDrift_Ag
Ag<- data15.11.2018_Ag-data15.11.2018_Ag*(KorFak15.11.2018_Ag/100)
data15.11.2018_Cd<-data15.11.2018$Cd
KorFak15.11.2018_Cd<-KorFak15.11.2018$lDrift_Cd
Cd<- data15.11.2018_Cd-data15.11.2018_Cd*(KorFak15.11.2018_Cd/100)
data15.11.2018_Sn<-data15.11.2018$Sn
KorFak15.11.2018_Sn<-KorFak15.11.2018$lDrift_Sn
Sn<- data15.11.2018_Sn-data15.11.2018_Sn*(KorFak15.11.2018_Sn/100)
data15.11.2018_Sb<-data15.11.2018$Sb
KorFak15.11.2018_Sb<-KorFak15.11.2018$lDrift_Sb
Sb<- data15.11.2018_Sb-data15.11.2018_Sb*(KorFak15.11.2018_Sb/100)
data15.11.2018_Te<-data15.11.2018$Te
KorFak15.11.2018_Te<-KorFak15.11.2018$lDrift_Te
Te<- data15.11.2018_Te-data15.11.2018_Te*(KorFak15.11.2018_Te/100)
data15.11.2018_Cs<-data15.11.2018$Cs
KorFak15.11.2018_Cs<-KorFak15.11.2018$lDrift_Cs
Cs<- data15.11.2018_Cs-data15.11.2018_Cs*(KorFak15.11.2018_Cs/100)
data15.11.2018_Ba<-data15.11.2018$Ba
KorFak15.11.2018_Ba<-KorFak15.11.2018$lDrift_Ba
Ba<- data15.11.2018_Ba-data15.11.2018_Ba*(KorFak15.11.2018_Ba/100)
data15.11.2018_La<-data15.11.2018$La
KorFak15.11.2018_La<-KorFak15.11.2018$lDrift_La
La<- data15.11.2018_La-data15.11.2018_La*(KorFak15.11.2018_La/100)
data15.11.2018_Pb<-data15.11.2018$Pb
KorFak15.11.2018_Pb<-KorFak15.11.2018$lDrift_Pb
Pb<- data15.11.2018_Pb-data15.11.2018_Pb*(KorFak15.11.2018_Pb/100)
data15.11.2018_Th<-data15.11.2018$Th
KorFak15.11.2018_Th<-KorFak15.11.2018$lDrift_Th
Th<- data15.11.2018_Th-data15.11.2018_Th*(KorFak15.11.2018_Th/100)
data15.11.2018_U<-data15.11.2018$U
KorFak15.11.2018_U<-KorFak15.11.2018$lDrift_U
U<- data15.11.2018_U-data15.11.2018_U*(KorFak15.11.2018_U/100)
Daten_BB_lDrift_Kor15.11.2018<-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)7.2.12 l-Drift Korrektur des 16.11.2018
KorFak16.11.2018<-KorFak %>% filter(Datum_median=="16.11.2018")
data16.11.2018<-data %>% filter(Datum=="16.11.2018")
Probennummer<-data16.11.2018$Probennummer
Datum<-data16.11.2018$Datum
data16.11.2018_Si<-data16.11.2018$Si
KorFak16.11.2018_Si<-KorFak16.11.2018$lDrift_Si
Si<- data16.11.2018_Si-data16.11.2018_Si*(KorFak16.11.2018_Si/100)
data16.11.2018_Ti<-data16.11.2018$Ti
KorFak16.11.2018_Ti<-KorFak16.11.2018$lDrift_Ti
Ti<- data16.11.2018_Ti-data16.11.2018_Ti*(KorFak16.11.2018_Ti/100)
data16.11.2018_Al<-data16.11.2018$Al
KorFak16.11.2018_Al<-KorFak16.11.2018$lDrift_Al
Al<- data16.11.2018_Al-data16.11.2018_Al*(KorFak16.11.2018_Al/100)
data16.11.2018_Fe<-data16.11.2018$Fe
KorFak16.11.2018_Fe<-KorFak16.11.2018$lDrift_Fe
Fe<- data16.11.2018_Fe-data16.11.2018_Fe*(KorFak16.11.2018_Fe/100)
data16.11.2018_Mn<-data16.11.2018$Mn
KorFak16.11.2018_Mn<-KorFak16.11.2018$lDrift_Mn
Mn<- data16.11.2018_Mn-data16.11.2018_Mn*(KorFak16.11.2018_Mn/100)
data16.11.2018_Mg<-data16.11.2018$Mg
KorFak16.11.2018_Mg<-KorFak16.11.2018$lDrift_Mg
Mg<- data16.11.2018_Mg-data16.11.2018_Mg*(KorFak16.11.2018_Mg/100)
data16.11.2018_Ca<-data16.11.2018$Ca
KorFak16.11.2018_Ca<-KorFak16.11.2018$lDrift_Ca
Ca<- data16.11.2018_Ca-data16.11.2018_Ca*(KorFak16.11.2018_Ca/100)
data16.11.2018_K<-data16.11.2018$K
KorFak16.11.2018_K<-KorFak16.11.2018$lDrift_K
K<- data16.11.2018_K-data16.11.2018_K*(KorFak16.11.2018_K/100)
data16.11.2018_P<-data16.11.2018$P
KorFak16.11.2018_P<-KorFak16.11.2018$lDrift_P
P<- data16.11.2018_P-data16.11.2018_P*(KorFak16.11.2018_P/100)
data16.11.2018_S<-data16.11.2018$S
KorFak16.11.2018_S<-KorFak16.11.2018$lDrift_S
S<- data16.11.2018_S-data16.11.2018_S*(KorFak16.11.2018_S/100)
data16.11.2018_Cl<-data16.11.2018$Cl
KorFak16.11.2018_Cl<-KorFak16.11.2018$lDrift_Cl
Cl<- data16.11.2018_Cl-data16.11.2018_Cl*(KorFak16.11.2018_Cl/100)
data16.11.2018_V<-data16.11.2018$V
KorFak16.11.2018_V<-KorFak16.11.2018$lDrift_V
V<- data16.11.2018_V-data16.11.2018_V*(KorFak16.11.2018_V/100)
data16.11.2018_Cr<-data16.11.2018$Cr
KorFak16.11.2018_Cr<-KorFak16.11.2018$lDrift_Cr
Cr<- data16.11.2018_Cr-data16.11.2018_Cr*(KorFak16.11.2018_Cr/100)
data16.11.2018_Ni<-data16.11.2018$Ni
KorFak16.11.2018_Ni<-KorFak16.11.2018$lDrift_Ni
Ni<- data16.11.2018_Ni-data16.11.2018_Ni*(KorFak16.11.2018_Ni/100)
data16.11.2018_Cu<-data16.11.2018$Cu
KorFak16.11.2018_Cu<-KorFak16.11.2018$lDrift_Cu
Cu<- data16.11.2018_Cu-data16.11.2018_Cu*(KorFak16.11.2018_Cu/100)
data16.11.2018_Zn<-data16.11.2018$Zn
KorFak16.11.2018_Zn<-KorFak16.11.2018$lDrift_Zn
Zn<- data16.11.2018_Zn-data16.11.2018_Zn*(KorFak16.11.2018_Zn/100)
data16.11.2018_As<-data16.11.2018$As
KorFak16.11.2018_As<-KorFak16.11.2018$lDrift_As
As<- data16.11.2018_As-data16.11.2018_As*(KorFak16.11.2018_As/100)
data16.11.2018_Se<-data16.11.2018$Se
KorFak16.11.2018_Se<-KorFak16.11.2018$lDrift_Se
Se<- data16.11.2018_Se-data16.11.2018_Se*(KorFak16.11.2018_Se/100)
data16.11.2018_Rb<-data16.11.2018$Rb
KorFak16.11.2018_Rb<-KorFak16.11.2018$lDrift_Rb
Rb<- data16.11.2018_Rb-data16.11.2018_Rb*(KorFak16.11.2018_Rb/100)
data16.11.2018_Sr<-data16.11.2018$Sr
KorFak16.11.2018_Sr<-KorFak16.11.2018$lDrift_Sr
Sr<- data16.11.2018_Sr-data16.11.2018_Sr*(KorFak16.11.2018_Sr/100)
data16.11.2018_Y<-data16.11.2018$Y
KorFak16.11.2018_Y<-KorFak16.11.2018$lDrift_Y
Y<- data16.11.2018_Y-data16.11.2018_Y*(KorFak16.11.2018_Y/100)
data16.11.2018_Zr<-data16.11.2018$Zr
KorFak16.11.2018_Zr<-KorFak16.11.2018$lDrift_Zr
Zr<- data16.11.2018_Zr-data16.11.2018_Zr*(KorFak16.11.2018_Zr/100)
data16.11.2018_Nb<-data16.11.2018$Nb
KorFak16.11.2018_Nb<-KorFak16.11.2018$lDrift_Nb
Nb<- data16.11.2018_Nb-data16.11.2018_Nb*(KorFak16.11.2018_Nb/100)
data16.11.2018_Mo<-data16.11.2018$Mo
KorFak16.11.2018_Mo<-KorFak16.11.2018$lDrift_Mo
Mo<- data16.11.2018_Mo-data16.11.2018_Mo*(KorFak16.11.2018_Mo/100)
data16.11.2018_Ag<-data16.11.2018$Ag
KorFak16.11.2018_Ag<-KorFak16.11.2018$lDrift_Ag
Ag<- data16.11.2018_Ag-data16.11.2018_Ag*(KorFak16.11.2018_Ag/100)
data16.11.2018_Cd<-data16.11.2018$Cd
KorFak16.11.2018_Cd<-KorFak16.11.2018$lDrift_Cd
Cd<- data16.11.2018_Cd-data16.11.2018_Cd*(KorFak16.11.2018_Cd/100)
data16.11.2018_Sn<-data16.11.2018$Sn
KorFak16.11.2018_Sn<-KorFak16.11.2018$lDrift_Sn
Sn<- data16.11.2018_Sn-data16.11.2018_Sn*(KorFak16.11.2018_Sn/100)
data16.11.2018_Sb<-data16.11.2018$Sb
KorFak16.11.2018_Sb<-KorFak16.11.2018$lDrift_Sb
Sb<- data16.11.2018_Sb-data16.11.2018_Sb*(KorFak16.11.2018_Sb/100)
data16.11.2018_Te<-data16.11.2018$Te
KorFak16.11.2018_Te<-KorFak16.11.2018$lDrift_Te
Te<- data16.11.2018_Te-data16.11.2018_Te*(KorFak16.11.2018_Te/100)
data16.11.2018_Cs<-data16.11.2018$Cs
KorFak16.11.2018_Cs<-KorFak16.11.2018$lDrift_Cs
Cs<- data16.11.2018_Cs-data16.11.2018_Cs*(KorFak16.11.2018_Cs/100)
data16.11.2018_Ba<-data16.11.2018$Ba
KorFak16.11.2018_Ba<-KorFak16.11.2018$lDrift_Ba
Ba<- data16.11.2018_Ba-data16.11.2018_Ba*(KorFak16.11.2018_Ba/100)
data16.11.2018_La<-data16.11.2018$La
KorFak16.11.2018_La<-KorFak16.11.2018$lDrift_La
La<- data16.11.2018_La-data16.11.2018_La*(KorFak16.11.2018_La/100)
data16.11.2018_Pb<-data16.11.2018$Pb
KorFak16.11.2018_Pb<-KorFak16.11.2018$lDrift_Pb
Pb<- data16.11.2018_Pb-data16.11.2018_Pb*(KorFak16.11.2018_Pb/100)
data16.11.2018_Th<-data16.11.2018$Th
KorFak16.11.2018_Th<-KorFak16.11.2018$lDrift_Th
Th<- data16.11.2018_Th-data16.11.2018_Th*(KorFak16.11.2018_Th/100)
data16.11.2018_U<-data16.11.2018$U
KorFak16.11.2018_U<-KorFak16.11.2018$lDrift_U
U<- data16.11.2018_U-data16.11.2018_U*(KorFak16.11.2018_U/100)
Daten_BB_lDrift_Kor16.11.2018<-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)7.2.13 l-Drift Korrektur des 17.11.2018
KorFak17.11.2018<-KorFak %>% filter(Datum_median=="17.11.2018")
data17.11.2018<-data %>% filter(Datum=="17.11.2018")
Probennummer<-data17.11.2018$Probennummer
Datum<-data17.11.2018$Datum
data17.11.2018_Si<-data17.11.2018$Si
KorFak17.11.2018_Si<-KorFak17.11.2018$lDrift_Si
Si<- data17.11.2018_Si-data17.11.2018_Si*(KorFak17.11.2018_Si/100)
data17.11.2018_Ti<-data17.11.2018$Ti
KorFak17.11.2018_Ti<-KorFak17.11.2018$lDrift_Ti
Ti<- data17.11.2018_Ti-data17.11.2018_Ti*(KorFak17.11.2018_Ti/100)
data17.11.2018_Al<-data17.11.2018$Al
KorFak17.11.2018_Al<-KorFak17.11.2018$lDrift_Al
Al<- data17.11.2018_Al-data17.11.2018_Al*(KorFak17.11.2018_Al/100)
data17.11.2018_Fe<-data17.11.2018$Fe
KorFak17.11.2018_Fe<-KorFak17.11.2018$lDrift_Fe
Fe<- data17.11.2018_Fe-data17.11.2018_Fe*(KorFak17.11.2018_Fe/100)
data17.11.2018_Mn<-data17.11.2018$Mn
KorFak17.11.2018_Mn<-KorFak17.11.2018$lDrift_Mn
Mn<- data17.11.2018_Mn-data17.11.2018_Mn*(KorFak17.11.2018_Mn/100)
data17.11.2018_Mg<-data17.11.2018$Mg
KorFak17.11.2018_Mg<-KorFak17.11.2018$lDrift_Mg
Mg<- data17.11.2018_Mg-data17.11.2018_Mg*(KorFak17.11.2018_Mg/100)
data17.11.2018_Ca<-data17.11.2018$Ca
KorFak17.11.2018_Ca<-KorFak17.11.2018$lDrift_Ca
Ca<- data17.11.2018_Ca-data17.11.2018_Ca*(KorFak17.11.2018_Ca/100)
data17.11.2018_K<-data17.11.2018$K
KorFak17.11.2018_K<-KorFak17.11.2018$lDrift_K
K<- data17.11.2018_K-data17.11.2018_K*(KorFak17.11.2018_K/100)
data17.11.2018_P<-data17.11.2018$P
KorFak17.11.2018_P<-KorFak17.11.2018$lDrift_P
P<- data17.11.2018_P-data17.11.2018_P*(KorFak17.11.2018_P/100)
data17.11.2018_S<-data17.11.2018$S
KorFak17.11.2018_S<-KorFak17.11.2018$lDrift_S
S<- data17.11.2018_S-data17.11.2018_S*(KorFak17.11.2018_S/100)
data17.11.2018_Cl<-data17.11.2018$Cl
KorFak17.11.2018_Cl<-KorFak17.11.2018$lDrift_Cl
Cl<- data17.11.2018_Cl-data17.11.2018_Cl*(KorFak17.11.2018_Cl/100)
data17.11.2018_V<-data17.11.2018$V
KorFak17.11.2018_V<-KorFak17.11.2018$lDrift_V
V<- data17.11.2018_V-data17.11.2018_V*(KorFak17.11.2018_V/100)
data17.11.2018_Cr<-data17.11.2018$Cr
KorFak17.11.2018_Cr<-KorFak17.11.2018$lDrift_Cr
Cr<- data17.11.2018_Cr-data17.11.2018_Cr*(KorFak17.11.2018_Cr/100)
data17.11.2018_Ni<-data17.11.2018$Ni
KorFak17.11.2018_Ni<-KorFak17.11.2018$lDrift_Ni
Ni<- data17.11.2018_Ni-data17.11.2018_Ni*(KorFak17.11.2018_Ni/100)
data17.11.2018_Cu<-data17.11.2018$Cu
KorFak17.11.2018_Cu<-KorFak17.11.2018$lDrift_Cu
Cu<- data17.11.2018_Cu-data17.11.2018_Cu*(KorFak17.11.2018_Cu/100)
data17.11.2018_Zn<-data17.11.2018$Zn
KorFak17.11.2018_Zn<-KorFak17.11.2018$lDrift_Zn
Zn<- data17.11.2018_Zn-data17.11.2018_Zn*(KorFak17.11.2018_Zn/100)
data17.11.2018_As<-data17.11.2018$As
KorFak17.11.2018_As<-KorFak17.11.2018$lDrift_As
As<- data17.11.2018_As-data17.11.2018_As*(KorFak17.11.2018_As/100)
data17.11.2018_Se<-data17.11.2018$Se
KorFak17.11.2018_Se<-KorFak17.11.2018$lDrift_Se
Se<- data17.11.2018_Se-data17.11.2018_Se*(KorFak17.11.2018_Se/100)
data17.11.2018_Rb<-data17.11.2018$Rb
KorFak17.11.2018_Rb<-KorFak17.11.2018$lDrift_Rb
Rb<- data17.11.2018_Rb-data17.11.2018_Rb*(KorFak17.11.2018_Rb/100)
data17.11.2018_Sr<-data17.11.2018$Sr
KorFak17.11.2018_Sr<-KorFak17.11.2018$lDrift_Sr
Sr<- data17.11.2018_Sr-data17.11.2018_Sr*(KorFak17.11.2018_Sr/100)
data17.11.2018_Y<-data17.11.2018$Y
KorFak17.11.2018_Y<-KorFak17.11.2018$lDrift_Y
Y<- data17.11.2018_Y-data17.11.2018_Y*(KorFak17.11.2018_Y/100)
data17.11.2018_Zr<-data17.11.2018$Zr
KorFak17.11.2018_Zr<-KorFak17.11.2018$lDrift_Zr
Zr<- data17.11.2018_Zr-data17.11.2018_Zr*(KorFak17.11.2018_Zr/100)
data17.11.2018_Nb<-data17.11.2018$Nb
KorFak17.11.2018_Nb<-KorFak17.11.2018$lDrift_Nb
Nb<- data17.11.2018_Nb-data17.11.2018_Nb*(KorFak17.11.2018_Nb/100)
data17.11.2018_Mo<-data17.11.2018$Mo
KorFak17.11.2018_Mo<-KorFak17.11.2018$lDrift_Mo
Mo<- data17.11.2018_Mo-data17.11.2018_Mo*(KorFak17.11.2018_Mo/100)
data17.11.2018_Ag<-data17.11.2018$Ag
KorFak17.11.2018_Ag<-KorFak17.11.2018$lDrift_Ag
Ag<- data17.11.2018_Ag-data17.11.2018_Ag*(KorFak17.11.2018_Ag/100)
data17.11.2018_Cd<-data17.11.2018$Cd
KorFak17.11.2018_Cd<-KorFak17.11.2018$lDrift_Cd
Cd<- data17.11.2018_Cd-data17.11.2018_Cd*(KorFak17.11.2018_Cd/100)
data17.11.2018_Sn<-data17.11.2018$Sn
KorFak17.11.2018_Sn<-KorFak17.11.2018$lDrift_Sn
Sn<- data17.11.2018_Sn-data17.11.2018_Sn*(KorFak17.11.2018_Sn/100)
data17.11.2018_Sb<-data17.11.2018$Sb
KorFak17.11.2018_Sb<-KorFak17.11.2018$lDrift_Sb
Sb<- data17.11.2018_Sb-data17.11.2018_Sb*(KorFak17.11.2018_Sb/100)
data17.11.2018_Te<-data17.11.2018$Te
KorFak17.11.2018_Te<-KorFak17.11.2018$lDrift_Te
Te<- data17.11.2018_Te-data17.11.2018_Te*(KorFak17.11.2018_Te/100)
data17.11.2018_Cs<-data17.11.2018$Cs
KorFak17.11.2018_Cs<-KorFak17.11.2018$lDrift_Cs
Cs<- data17.11.2018_Cs-data17.11.2018_Cs*(KorFak17.11.2018_Cs/100)
data17.11.2018_Ba<-data17.11.2018$Ba
KorFak17.11.2018_Ba<-KorFak17.11.2018$lDrift_Ba
Ba<- data17.11.2018_Ba-data17.11.2018_Ba*(KorFak17.11.2018_Ba/100)
data17.11.2018_La<-data17.11.2018$La
KorFak17.11.2018_La<-KorFak17.11.2018$lDrift_La
La<- data17.11.2018_La-data17.11.2018_La*(KorFak17.11.2018_La/100)
data17.11.2018_Pb<-data17.11.2018$Pb
KorFak17.11.2018_Pb<-KorFak17.11.2018$lDrift_Pb
Pb<- data17.11.2018_Pb-data17.11.2018_Pb*(KorFak17.11.2018_Pb/100)
data17.11.2018_Th<-data17.11.2018$Th
KorFak17.11.2018_Th<-KorFak17.11.2018$lDrift_Th
Th<- data17.11.2018_Th-data17.11.2018_Th*(KorFak17.11.2018_Th/100)
data17.11.2018_U<-data17.11.2018$U
KorFak17.11.2018_U<-KorFak17.11.2018$lDrift_U
U<- data17.11.2018_U-data17.11.2018_U*(KorFak17.11.2018_U/100)
Daten_BB_lDrift_Kor17.11.2018<-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)7.2.14 l-Drift Korrektur des 18.11.2018
KorFak18.11.2018<-KorFak %>% filter(Datum_median=="18.11.2018")
data18.11.2018<-data %>% filter(Datum=="18.11.2018")
Probennummer<-data18.11.2018$Probennummer
Datum<-data18.11.2018$Datum
data18.11.2018_Si<-data18.11.2018$Si
KorFak18.11.2018_Si<-KorFak18.11.2018$lDrift_Si
Si<- data18.11.2018_Si-data18.11.2018_Si*(KorFak18.11.2018_Si/100)
data18.11.2018_Ti<-data18.11.2018$Ti
KorFak18.11.2018_Ti<-KorFak18.11.2018$lDrift_Ti
Ti<- data18.11.2018_Ti-data18.11.2018_Ti*(KorFak18.11.2018_Ti/100)
data18.11.2018_Al<-data18.11.2018$Al
KorFak18.11.2018_Al<-KorFak18.11.2018$lDrift_Al
Al<- data18.11.2018_Al-data18.11.2018_Al*(KorFak18.11.2018_Al/100)
data18.11.2018_Fe<-data18.11.2018$Fe
KorFak18.11.2018_Fe<-KorFak18.11.2018$lDrift_Fe
Fe<- data18.11.2018_Fe-data18.11.2018_Fe*(KorFak18.11.2018_Fe/100)
data18.11.2018_Mn<-data18.11.2018$Mn
KorFak18.11.2018_Mn<-KorFak18.11.2018$lDrift_Mn
Mn<- data18.11.2018_Mn-data18.11.2018_Mn*(KorFak18.11.2018_Mn/100)
data18.11.2018_Mg<-data18.11.2018$Mg
KorFak18.11.2018_Mg<-KorFak18.11.2018$lDrift_Mg
Mg<- data18.11.2018_Mg-data18.11.2018_Mg*(KorFak18.11.2018_Mg/100)
data18.11.2018_Ca<-data18.11.2018$Ca
KorFak18.11.2018_Ca<-KorFak18.11.2018$lDrift_Ca
Ca<- data18.11.2018_Ca-data18.11.2018_Ca*(KorFak18.11.2018_Ca/100)
data18.11.2018_K<-data18.11.2018$K
KorFak18.11.2018_K<-KorFak18.11.2018$lDrift_K
K<- data18.11.2018_K-data18.11.2018_K*(KorFak18.11.2018_K/100)
data18.11.2018_P<-data18.11.2018$P
KorFak18.11.2018_P<-KorFak18.11.2018$lDrift_P
P<- data18.11.2018_P-data18.11.2018_P*(KorFak18.11.2018_P/100)
data18.11.2018_S<-data18.11.2018$S
KorFak18.11.2018_S<-KorFak18.11.2018$lDrift_S
S<- data18.11.2018_S-data18.11.2018_S*(KorFak18.11.2018_S/100)
data18.11.2018_Cl<-data18.11.2018$Cl
KorFak18.11.2018_Cl<-KorFak18.11.2018$lDrift_Cl
Cl<- data18.11.2018_Cl-data18.11.2018_Cl*(KorFak18.11.2018_Cl/100)
data18.11.2018_V<-data18.11.2018$V
KorFak18.11.2018_V<-KorFak18.11.2018$lDrift_V
V<- data18.11.2018_V-data18.11.2018_V*(KorFak18.11.2018_V/100)
data18.11.2018_Cr<-data18.11.2018$Cr
KorFak18.11.2018_Cr<-KorFak18.11.2018$lDrift_Cr
Cr<- data18.11.2018_Cr-data18.11.2018_Cr*(KorFak18.11.2018_Cr/100)
data18.11.2018_Ni<-data18.11.2018$Ni
KorFak18.11.2018_Ni<-KorFak18.11.2018$lDrift_Ni
Ni<- data18.11.2018_Ni-data18.11.2018_Ni*(KorFak18.11.2018_Ni/100)
data18.11.2018_Cu<-data18.11.2018$Cu
KorFak18.11.2018_Cu<-KorFak18.11.2018$lDrift_Cu
Cu<- data18.11.2018_Cu-data18.11.2018_Cu*(KorFak18.11.2018_Cu/100)
data18.11.2018_Zn<-data18.11.2018$Zn
KorFak18.11.2018_Zn<-KorFak18.11.2018$lDrift_Zn
Zn<- data18.11.2018_Zn-data18.11.2018_Zn*(KorFak18.11.2018_Zn/100)
data18.11.2018_As<-data18.11.2018$As
KorFak18.11.2018_As<-KorFak18.11.2018$lDrift_As
As<- data18.11.2018_As-data18.11.2018_As*(KorFak18.11.2018_As/100)
data18.11.2018_Se<-data18.11.2018$Se
KorFak18.11.2018_Se<-KorFak18.11.2018$lDrift_Se
Se<- data18.11.2018_Se-data18.11.2018_Se*(KorFak18.11.2018_Se/100)
data18.11.2018_Rb<-data18.11.2018$Rb
KorFak18.11.2018_Rb<-KorFak18.11.2018$lDrift_Rb
Rb<- data18.11.2018_Rb-data18.11.2018_Rb*(KorFak18.11.2018_Rb/100)
data18.11.2018_Sr<-data18.11.2018$Sr
KorFak18.11.2018_Sr<-KorFak18.11.2018$lDrift_Sr
Sr<- data18.11.2018_Sr-data18.11.2018_Sr*(KorFak18.11.2018_Sr/100)
data18.11.2018_Y<-data18.11.2018$Y
KorFak18.11.2018_Y<-KorFak18.11.2018$lDrift_Y
Y<- data18.11.2018_Y-data18.11.2018_Y*(KorFak18.11.2018_Y/100)
data18.11.2018_Zr<-data18.11.2018$Zr
KorFak18.11.2018_Zr<-KorFak18.11.2018$lDrift_Zr
Zr<- data18.11.2018_Zr-data18.11.2018_Zr*(KorFak18.11.2018_Zr/100)
data18.11.2018_Nb<-data18.11.2018$Nb
KorFak18.11.2018_Nb<-KorFak18.11.2018$lDrift_Nb
Nb<- data18.11.2018_Nb-data18.11.2018_Nb*(KorFak18.11.2018_Nb/100)
data18.11.2018_Mo<-data18.11.2018$Mo
KorFak18.11.2018_Mo<-KorFak18.11.2018$lDrift_Mo
Mo<- data18.11.2018_Mo-data18.11.2018_Mo*(KorFak18.11.2018_Mo/100)
data18.11.2018_Ag<-data18.11.2018$Ag
KorFak18.11.2018_Ag<-KorFak18.11.2018$lDrift_Ag
Ag<- data18.11.2018_Ag-data18.11.2018_Ag*(KorFak18.11.2018_Ag/100)
data18.11.2018_Cd<-data18.11.2018$Cd
KorFak18.11.2018_Cd<-KorFak18.11.2018$lDrift_Cd
Cd<- data18.11.2018_Cd-data18.11.2018_Cd*(KorFak18.11.2018_Cd/100)
data18.11.2018_Sn<-data18.11.2018$Sn
KorFak18.11.2018_Sn<-KorFak18.11.2018$lDrift_Sn
Sn<- data18.11.2018_Sn-data18.11.2018_Sn*(KorFak18.11.2018_Sn/100)
data18.11.2018_Sb<-data18.11.2018$Sb
KorFak18.11.2018_Sb<-KorFak18.11.2018$lDrift_Sb
Sb<- data18.11.2018_Sb-data18.11.2018_Sb*(KorFak18.11.2018_Sb/100)
data18.11.2018_Te<-data18.11.2018$Te
KorFak18.11.2018_Te<-KorFak18.11.2018$lDrift_Te
Te<- data18.11.2018_Te-data18.11.2018_Te*(KorFak18.11.2018_Te/100)
data18.11.2018_Cs<-data18.11.2018$Cs
KorFak18.11.2018_Cs<-KorFak18.11.2018$lDrift_Cs
Cs<- data18.11.2018_Cs-data18.11.2018_Cs*(KorFak18.11.2018_Cs/100)
data18.11.2018_Ba<-data18.11.2018$Ba
KorFak18.11.2018_Ba<-KorFak18.11.2018$lDrift_Ba
Ba<- data18.11.2018_Ba-data18.11.2018_Ba*(KorFak18.11.2018_Ba/100)
data18.11.2018_La<-data18.11.2018$La
KorFak18.11.2018_La<-KorFak18.11.2018$lDrift_La
La<- data18.11.2018_La-data18.11.2018_La*(KorFak18.11.2018_La/100)
data18.11.2018_Pb<-data18.11.2018$Pb
KorFak18.11.2018_Pb<-KorFak18.11.2018$lDrift_Pb
Pb<- data18.11.2018_Pb-data18.11.2018_Pb*(KorFak18.11.2018_Pb/100)
data18.11.2018_Th<-data18.11.2018$Th
KorFak18.11.2018_Th<-KorFak18.11.2018$lDrift_Th
Th<- data18.11.2018_Th-data18.11.2018_Th*(KorFak18.11.2018_Th/100)
data18.11.2018_U<-data18.11.2018$U
KorFak18.11.2018_U<-KorFak18.11.2018$lDrift_U
U<- data18.11.2018_U-data18.11.2018_U*(KorFak18.11.2018_U/100)
Daten_BB_lDrift_Kor18.11.2018<-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)7.2.15 l-Drift Korrektur des 19.11.2018
KorFak19.11.2018<-KorFak %>% filter(Datum_median=="19.11.2018")
data19.11.2018<-data %>% filter(Datum=="19.11.2018")
Probennummer<-data19.11.2018$Probennummer
Datum<-data19.11.2018$Datum
data19.11.2018_Si<-data19.11.2018$Si
KorFak19.11.2018_Si<-KorFak19.11.2018$lDrift_Si
Si<- data19.11.2018_Si-data19.11.2018_Si*(KorFak19.11.2018_Si/100)
data19.11.2018_Ti<-data19.11.2018$Ti
KorFak19.11.2018_Ti<-KorFak19.11.2018$lDrift_Ti
Ti<- data19.11.2018_Ti-data19.11.2018_Ti*(KorFak19.11.2018_Ti/100)
data19.11.2018_Al<-data19.11.2018$Al
KorFak19.11.2018_Al<-KorFak19.11.2018$lDrift_Al
Al<- data19.11.2018_Al-data19.11.2018_Al*(KorFak19.11.2018_Al/100)
data19.11.2018_Fe<-data19.11.2018$Fe
KorFak19.11.2018_Fe<-KorFak19.11.2018$lDrift_Fe
Fe<- data19.11.2018_Fe-data19.11.2018_Fe*(KorFak19.11.2018_Fe/100)
data19.11.2018_Mn<-data19.11.2018$Mn
KorFak19.11.2018_Mn<-KorFak19.11.2018$lDrift_Mn
Mn<- data19.11.2018_Mn-data19.11.2018_Mn*(KorFak19.11.2018_Mn/100)
data19.11.2018_Mg<-data19.11.2018$Mg
KorFak19.11.2018_Mg<-KorFak19.11.2018$lDrift_Mg
Mg<- data19.11.2018_Mg-data19.11.2018_Mg*(KorFak19.11.2018_Mg/100)
data19.11.2018_Ca<-data19.11.2018$Ca
KorFak19.11.2018_Ca<-KorFak19.11.2018$lDrift_Ca
Ca<- data19.11.2018_Ca-data19.11.2018_Ca*(KorFak19.11.2018_Ca/100)
data19.11.2018_K<-data19.11.2018$K
KorFak19.11.2018_K<-KorFak19.11.2018$lDrift_K
K<- data19.11.2018_K-data19.11.2018_K*(KorFak19.11.2018_K/100)
data19.11.2018_P<-data19.11.2018$P
KorFak19.11.2018_P<-KorFak19.11.2018$lDrift_P
P<- data19.11.2018_P-data19.11.2018_P*(KorFak19.11.2018_P/100)
data19.11.2018_S<-data19.11.2018$S
KorFak19.11.2018_S<-KorFak19.11.2018$lDrift_S
S<- data19.11.2018_S-data19.11.2018_S*(KorFak19.11.2018_S/100)
data19.11.2018_Cl<-data19.11.2018$Cl
KorFak19.11.2018_Cl<-KorFak19.11.2018$lDrift_Cl
Cl<- data19.11.2018_Cl-data19.11.2018_Cl*(KorFak19.11.2018_Cl/100)
data19.11.2018_V<-data19.11.2018$V
KorFak19.11.2018_V<-KorFak19.11.2018$lDrift_V
V<- data19.11.2018_V-data19.11.2018_V*(KorFak19.11.2018_V/100)
data19.11.2018_Cr<-data19.11.2018$Cr
KorFak19.11.2018_Cr<-KorFak19.11.2018$lDrift_Cr
Cr<- data19.11.2018_Cr-data19.11.2018_Cr*(KorFak19.11.2018_Cr/100)
data19.11.2018_Ni<-data19.11.2018$Ni
KorFak19.11.2018_Ni<-KorFak19.11.2018$lDrift_Ni
Ni<- data19.11.2018_Ni-data19.11.2018_Ni*(KorFak19.11.2018_Ni/100)
data19.11.2018_Cu<-data19.11.2018$Cu
KorFak19.11.2018_Cu<-KorFak19.11.2018$lDrift_Cu
Cu<- data19.11.2018_Cu-data19.11.2018_Cu*(KorFak19.11.2018_Cu/100)
data19.11.2018_Zn<-data19.11.2018$Zn
KorFak19.11.2018_Zn<-KorFak19.11.2018$lDrift_Zn
Zn<- data19.11.2018_Zn-data19.11.2018_Zn*(KorFak19.11.2018_Zn/100)
data19.11.2018_As<-data19.11.2018$As
KorFak19.11.2018_As<-KorFak19.11.2018$lDrift_As
As<- data19.11.2018_As-data19.11.2018_As*(KorFak19.11.2018_As/100)
data19.11.2018_Se<-data19.11.2018$Se
KorFak19.11.2018_Se<-KorFak19.11.2018$lDrift_Se
Se<- data19.11.2018_Se-data19.11.2018_Se*(KorFak19.11.2018_Se/100)
data19.11.2018_Rb<-data19.11.2018$Rb
KorFak19.11.2018_Rb<-KorFak19.11.2018$lDrift_Rb
Rb<- data19.11.2018_Rb-data19.11.2018_Rb*(KorFak19.11.2018_Rb/100)
data19.11.2018_Sr<-data19.11.2018$Sr
KorFak19.11.2018_Sr<-KorFak19.11.2018$lDrift_Sr
Sr<- data19.11.2018_Sr-data19.11.2018_Sr*(KorFak19.11.2018_Sr/100)
data19.11.2018_Y<-data19.11.2018$Y
KorFak19.11.2018_Y<-KorFak19.11.2018$lDrift_Y
Y<- data19.11.2018_Y-data19.11.2018_Y*(KorFak19.11.2018_Y/100)
data19.11.2018_Zr<-data19.11.2018$Zr
KorFak19.11.2018_Zr<-KorFak19.11.2018$lDrift_Zr
Zr<- data19.11.2018_Zr-data19.11.2018_Zr*(KorFak19.11.2018_Zr/100)
data19.11.2018_Nb<-data19.11.2018$Nb
KorFak19.11.2018_Nb<-KorFak19.11.2018$lDrift_Nb
Nb<- data19.11.2018_Nb-data19.11.2018_Nb*(KorFak19.11.2018_Nb/100)
data19.11.2018_Mo<-data19.11.2018$Mo
KorFak19.11.2018_Mo<-KorFak19.11.2018$lDrift_Mo
Mo<- data19.11.2018_Mo-data19.11.2018_Mo*(KorFak19.11.2018_Mo/100)
data19.11.2018_Ag<-data19.11.2018$Ag
KorFak19.11.2018_Ag<-KorFak19.11.2018$lDrift_Ag
Ag<- data19.11.2018_Ag-data19.11.2018_Ag*(KorFak19.11.2018_Ag/100)
data19.11.2018_Cd<-data19.11.2018$Cd
KorFak19.11.2018_Cd<-KorFak19.11.2018$lDrift_Cd
Cd<- data19.11.2018_Cd-data19.11.2018_Cd*(KorFak19.11.2018_Cd/100)
data19.11.2018_Sn<-data19.11.2018$Sn
KorFak19.11.2018_Sn<-KorFak19.11.2018$lDrift_Sn
Sn<- data19.11.2018_Sn-data19.11.2018_Sn*(KorFak19.11.2018_Sn/100)
data19.11.2018_Sb<-data19.11.2018$Sb
KorFak19.11.2018_Sb<-KorFak19.11.2018$lDrift_Sb
Sb<- data19.11.2018_Sb-data19.11.2018_Sb*(KorFak19.11.2018_Sb/100)
data19.11.2018_Te<-data19.11.2018$Te
KorFak19.11.2018_Te<-KorFak19.11.2018$lDrift_Te
Te<- data19.11.2018_Te-data19.11.2018_Te*(KorFak19.11.2018_Te/100)
data19.11.2018_Cs<-data19.11.2018$Cs
KorFak19.11.2018_Cs<-KorFak19.11.2018$lDrift_Cs
Cs<- data19.11.2018_Cs-data19.11.2018_Cs*(KorFak19.11.2018_Cs/100)
data19.11.2018_Ba<-data19.11.2018$Ba
KorFak19.11.2018_Ba<-KorFak19.11.2018$lDrift_Ba
Ba<- data19.11.2018_Ba-data19.11.2018_Ba*(KorFak19.11.2018_Ba/100)
data19.11.2018_La<-data19.11.2018$La
KorFak19.11.2018_La<-KorFak19.11.2018$lDrift_La
La<- data19.11.2018_La-data19.11.2018_La*(KorFak19.11.2018_La/100)
data19.11.2018_Pb<-data19.11.2018$Pb
KorFak19.11.2018_Pb<-KorFak19.11.2018$lDrift_Pb
Pb<- data19.11.2018_Pb-data19.11.2018_Pb*(KorFak19.11.2018_Pb/100)
data19.11.2018_Th<-data19.11.2018$Th
KorFak19.11.2018_Th<-KorFak19.11.2018$lDrift_Th
Th<- data19.11.2018_Th-data19.11.2018_Th*(KorFak19.11.2018_Th/100)
data19.11.2018_U<-data19.11.2018$U
KorFak19.11.2018_U<-KorFak19.11.2018$lDrift_U
U<- data19.11.2018_U-data19.11.2018_U*(KorFak19.11.2018_U/100)
Daten_BB_lDrift_Kor19.11.2018<-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)7.2.16 l-Drift Korrektur des 20.11.2018
KorFak20.11.2018<-KorFak %>% filter(Datum_median=="20.11.2018")
data20.11.2018<-data %>% filter(Datum=="20.11.2018")
Probennummer<-data20.11.2018$Probennummer
Datum<-data20.11.2018$Datum
data20.11.2018_Si<-data20.11.2018$Si
KorFak20.11.2018_Si<-KorFak20.11.2018$lDrift_Si
Si<- data20.11.2018_Si-data20.11.2018_Si*(KorFak20.11.2018_Si/100)
data20.11.2018_Ti<-data20.11.2018$Ti
KorFak20.11.2018_Ti<-KorFak20.11.2018$lDrift_Ti
Ti<- data20.11.2018_Ti-data20.11.2018_Ti*(KorFak20.11.2018_Ti/100)
data20.11.2018_Al<-data20.11.2018$Al
KorFak20.11.2018_Al<-KorFak20.11.2018$lDrift_Al
Al<- data20.11.2018_Al-data20.11.2018_Al*(KorFak20.11.2018_Al/100)
data20.11.2018_Fe<-data20.11.2018$Fe
KorFak20.11.2018_Fe<-KorFak20.11.2018$lDrift_Fe
Fe<- data20.11.2018_Fe-data20.11.2018_Fe*(KorFak20.11.2018_Fe/100)
data20.11.2018_Mn<-data20.11.2018$Mn
KorFak20.11.2018_Mn<-KorFak20.11.2018$lDrift_Mn
Mn<- data20.11.2018_Mn-data20.11.2018_Mn*(KorFak20.11.2018_Mn/100)
data20.11.2018_Mg<-data20.11.2018$Mg
KorFak20.11.2018_Mg<-KorFak20.11.2018$lDrift_Mg
Mg<- data20.11.2018_Mg-data20.11.2018_Mg*(KorFak20.11.2018_Mg/100)
data20.11.2018_Ca<-data20.11.2018$Ca
KorFak20.11.2018_Ca<-KorFak20.11.2018$lDrift_Ca
Ca<- data20.11.2018_Ca-data20.11.2018_Ca*(KorFak20.11.2018_Ca/100)
data20.11.2018_K<-data20.11.2018$K
KorFak20.11.2018_K<-KorFak20.11.2018$lDrift_K
K<- data20.11.2018_K-data20.11.2018_K*(KorFak20.11.2018_K/100)
data20.11.2018_P<-data20.11.2018$P
KorFak20.11.2018_P<-KorFak20.11.2018$lDrift_P
P<- data20.11.2018_P-data20.11.2018_P*(KorFak20.11.2018_P/100)
data20.11.2018_S<-data20.11.2018$S
KorFak20.11.2018_S<-KorFak20.11.2018$lDrift_S
S<- data20.11.2018_S-data20.11.2018_S*(KorFak20.11.2018_S/100)
data20.11.2018_Cl<-data20.11.2018$Cl
KorFak20.11.2018_Cl<-KorFak20.11.2018$lDrift_Cl
Cl<- data20.11.2018_Cl-data20.11.2018_Cl*(KorFak20.11.2018_Cl/100)
data20.11.2018_V<-data20.11.2018$V
KorFak20.11.2018_V<-KorFak20.11.2018$lDrift_V
V<- data20.11.2018_V-data20.11.2018_V*(KorFak20.11.2018_V/100)
data20.11.2018_Cr<-data20.11.2018$Cr
KorFak20.11.2018_Cr<-KorFak20.11.2018$lDrift_Cr
Cr<- data20.11.2018_Cr-data20.11.2018_Cr*(KorFak20.11.2018_Cr/100)
data20.11.2018_Ni<-data20.11.2018$Ni
KorFak20.11.2018_Ni<-KorFak20.11.2018$lDrift_Ni
Ni<- data20.11.2018_Ni-data20.11.2018_Ni*(KorFak20.11.2018_Ni/100)
data20.11.2018_Cu<-data20.11.2018$Cu
KorFak20.11.2018_Cu<-KorFak20.11.2018$lDrift_Cu
Cu<- data20.11.2018_Cu-data20.11.2018_Cu*(KorFak20.11.2018_Cu/100)
data20.11.2018_Zn<-data20.11.2018$Zn
KorFak20.11.2018_Zn<-KorFak20.11.2018$lDrift_Zn
Zn<- data20.11.2018_Zn-data20.11.2018_Zn*(KorFak20.11.2018_Zn/100)
data20.11.2018_As<-data20.11.2018$As
KorFak20.11.2018_As<-KorFak20.11.2018$lDrift_As
As<- data20.11.2018_As-data20.11.2018_As*(KorFak20.11.2018_As/100)
data20.11.2018_Se<-data20.11.2018$Se
KorFak20.11.2018_Se<-KorFak20.11.2018$lDrift_Se
Se<- data20.11.2018_Se-data20.11.2018_Se*(KorFak20.11.2018_Se/100)
data20.11.2018_Rb<-data20.11.2018$Rb
KorFak20.11.2018_Rb<-KorFak20.11.2018$lDrift_Rb
Rb<- data20.11.2018_Rb-data20.11.2018_Rb*(KorFak20.11.2018_Rb/100)
data20.11.2018_Sr<-data20.11.2018$Sr
KorFak20.11.2018_Sr<-KorFak20.11.2018$lDrift_Sr
Sr<- data20.11.2018_Sr-data20.11.2018_Sr*(KorFak20.11.2018_Sr/100)
data20.11.2018_Y<-data20.11.2018$Y
KorFak20.11.2018_Y<-KorFak20.11.2018$lDrift_Y
Y<- data20.11.2018_Y-data20.11.2018_Y*(KorFak20.11.2018_Y/100)
data20.11.2018_Zr<-data20.11.2018$Zr
KorFak20.11.2018_Zr<-KorFak20.11.2018$lDrift_Zr
Zr<- data20.11.2018_Zr-data20.11.2018_Zr*(KorFak20.11.2018_Zr/100)
data20.11.2018_Nb<-data20.11.2018$Nb
KorFak20.11.2018_Nb<-KorFak20.11.2018$lDrift_Nb
Nb<- data20.11.2018_Nb-data20.11.2018_Nb*(KorFak20.11.2018_Nb/100)
data20.11.2018_Mo<-data20.11.2018$Mo
KorFak20.11.2018_Mo<-KorFak20.11.2018$lDrift_Mo
Mo<- data20.11.2018_Mo-data20.11.2018_Mo*(KorFak20.11.2018_Mo/100)
data20.11.2018_Ag<-data20.11.2018$Ag
KorFak20.11.2018_Ag<-KorFak20.11.2018$lDrift_Ag
Ag<- data20.11.2018_Ag-data20.11.2018_Ag*(KorFak20.11.2018_Ag/100)
data20.11.2018_Cd<-data20.11.2018$Cd
KorFak20.11.2018_Cd<-KorFak20.11.2018$lDrift_Cd
Cd<- data20.11.2018_Cd-data20.11.2018_Cd*(KorFak20.11.2018_Cd/100)
data20.11.2018_Sn<-data20.11.2018$Sn
KorFak20.11.2018_Sn<-KorFak20.11.2018$lDrift_Sn
Sn<- data20.11.2018_Sn-data20.11.2018_Sn*(KorFak20.11.2018_Sn/100)
data20.11.2018_Sb<-data20.11.2018$Sb
KorFak20.11.2018_Sb<-KorFak20.11.2018$lDrift_Sb
Sb<- data20.11.2018_Sb-data20.11.2018_Sb*(KorFak20.11.2018_Sb/100)
data20.11.2018_Te<-data20.11.2018$Te
KorFak20.11.2018_Te<-KorFak20.11.2018$lDrift_Te
Te<- data20.11.2018_Te-data20.11.2018_Te*(KorFak20.11.2018_Te/100)
data20.11.2018_Cs<-data20.11.2018$Cs
KorFak20.11.2018_Cs<-KorFak20.11.2018$lDrift_Cs
Cs<- data20.11.2018_Cs-data20.11.2018_Cs*(KorFak20.11.2018_Cs/100)
data20.11.2018_Ba<-data20.11.2018$Ba
KorFak20.11.2018_Ba<-KorFak20.11.2018$lDrift_Ba
Ba<- data20.11.2018_Ba-data20.11.2018_Ba*(KorFak20.11.2018_Ba/100)
data20.11.2018_La<-data20.11.2018$La
KorFak20.11.2018_La<-KorFak20.11.2018$lDrift_La
La<- data20.11.2018_La-data20.11.2018_La*(KorFak20.11.2018_La/100)
data20.11.2018_Pb<-data20.11.2018$Pb
KorFak20.11.2018_Pb<-KorFak20.11.2018$lDrift_Pb
Pb<- data20.11.2018_Pb-data20.11.2018_Pb*(KorFak20.11.2018_Pb/100)
data20.11.2018_Th<-data20.11.2018$Th
KorFak20.11.2018_Th<-KorFak20.11.2018$lDrift_Th
Th<- data20.11.2018_Th-data20.11.2018_Th*(KorFak20.11.2018_Th/100)
data20.11.2018_U<-data20.11.2018$U
KorFak20.11.2018_U<-KorFak20.11.2018$lDrift_U
U<- data20.11.2018_U-data20.11.2018_U*(KorFak20.11.2018_U/100)
Daten_BB_lDrift_Kor20.11.2018<-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)7.2.17 l-Drift Korrektur des 21.11.2018
KorFak21.11.2018<-KorFak %>% filter(Datum_median=="21.11.2018")
data21.11.2018<-data %>% filter(Datum=="21.11.2018")
Probennummer<-data21.11.2018$Probennummer
Datum<-data21.11.2018$Datum
data21.11.2018_Si<-data21.11.2018$Si
KorFak21.11.2018_Si<-KorFak21.11.2018$lDrift_Si
Si<- data21.11.2018_Si-data21.11.2018_Si*(KorFak21.11.2018_Si/100)
data21.11.2018_Ti<-data21.11.2018$Ti
KorFak21.11.2018_Ti<-KorFak21.11.2018$lDrift_Ti
Ti<- data21.11.2018_Ti-data21.11.2018_Ti*(KorFak21.11.2018_Ti/100)
data21.11.2018_Al<-data21.11.2018$Al
KorFak21.11.2018_Al<-KorFak21.11.2018$lDrift_Al
Al<- data21.11.2018_Al-data21.11.2018_Al*(KorFak21.11.2018_Al/100)
data21.11.2018_Fe<-data21.11.2018$Fe
KorFak21.11.2018_Fe<-KorFak21.11.2018$lDrift_Fe
Fe<- data21.11.2018_Fe-data21.11.2018_Fe*(KorFak21.11.2018_Fe/100)
data21.11.2018_Mn<-data21.11.2018$Mn
KorFak21.11.2018_Mn<-KorFak21.11.2018$lDrift_Mn
Mn<- data21.11.2018_Mn-data21.11.2018_Mn*(KorFak21.11.2018_Mn/100)
data21.11.2018_Mg<-data21.11.2018$Mg
KorFak21.11.2018_Mg<-KorFak21.11.2018$lDrift_Mg
Mg<- data21.11.2018_Mg-data21.11.2018_Mg*(KorFak21.11.2018_Mg/100)
data21.11.2018_Ca<-data21.11.2018$Ca
KorFak21.11.2018_Ca<-KorFak21.11.2018$lDrift_Ca
Ca<- data21.11.2018_Ca-data21.11.2018_Ca*(KorFak21.11.2018_Ca/100)
data21.11.2018_K<-data21.11.2018$K
KorFak21.11.2018_K<-KorFak21.11.2018$lDrift_K
K<- data21.11.2018_K-data21.11.2018_K*(KorFak21.11.2018_K/100)
data21.11.2018_P<-data21.11.2018$P
KorFak21.11.2018_P<-KorFak21.11.2018$lDrift_P
P<- data21.11.2018_P-data21.11.2018_P*(KorFak21.11.2018_P/100)
data21.11.2018_S<-data21.11.2018$S
KorFak21.11.2018_S<-KorFak21.11.2018$lDrift_S
S<- data21.11.2018_S-data21.11.2018_S*(KorFak21.11.2018_S/100)
data21.11.2018_Cl<-data21.11.2018$Cl
KorFak21.11.2018_Cl<-KorFak21.11.2018$lDrift_Cl
Cl<- data21.11.2018_Cl-data21.11.2018_Cl*(KorFak21.11.2018_Cl/100)
data21.11.2018_V<-data21.11.2018$V
KorFak21.11.2018_V<-KorFak21.11.2018$lDrift_V
V<- data21.11.2018_V-data21.11.2018_V*(KorFak21.11.2018_V/100)
data21.11.2018_Cr<-data21.11.2018$Cr
KorFak21.11.2018_Cr<-KorFak21.11.2018$lDrift_Cr
Cr<- data21.11.2018_Cr-data21.11.2018_Cr*(KorFak21.11.2018_Cr/100)
data21.11.2018_Ni<-data21.11.2018$Ni
KorFak21.11.2018_Ni<-KorFak21.11.2018$lDrift_Ni
Ni<- data21.11.2018_Ni-data21.11.2018_Ni*(KorFak21.11.2018_Ni/100)
data21.11.2018_Cu<-data21.11.2018$Cu
KorFak21.11.2018_Cu<-KorFak21.11.2018$lDrift_Cu
Cu<- data21.11.2018_Cu-data21.11.2018_Cu*(KorFak21.11.2018_Cu/100)
data21.11.2018_Zn<-data21.11.2018$Zn
KorFak21.11.2018_Zn<-KorFak21.11.2018$lDrift_Zn
Zn<- data21.11.2018_Zn-data21.11.2018_Zn*(KorFak21.11.2018_Zn/100)
data21.11.2018_As<-data21.11.2018$As
KorFak21.11.2018_As<-KorFak21.11.2018$lDrift_As
As<- data21.11.2018_As-data21.11.2018_As*(KorFak21.11.2018_As/100)
data21.11.2018_Se<-data21.11.2018$Se
KorFak21.11.2018_Se<-KorFak21.11.2018$lDrift_Se
Se<- data21.11.2018_Se-data21.11.2018_Se*(KorFak21.11.2018_Se/100)
data21.11.2018_Rb<-data21.11.2018$Rb
KorFak21.11.2018_Rb<-KorFak21.11.2018$lDrift_Rb
Rb<- data21.11.2018_Rb-data21.11.2018_Rb*(KorFak21.11.2018_Rb/100)
data21.11.2018_Sr<-data21.11.2018$Sr
KorFak21.11.2018_Sr<-KorFak21.11.2018$lDrift_Sr
Sr<- data21.11.2018_Sr-data21.11.2018_Sr*(KorFak21.11.2018_Sr/100)
data21.11.2018_Y<-data21.11.2018$Y
KorFak21.11.2018_Y<-KorFak21.11.2018$lDrift_Y
Y<- data21.11.2018_Y-data21.11.2018_Y*(KorFak21.11.2018_Y/100)
data21.11.2018_Zr<-data21.11.2018$Zr
KorFak21.11.2018_Zr<-KorFak21.11.2018$lDrift_Zr
Zr<- data21.11.2018_Zr-data21.11.2018_Zr*(KorFak21.11.2018_Zr/100)
data21.11.2018_Nb<-data21.11.2018$Nb
KorFak21.11.2018_Nb<-KorFak21.11.2018$lDrift_Nb
Nb<- data21.11.2018_Nb-data21.11.2018_Nb*(KorFak21.11.2018_Nb/100)
data21.11.2018_Mo<-data21.11.2018$Mo
KorFak21.11.2018_Mo<-KorFak21.11.2018$lDrift_Mo
Mo<- data21.11.2018_Mo-data21.11.2018_Mo*(KorFak21.11.2018_Mo/100)
data21.11.2018_Ag<-data21.11.2018$Ag
KorFak21.11.2018_Ag<-KorFak21.11.2018$lDrift_Ag
Ag<- data21.11.2018_Ag-data21.11.2018_Ag*(KorFak21.11.2018_Ag/100)
data21.11.2018_Cd<-data21.11.2018$Cd
KorFak21.11.2018_Cd<-KorFak21.11.2018$lDrift_Cd
Cd<- data21.11.2018_Cd-data21.11.2018_Cd*(KorFak21.11.2018_Cd/100)
data21.11.2018_Sn<-data21.11.2018$Sn
KorFak21.11.2018_Sn<-KorFak21.11.2018$lDrift_Sn
Sn<- data21.11.2018_Sn-data21.11.2018_Sn*(KorFak21.11.2018_Sn/100)
data21.11.2018_Sb<-data21.11.2018$Sb
KorFak21.11.2018_Sb<-KorFak21.11.2018$lDrift_Sb
Sb<- data21.11.2018_Sb-data21.11.2018_Sb*(KorFak21.11.2018_Sb/100)
data21.11.2018_Te<-data21.11.2018$Te
KorFak21.11.2018_Te<-KorFak21.11.2018$lDrift_Te
Te<- data21.11.2018_Te-data21.11.2018_Te*(KorFak21.11.2018_Te/100)
data21.11.2018_Cs<-data21.11.2018$Cs
KorFak21.11.2018_Cs<-KorFak21.11.2018$lDrift_Cs
Cs<- data21.11.2018_Cs-data21.11.2018_Cs*(KorFak21.11.2018_Cs/100)
data21.11.2018_Ba<-data21.11.2018$Ba
KorFak21.11.2018_Ba<-KorFak21.11.2018$lDrift_Ba
Ba<- data21.11.2018_Ba-data21.11.2018_Ba*(KorFak21.11.2018_Ba/100)
data21.11.2018_La<-data21.11.2018$La
KorFak21.11.2018_La<-KorFak21.11.2018$lDrift_La
La<- data21.11.2018_La-data21.11.2018_La*(KorFak21.11.2018_La/100)
data21.11.2018_Pb<-data21.11.2018$Pb
KorFak21.11.2018_Pb<-KorFak21.11.2018$lDrift_Pb
Pb<- data21.11.2018_Pb-data21.11.2018_Pb*(KorFak21.11.2018_Pb/100)
data21.11.2018_Th<-data21.11.2018$Th
KorFak21.11.2018_Th<-KorFak21.11.2018$lDrift_Th
Th<- data21.11.2018_Th-data21.11.2018_Th*(KorFak21.11.2018_Th/100)
data21.11.2018_U<-data21.11.2018$U
KorFak21.11.2018_U<-KorFak21.11.2018$lDrift_U
U<- data21.11.2018_U-data21.11.2018_U*(KorFak21.11.2018_U/100)
Daten_BB_lDrift_Kor21.11.2018<-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)7.2.18 l-Drift Korrektur des 22.11.2018
KorFak22.11.2018<-KorFak %>% filter(Datum_median=="22.11.2018")
data22.11.2018<-data %>% filter(Datum=="22.11.2018")
Probennummer<-data22.11.2018$Probennummer
Datum<-data22.11.2018$Datum
data22.11.2018_Si<-data22.11.2018$Si
KorFak22.11.2018_Si<-KorFak22.11.2018$lDrift_Si
Si<- data22.11.2018_Si-data22.11.2018_Si*(KorFak22.11.2018_Si/100)
data22.11.2018_Ti<-data22.11.2018$Ti
KorFak22.11.2018_Ti<-KorFak22.11.2018$lDrift_Ti
Ti<- data22.11.2018_Ti-data22.11.2018_Ti*(KorFak22.11.2018_Ti/100)
data22.11.2018_Al<-data22.11.2018$Al
KorFak22.11.2018_Al<-KorFak22.11.2018$lDrift_Al
Al<- data22.11.2018_Al-data22.11.2018_Al*(KorFak22.11.2018_Al/100)
data22.11.2018_Fe<-data22.11.2018$Fe
KorFak22.11.2018_Fe<-KorFak22.11.2018$lDrift_Fe
Fe<- data22.11.2018_Fe-data22.11.2018_Fe*(KorFak22.11.2018_Fe/100)
data22.11.2018_Mn<-data22.11.2018$Mn
KorFak22.11.2018_Mn<-KorFak22.11.2018$lDrift_Mn
Mn<- data22.11.2018_Mn-data22.11.2018_Mn*(KorFak22.11.2018_Mn/100)
data22.11.2018_Mg<-data22.11.2018$Mg
KorFak22.11.2018_Mg<-KorFak22.11.2018$lDrift_Mg
Mg<- data22.11.2018_Mg-data22.11.2018_Mg*(KorFak22.11.2018_Mg/100)
data22.11.2018_Ca<-data22.11.2018$Ca
KorFak22.11.2018_Ca<-KorFak22.11.2018$lDrift_Ca
Ca<- data22.11.2018_Ca-data22.11.2018_Ca*(KorFak22.11.2018_Ca/100)
data22.11.2018_K<-data22.11.2018$K
KorFak22.11.2018_K<-KorFak22.11.2018$lDrift_K
K<- data22.11.2018_K-data22.11.2018_K*(KorFak22.11.2018_K/100)
data22.11.2018_P<-data22.11.2018$P
KorFak22.11.2018_P<-KorFak22.11.2018$lDrift_P
P<- data22.11.2018_P-data22.11.2018_P*(KorFak22.11.2018_P/100)
data22.11.2018_S<-data22.11.2018$S
KorFak22.11.2018_S<-KorFak22.11.2018$lDrift_S
S<- data22.11.2018_S-data22.11.2018_S*(KorFak22.11.2018_S/100)
data22.11.2018_Cl<-data22.11.2018$Cl
KorFak22.11.2018_Cl<-KorFak22.11.2018$lDrift_Cl
Cl<- data22.11.2018_Cl-data22.11.2018_Cl*(KorFak22.11.2018_Cl/100)
data22.11.2018_V<-data22.11.2018$V
KorFak22.11.2018_V<-KorFak22.11.2018$lDrift_V
V<- data22.11.2018_V-data22.11.2018_V*(KorFak22.11.2018_V/100)
data22.11.2018_Cr<-data22.11.2018$Cr
KorFak22.11.2018_Cr<-KorFak22.11.2018$lDrift_Cr
Cr<- data22.11.2018_Cr-data22.11.2018_Cr*(KorFak22.11.2018_Cr/100)
data22.11.2018_Ni<-data22.11.2018$Ni
KorFak22.11.2018_Ni<-KorFak22.11.2018$lDrift_Ni
Ni<- data22.11.2018_Ni-data22.11.2018_Ni*(KorFak22.11.2018_Ni/100)
data22.11.2018_Cu<-data22.11.2018$Cu
KorFak22.11.2018_Cu<-KorFak22.11.2018$lDrift_Cu
Cu<- data22.11.2018_Cu-data22.11.2018_Cu*(KorFak22.11.2018_Cu/100)
data22.11.2018_Zn<-data22.11.2018$Zn
KorFak22.11.2018_Zn<-KorFak22.11.2018$lDrift_Zn
Zn<- data22.11.2018_Zn-data22.11.2018_Zn*(KorFak22.11.2018_Zn/100)
data22.11.2018_As<-data22.11.2018$As
KorFak22.11.2018_As<-KorFak22.11.2018$lDrift_As
As<- data22.11.2018_As-data22.11.2018_As*(KorFak22.11.2018_As/100)
data22.11.2018_Se<-data22.11.2018$Se
KorFak22.11.2018_Se<-KorFak22.11.2018$lDrift_Se
Se<- data22.11.2018_Se-data22.11.2018_Se*(KorFak22.11.2018_Se/100)
data22.11.2018_Rb<-data22.11.2018$Rb
KorFak22.11.2018_Rb<-KorFak22.11.2018$lDrift_Rb
Rb<- data22.11.2018_Rb-data22.11.2018_Rb*(KorFak22.11.2018_Rb/100)
data22.11.2018_Sr<-data22.11.2018$Sr
KorFak22.11.2018_Sr<-KorFak22.11.2018$lDrift_Sr
Sr<- data22.11.2018_Sr-data22.11.2018_Sr*(KorFak22.11.2018_Sr/100)
data22.11.2018_Y<-data22.11.2018$Y
KorFak22.11.2018_Y<-KorFak22.11.2018$lDrift_Y
Y<- data22.11.2018_Y-data22.11.2018_Y*(KorFak22.11.2018_Y/100)
data22.11.2018_Zr<-data22.11.2018$Zr
KorFak22.11.2018_Zr<-KorFak22.11.2018$lDrift_Zr
Zr<- data22.11.2018_Zr-data22.11.2018_Zr*(KorFak22.11.2018_Zr/100)
data22.11.2018_Nb<-data22.11.2018$Nb
KorFak22.11.2018_Nb<-KorFak22.11.2018$lDrift_Nb
Nb<- data22.11.2018_Nb-data22.11.2018_Nb*(KorFak22.11.2018_Nb/100)
data22.11.2018_Mo<-data22.11.2018$Mo
KorFak22.11.2018_Mo<-KorFak22.11.2018$lDrift_Mo
Mo<- data22.11.2018_Mo-data22.11.2018_Mo*(KorFak22.11.2018_Mo/100)
data22.11.2018_Ag<-data22.11.2018$Ag
KorFak22.11.2018_Ag<-KorFak22.11.2018$lDrift_Ag
Ag<- data22.11.2018_Ag-data22.11.2018_Ag*(KorFak22.11.2018_Ag/100)
data22.11.2018_Cd<-data22.11.2018$Cd
KorFak22.11.2018_Cd<-KorFak22.11.2018$lDrift_Cd
Cd<- data22.11.2018_Cd-data22.11.2018_Cd*(KorFak22.11.2018_Cd/100)
data22.11.2018_Sn<-data22.11.2018$Sn
KorFak22.11.2018_Sn<-KorFak22.11.2018$lDrift_Sn
Sn<- data22.11.2018_Sn-data22.11.2018_Sn*(KorFak22.11.2018_Sn/100)
data22.11.2018_Sb<-data22.11.2018$Sb
KorFak22.11.2018_Sb<-KorFak22.11.2018$lDrift_Sb
Sb<- data22.11.2018_Sb-data22.11.2018_Sb*(KorFak22.11.2018_Sb/100)
data22.11.2018_Te<-data22.11.2018$Te
KorFak22.11.2018_Te<-KorFak22.11.2018$lDrift_Te
Te<- data22.11.2018_Te-data22.11.2018_Te*(KorFak22.11.2018_Te/100)
data22.11.2018_Cs<-data22.11.2018$Cs
KorFak22.11.2018_Cs<-KorFak22.11.2018$lDrift_Cs
Cs<- data22.11.2018_Cs-data22.11.2018_Cs*(KorFak22.11.2018_Cs/100)
data22.11.2018_Ba<-data22.11.2018$Ba
KorFak22.11.2018_Ba<-KorFak22.11.2018$lDrift_Ba
Ba<- data22.11.2018_Ba-data22.11.2018_Ba*(KorFak22.11.2018_Ba/100)
data22.11.2018_La<-data22.11.2018$La
KorFak22.11.2018_La<-KorFak22.11.2018$lDrift_La
La<- data22.11.2018_La-data22.11.2018_La*(KorFak22.11.2018_La/100)
data22.11.2018_Pb<-data22.11.2018$Pb
KorFak22.11.2018_Pb<-KorFak22.11.2018$lDrift_Pb
Pb<- data22.11.2018_Pb-data22.11.2018_Pb*(KorFak22.11.2018_Pb/100)
data22.11.2018_Th<-data22.11.2018$Th
KorFak22.11.2018_Th<-KorFak22.11.2018$lDrift_Th
Th<- data22.11.2018_Th-data22.11.2018_Th*(KorFak22.11.2018_Th/100)
data22.11.2018_U<-data22.11.2018$U
KorFak22.11.2018_U<-KorFak22.11.2018$lDrift_U
U<- data22.11.2018_U-data22.11.2018_U*(KorFak22.11.2018_U/100)
Daten_BB_lDrift_Kor22.11.2018<-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)7.2.19 l-Drift Korrektur des 23.11.2018
KorFak23.11.2018<-KorFak %>% filter(Datum_median=="23.11.2018")
data23.11.2018<-data %>% filter(Datum=="23.11.2018")
Probennummer<-data23.11.2018$Probennummer
Datum<-data23.11.2018$Datum
data23.11.2018_Si<-data23.11.2018$Si
KorFak23.11.2018_Si<-KorFak23.11.2018$lDrift_Si
Si<- data23.11.2018_Si-data23.11.2018_Si*(KorFak23.11.2018_Si/100)
data23.11.2018_Ti<-data23.11.2018$Ti
KorFak23.11.2018_Ti<-KorFak23.11.2018$lDrift_Ti
Ti<- data23.11.2018_Ti-data23.11.2018_Ti*(KorFak23.11.2018_Ti/100)
data23.11.2018_Al<-data23.11.2018$Al
KorFak23.11.2018_Al<-KorFak23.11.2018$lDrift_Al
Al<- data23.11.2018_Al-data23.11.2018_Al*(KorFak23.11.2018_Al/100)
data23.11.2018_Fe<-data23.11.2018$Fe
KorFak23.11.2018_Fe<-KorFak23.11.2018$lDrift_Fe
Fe<- data23.11.2018_Fe-data23.11.2018_Fe*(KorFak23.11.2018_Fe/100)
data23.11.2018_Mn<-data23.11.2018$Mn
KorFak23.11.2018_Mn<-KorFak23.11.2018$lDrift_Mn
Mn<- data23.11.2018_Mn-data23.11.2018_Mn*(KorFak23.11.2018_Mn/100)
data23.11.2018_Mg<-data23.11.2018$Mg
KorFak23.11.2018_Mg<-KorFak23.11.2018$lDrift_Mg
Mg<- data23.11.2018_Mg-data23.11.2018_Mg*(KorFak23.11.2018_Mg/100)
data23.11.2018_Ca<-data23.11.2018$Ca
KorFak23.11.2018_Ca<-KorFak23.11.2018$lDrift_Ca
Ca<- data23.11.2018_Ca-data23.11.2018_Ca*(KorFak23.11.2018_Ca/100)
data23.11.2018_K<-data23.11.2018$K
KorFak23.11.2018_K<-KorFak23.11.2018$lDrift_K
K<- data23.11.2018_K-data23.11.2018_K*(KorFak23.11.2018_K/100)
data23.11.2018_P<-data23.11.2018$P
KorFak23.11.2018_P<-KorFak23.11.2018$lDrift_P
P<- data23.11.2018_P-data23.11.2018_P*(KorFak23.11.2018_P/100)
data23.11.2018_S<-data23.11.2018$S
KorFak23.11.2018_S<-KorFak23.11.2018$lDrift_S
S<- data23.11.2018_S-data23.11.2018_S*(KorFak23.11.2018_S/100)
data23.11.2018_Cl<-data23.11.2018$Cl
KorFak23.11.2018_Cl<-KorFak23.11.2018$lDrift_Cl
Cl<- data23.11.2018_Cl-data23.11.2018_Cl*(KorFak23.11.2018_Cl/100)
data23.11.2018_V<-data23.11.2018$V
KorFak23.11.2018_V<-KorFak23.11.2018$lDrift_V
V<- data23.11.2018_V-data23.11.2018_V*(KorFak23.11.2018_V/100)
data23.11.2018_Cr<-data23.11.2018$Cr
KorFak23.11.2018_Cr<-KorFak23.11.2018$lDrift_Cr
Cr<- data23.11.2018_Cr-data23.11.2018_Cr*(KorFak23.11.2018_Cr/100)
data23.11.2018_Ni<-data23.11.2018$Ni
KorFak23.11.2018_Ni<-KorFak23.11.2018$lDrift_Ni
Ni<- data23.11.2018_Ni-data23.11.2018_Ni*(KorFak23.11.2018_Ni/100)
data23.11.2018_Cu<-data23.11.2018$Cu
KorFak23.11.2018_Cu<-KorFak23.11.2018$lDrift_Cu
Cu<- data23.11.2018_Cu-data23.11.2018_Cu*(KorFak23.11.2018_Cu/100)
data23.11.2018_Zn<-data23.11.2018$Zn
KorFak23.11.2018_Zn<-KorFak23.11.2018$lDrift_Zn
Zn<- data23.11.2018_Zn-data23.11.2018_Zn*(KorFak23.11.2018_Zn/100)
data23.11.2018_As<-data23.11.2018$As
KorFak23.11.2018_As<-KorFak23.11.2018$lDrift_As
As<- data23.11.2018_As-data23.11.2018_As*(KorFak23.11.2018_As/100)
data23.11.2018_Se<-data23.11.2018$Se
KorFak23.11.2018_Se<-KorFak23.11.2018$lDrift_Se
Se<- data23.11.2018_Se-data23.11.2018_Se*(KorFak23.11.2018_Se/100)
data23.11.2018_Rb<-data23.11.2018$Rb
KorFak23.11.2018_Rb<-KorFak23.11.2018$lDrift_Rb
Rb<- data23.11.2018_Rb-data23.11.2018_Rb*(KorFak23.11.2018_Rb/100)
data23.11.2018_Sr<-data23.11.2018$Sr
KorFak23.11.2018_Sr<-KorFak23.11.2018$lDrift_Sr
Sr<- data23.11.2018_Sr-data23.11.2018_Sr*(KorFak23.11.2018_Sr/100)
data23.11.2018_Y<-data23.11.2018$Y
KorFak23.11.2018_Y<-KorFak23.11.2018$lDrift_Y
Y<- data23.11.2018_Y-data23.11.2018_Y*(KorFak23.11.2018_Y/100)
data23.11.2018_Zr<-data23.11.2018$Zr
KorFak23.11.2018_Zr<-KorFak23.11.2018$lDrift_Zr
Zr<- data23.11.2018_Zr-data23.11.2018_Zr*(KorFak23.11.2018_Zr/100)
data23.11.2018_Nb<-data23.11.2018$Nb
KorFak23.11.2018_Nb<-KorFak23.11.2018$lDrift_Nb
Nb<- data23.11.2018_Nb-data23.11.2018_Nb*(KorFak23.11.2018_Nb/100)
data23.11.2018_Mo<-data23.11.2018$Mo
KorFak23.11.2018_Mo<-KorFak23.11.2018$lDrift_Mo
Mo<- data23.11.2018_Mo-data23.11.2018_Mo*(KorFak23.11.2018_Mo/100)
data23.11.2018_Ag<-data23.11.2018$Ag
KorFak23.11.2018_Ag<-KorFak23.11.2018$lDrift_Ag
Ag<- data23.11.2018_Ag-data23.11.2018_Ag*(KorFak23.11.2018_Ag/100)
data23.11.2018_Cd<-data23.11.2018$Cd
KorFak23.11.2018_Cd<-KorFak23.11.2018$lDrift_Cd
Cd<- data23.11.2018_Cd-data23.11.2018_Cd*(KorFak23.11.2018_Cd/100)
data23.11.2018_Sn<-data23.11.2018$Sn
KorFak23.11.2018_Sn<-KorFak23.11.2018$lDrift_Sn
Sn<- data23.11.2018_Sn-data23.11.2018_Sn*(KorFak23.11.2018_Sn/100)
data23.11.2018_Sb<-data23.11.2018$Sb
KorFak23.11.2018_Sb<-KorFak23.11.2018$lDrift_Sb
Sb<- data23.11.2018_Sb-data23.11.2018_Sb*(KorFak23.11.2018_Sb/100)
data23.11.2018_Te<-data23.11.2018$Te
KorFak23.11.2018_Te<-KorFak23.11.2018$lDrift_Te
Te<- data23.11.2018_Te-data23.11.2018_Te*(KorFak23.11.2018_Te/100)
data23.11.2018_Cs<-data23.11.2018$Cs
KorFak23.11.2018_Cs<-KorFak23.11.2018$lDrift_Cs
Cs<- data23.11.2018_Cs-data23.11.2018_Cs*(KorFak23.11.2018_Cs/100)
data23.11.2018_Ba<-data23.11.2018$Ba
KorFak23.11.2018_Ba<-KorFak23.11.2018$lDrift_Ba
Ba<- data23.11.2018_Ba-data23.11.2018_Ba*(KorFak23.11.2018_Ba/100)
data23.11.2018_La<-data23.11.2018$La
KorFak23.11.2018_La<-KorFak23.11.2018$lDrift_La
La<- data23.11.2018_La-data23.11.2018_La*(KorFak23.11.2018_La/100)
data23.11.2018_Pb<-data23.11.2018$Pb
KorFak23.11.2018_Pb<-KorFak23.11.2018$lDrift_Pb
Pb<- data23.11.2018_Pb-data23.11.2018_Pb*(KorFak23.11.2018_Pb/100)
data23.11.2018_Th<-data23.11.2018$Th
KorFak23.11.2018_Th<-KorFak23.11.2018$lDrift_Th
Th<- data23.11.2018_Th-data23.11.2018_Th*(KorFak23.11.2018_Th/100)
data23.11.2018_U<-data23.11.2018$U
KorFak23.11.2018_U<-KorFak23.11.2018$lDrift_U
U<- data23.11.2018_U-data23.11.2018_U*(KorFak23.11.2018_U/100)
Daten_BB_lDrift_Kor23.11.2018<-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)7.2.20 l-Drift Korrektur des 24.11.2018
KorFak24.11.2018<-KorFak %>% filter(Datum_median=="24.11.2018")
data24.11.2018<-data %>% filter(Datum=="24.11.2018")
Probennummer<-data24.11.2018$Probennummer
Datum<-data24.11.2018$Datum
data24.11.2018_Si<-data24.11.2018$Si
KorFak24.11.2018_Si<-KorFak24.11.2018$lDrift_Si
Si<- data24.11.2018_Si-data24.11.2018_Si*(KorFak24.11.2018_Si/100)
data24.11.2018_Ti<-data24.11.2018$Ti
KorFak24.11.2018_Ti<-KorFak24.11.2018$lDrift_Ti
Ti<- data24.11.2018_Ti-data24.11.2018_Ti*(KorFak24.11.2018_Ti/100)
data24.11.2018_Al<-data24.11.2018$Al
KorFak24.11.2018_Al<-KorFak24.11.2018$lDrift_Al
Al<- data24.11.2018_Al-data24.11.2018_Al*(KorFak24.11.2018_Al/100)
data24.11.2018_Fe<-data24.11.2018$Fe
KorFak24.11.2018_Fe<-KorFak24.11.2018$lDrift_Fe
Fe<- data24.11.2018_Fe-data24.11.2018_Fe*(KorFak24.11.2018_Fe/100)
data24.11.2018_Mn<-data24.11.2018$Mn
KorFak24.11.2018_Mn<-KorFak24.11.2018$lDrift_Mn
Mn<- data24.11.2018_Mn-data24.11.2018_Mn*(KorFak24.11.2018_Mn/100)
data24.11.2018_Mg<-data24.11.2018$Mg
KorFak24.11.2018_Mg<-KorFak24.11.2018$lDrift_Mg
Mg<- data24.11.2018_Mg-data24.11.2018_Mg*(KorFak24.11.2018_Mg/100)
data24.11.2018_Ca<-data24.11.2018$Ca
KorFak24.11.2018_Ca<-KorFak24.11.2018$lDrift_Ca
Ca<- data24.11.2018_Ca-data24.11.2018_Ca*(KorFak24.11.2018_Ca/100)
data24.11.2018_K<-data24.11.2018$K
KorFak24.11.2018_K<-KorFak24.11.2018$lDrift_K
K<- data24.11.2018_K-data24.11.2018_K*(KorFak24.11.2018_K/100)
data24.11.2018_P<-data24.11.2018$P
KorFak24.11.2018_P<-KorFak24.11.2018$lDrift_P
P<- data24.11.2018_P-data24.11.2018_P*(KorFak24.11.2018_P/100)
data24.11.2018_S<-data24.11.2018$S
KorFak24.11.2018_S<-KorFak24.11.2018$lDrift_S
S<- data24.11.2018_S-data24.11.2018_S*(KorFak24.11.2018_S/100)
data24.11.2018_Cl<-data24.11.2018$Cl
KorFak24.11.2018_Cl<-KorFak24.11.2018$lDrift_Cl
Cl<- data24.11.2018_Cl-data24.11.2018_Cl*(KorFak24.11.2018_Cl/100)
data24.11.2018_V<-data24.11.2018$V
KorFak24.11.2018_V<-KorFak24.11.2018$lDrift_V
V<- data24.11.2018_V-data24.11.2018_V*(KorFak24.11.2018_V/100)
data24.11.2018_Cr<-data24.11.2018$Cr
KorFak24.11.2018_Cr<-KorFak24.11.2018$lDrift_Cr
Cr<- data24.11.2018_Cr-data24.11.2018_Cr*(KorFak24.11.2018_Cr/100)
data24.11.2018_Ni<-data24.11.2018$Ni
KorFak24.11.2018_Ni<-KorFak24.11.2018$lDrift_Ni
Ni<- data24.11.2018_Ni-data24.11.2018_Ni*(KorFak24.11.2018_Ni/100)
data24.11.2018_Cu<-data24.11.2018$Cu
KorFak24.11.2018_Cu<-KorFak24.11.2018$lDrift_Cu
Cu<- data24.11.2018_Cu-data24.11.2018_Cu*(KorFak24.11.2018_Cu/100)
data24.11.2018_Zn<-data24.11.2018$Zn
KorFak24.11.2018_Zn<-KorFak24.11.2018$lDrift_Zn
Zn<- data24.11.2018_Zn-data24.11.2018_Zn*(KorFak24.11.2018_Zn/100)
data24.11.2018_As<-data24.11.2018$As
KorFak24.11.2018_As<-KorFak24.11.2018$lDrift_As
As<- data24.11.2018_As-data24.11.2018_As*(KorFak24.11.2018_As/100)
data24.11.2018_Se<-data24.11.2018$Se
KorFak24.11.2018_Se<-KorFak24.11.2018$lDrift_Se
Se<- data24.11.2018_Se-data24.11.2018_Se*(KorFak24.11.2018_Se/100)
data24.11.2018_Rb<-data24.11.2018$Rb
KorFak24.11.2018_Rb<-KorFak24.11.2018$lDrift_Rb
Rb<- data24.11.2018_Rb-data24.11.2018_Rb*(KorFak24.11.2018_Rb/100)
data24.11.2018_Sr<-data24.11.2018$Sr
KorFak24.11.2018_Sr<-KorFak24.11.2018$lDrift_Sr
Sr<- data24.11.2018_Sr-data24.11.2018_Sr*(KorFak24.11.2018_Sr/100)
data24.11.2018_Y<-data24.11.2018$Y
KorFak24.11.2018_Y<-KorFak24.11.2018$lDrift_Y
Y<- data24.11.2018_Y-data24.11.2018_Y*(KorFak24.11.2018_Y/100)
data24.11.2018_Zr<-data24.11.2018$Zr
KorFak24.11.2018_Zr<-KorFak24.11.2018$lDrift_Zr
Zr<- data24.11.2018_Zr-data24.11.2018_Zr*(KorFak24.11.2018_Zr/100)
data24.11.2018_Nb<-data24.11.2018$Nb
KorFak24.11.2018_Nb<-KorFak24.11.2018$lDrift_Nb
Nb<- data24.11.2018_Nb-data24.11.2018_Nb*(KorFak24.11.2018_Nb/100)
data24.11.2018_Mo<-data24.11.2018$Mo
KorFak24.11.2018_Mo<-KorFak24.11.2018$lDrift_Mo
Mo<- data24.11.2018_Mo-data24.11.2018_Mo*(KorFak24.11.2018_Mo/100)
data24.11.2018_Ag<-data24.11.2018$Ag
KorFak24.11.2018_Ag<-KorFak24.11.2018$lDrift_Ag
Ag<- data24.11.2018_Ag-data24.11.2018_Ag*(KorFak24.11.2018_Ag/100)
data24.11.2018_Cd<-data24.11.2018$Cd
KorFak24.11.2018_Cd<-KorFak24.11.2018$lDrift_Cd
Cd<- data24.11.2018_Cd-data24.11.2018_Cd*(KorFak24.11.2018_Cd/100)
data24.11.2018_Sn<-data24.11.2018$Sn
KorFak24.11.2018_Sn<-KorFak24.11.2018$lDrift_Sn
Sn<- data24.11.2018_Sn-data24.11.2018_Sn*(KorFak24.11.2018_Sn/100)
data24.11.2018_Sb<-data24.11.2018$Sb
KorFak24.11.2018_Sb<-KorFak24.11.2018$lDrift_Sb
Sb<- data24.11.2018_Sb-data24.11.2018_Sb*(KorFak24.11.2018_Sb/100)
data24.11.2018_Te<-data24.11.2018$Te
KorFak24.11.2018_Te<-KorFak24.11.2018$lDrift_Te
Te<- data24.11.2018_Te-data24.11.2018_Te*(KorFak24.11.2018_Te/100)
data24.11.2018_Cs<-data24.11.2018$Cs
KorFak24.11.2018_Cs<-KorFak24.11.2018$lDrift_Cs
Cs<- data24.11.2018_Cs-data24.11.2018_Cs*(KorFak24.11.2018_Cs/100)
data24.11.2018_Ba<-data24.11.2018$Ba
KorFak24.11.2018_Ba<-KorFak24.11.2018$lDrift_Ba
Ba<- data24.11.2018_Ba-data24.11.2018_Ba*(KorFak24.11.2018_Ba/100)
data24.11.2018_La<-data24.11.2018$La
KorFak24.11.2018_La<-KorFak24.11.2018$lDrift_La
La<- data24.11.2018_La-data24.11.2018_La*(KorFak24.11.2018_La/100)
data24.11.2018_Pb<-data24.11.2018$Pb
KorFak24.11.2018_Pb<-KorFak24.11.2018$lDrift_Pb
Pb<- data24.11.2018_Pb-data24.11.2018_Pb*(KorFak24.11.2018_Pb/100)
data24.11.2018_Th<-data24.11.2018$Th
KorFak24.11.2018_Th<-KorFak24.11.2018$lDrift_Th
Th<- data24.11.2018_Th-data24.11.2018_Th*(KorFak24.11.2018_Th/100)
data24.11.2018_U<-data24.11.2018$U
KorFak24.11.2018_U<-KorFak24.11.2018$lDrift_U
U<- data24.11.2018_U-data24.11.2018_U*(KorFak24.11.2018_U/100)
Daten_BB_lDrift_Kor24.11.2018<-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)7.2.21 l-Drift Korrektur des 3.12.2018
KorFak3.12.2018<-KorFak %>% filter(Datum_median=="3.12.2018")
data3.12.2018<-data %>% filter(Datum=="3.12.2018")
Probennummer<-data3.12.2018$Probennummer
Datum<-data3.12.2018$Datum
data3.12.2018_Si<-data3.12.2018$Si
KorFak3.12.2018_Si<-KorFak3.12.2018$lDrift_Si
Si<- data3.12.2018_Si-data3.12.2018_Si*(KorFak3.12.2018_Si/100)
data3.12.2018_Ti<-data3.12.2018$Ti
KorFak3.12.2018_Ti<-KorFak3.12.2018$lDrift_Ti
Ti<- data3.12.2018_Ti-data3.12.2018_Ti*(KorFak3.12.2018_Ti/100)
data3.12.2018_Al<-data3.12.2018$Al
KorFak3.12.2018_Al<-KorFak3.12.2018$lDrift_Al
Al<- data3.12.2018_Al-data3.12.2018_Al*(KorFak3.12.2018_Al/100)
data3.12.2018_Fe<-data3.12.2018$Fe
KorFak3.12.2018_Fe<-KorFak3.12.2018$lDrift_Fe
Fe<- data3.12.2018_Fe-data3.12.2018_Fe*(KorFak3.12.2018_Fe/100)
data3.12.2018_Mn<-data3.12.2018$Mn
KorFak3.12.2018_Mn<-KorFak3.12.2018$lDrift_Mn
Mn<- data3.12.2018_Mn-data3.12.2018_Mn*(KorFak3.12.2018_Mn/100)
data3.12.2018_Mg<-data3.12.2018$Mg
KorFak3.12.2018_Mg<-KorFak3.12.2018$lDrift_Mg
Mg<- data3.12.2018_Mg-data3.12.2018_Mg*(KorFak3.12.2018_Mg/100)
data3.12.2018_Ca<-data3.12.2018$Ca
KorFak3.12.2018_Ca<-KorFak3.12.2018$lDrift_Ca
Ca<- data3.12.2018_Ca-data3.12.2018_Ca*(KorFak3.12.2018_Ca/100)
data3.12.2018_K<-data3.12.2018$K
KorFak3.12.2018_K<-KorFak3.12.2018$lDrift_K
K<- data3.12.2018_K-data3.12.2018_K*(KorFak3.12.2018_K/100)
data3.12.2018_P<-data3.12.2018$P
KorFak3.12.2018_P<-KorFak3.12.2018$lDrift_P
P<- data3.12.2018_P-data3.12.2018_P*(KorFak3.12.2018_P/100)
data3.12.2018_S<-data3.12.2018$S
KorFak3.12.2018_S<-KorFak3.12.2018$lDrift_S
S<- data3.12.2018_S-data3.12.2018_S*(KorFak3.12.2018_S/100)
data3.12.2018_Cl<-data3.12.2018$Cl
KorFak3.12.2018_Cl<-KorFak3.12.2018$lDrift_Cl
Cl<- data3.12.2018_Cl-data3.12.2018_Cl*(KorFak3.12.2018_Cl/100)
data3.12.2018_V<-data3.12.2018$V
KorFak3.12.2018_V<-KorFak3.12.2018$lDrift_V
V<- data3.12.2018_V-data3.12.2018_V*(KorFak3.12.2018_V/100)
data3.12.2018_Cr<-data3.12.2018$Cr
KorFak3.12.2018_Cr<-KorFak3.12.2018$lDrift_Cr
Cr<- data3.12.2018_Cr-data3.12.2018_Cr*(KorFak3.12.2018_Cr/100)
data3.12.2018_Ni<-data3.12.2018$Ni
KorFak3.12.2018_Ni<-KorFak3.12.2018$lDrift_Ni
Ni<- data3.12.2018_Ni-data3.12.2018_Ni*(KorFak3.12.2018_Ni/100)
data3.12.2018_Cu<-data3.12.2018$Cu
KorFak3.12.2018_Cu<-KorFak3.12.2018$lDrift_Cu
Cu<- data3.12.2018_Cu-data3.12.2018_Cu*(KorFak3.12.2018_Cu/100)
data3.12.2018_Zn<-data3.12.2018$Zn
KorFak3.12.2018_Zn<-KorFak3.12.2018$lDrift_Zn
Zn<- data3.12.2018_Zn-data3.12.2018_Zn*(KorFak3.12.2018_Zn/100)
data3.12.2018_As<-data3.12.2018$As
KorFak3.12.2018_As<-KorFak3.12.2018$lDrift_As
As<- data3.12.2018_As-data3.12.2018_As*(KorFak3.12.2018_As/100)
data3.12.2018_Se<-data3.12.2018$Se
KorFak3.12.2018_Se<-KorFak3.12.2018$lDrift_Se
Se<- data3.12.2018_Se-data3.12.2018_Se*(KorFak3.12.2018_Se/100)
data3.12.2018_Rb<-data3.12.2018$Rb
KorFak3.12.2018_Rb<-KorFak3.12.2018$lDrift_Rb
Rb<- data3.12.2018_Rb-data3.12.2018_Rb*(KorFak3.12.2018_Rb/100)
data3.12.2018_Sr<-data3.12.2018$Sr
KorFak3.12.2018_Sr<-KorFak3.12.2018$lDrift_Sr
Sr<- data3.12.2018_Sr-data3.12.2018_Sr*(KorFak3.12.2018_Sr/100)
data3.12.2018_Y<-data3.12.2018$Y
KorFak3.12.2018_Y<-KorFak3.12.2018$lDrift_Y
Y<- data3.12.2018_Y-data3.12.2018_Y*(KorFak3.12.2018_Y/100)
data3.12.2018_Zr<-data3.12.2018$Zr
KorFak3.12.2018_Zr<-KorFak3.12.2018$lDrift_Zr
Zr<- data3.12.2018_Zr-data3.12.2018_Zr*(KorFak3.12.2018_Zr/100)
data3.12.2018_Nb<-data3.12.2018$Nb
KorFak3.12.2018_Nb<-KorFak3.12.2018$lDrift_Nb
Nb<- data3.12.2018_Nb-data3.12.2018_Nb*(KorFak3.12.2018_Nb/100)
data3.12.2018_Mo<-data3.12.2018$Mo
KorFak3.12.2018_Mo<-KorFak3.12.2018$lDrift_Mo
Mo<- data3.12.2018_Mo-data3.12.2018_Mo*(KorFak3.12.2018_Mo/100)
data3.12.2018_Ag<-data3.12.2018$Ag
KorFak3.12.2018_Ag<-KorFak3.12.2018$lDrift_Ag
Ag<- data3.12.2018_Ag-data3.12.2018_Ag*(KorFak3.12.2018_Ag/100)
data3.12.2018_Cd<-data3.12.2018$Cd
KorFak3.12.2018_Cd<-KorFak3.12.2018$lDrift_Cd
Cd<- data3.12.2018_Cd-data3.12.2018_Cd*(KorFak3.12.2018_Cd/100)
data3.12.2018_Sn<-data3.12.2018$Sn
KorFak3.12.2018_Sn<-KorFak3.12.2018$lDrift_Sn
Sn<- data3.12.2018_Sn-data3.12.2018_Sn*(KorFak3.12.2018_Sn/100)
data3.12.2018_Sb<-data3.12.2018$Sb
KorFak3.12.2018_Sb<-KorFak3.12.2018$lDrift_Sb
Sb<- data3.12.2018_Sb-data3.12.2018_Sb*(KorFak3.12.2018_Sb/100)
data3.12.2018_Te<-data3.12.2018$Te
KorFak3.12.2018_Te<-KorFak3.12.2018$lDrift_Te
Te<- data3.12.2018_Te-data3.12.2018_Te*(KorFak3.12.2018_Te/100)
data3.12.2018_Cs<-data3.12.2018$Cs
KorFak3.12.2018_Cs<-KorFak3.12.2018$lDrift_Cs
Cs<- data3.12.2018_Cs-data3.12.2018_Cs*(KorFak3.12.2018_Cs/100)
data3.12.2018_Ba<-data3.12.2018$Ba
KorFak3.12.2018_Ba<-KorFak3.12.2018$lDrift_Ba
Ba<- data3.12.2018_Ba-data3.12.2018_Ba*(KorFak3.12.2018_Ba/100)
data3.12.2018_La<-data3.12.2018$La
KorFak3.12.2018_La<-KorFak3.12.2018$lDrift_La
La<- data3.12.2018_La-data3.12.2018_La*(KorFak3.12.2018_La/100)
data3.12.2018_Pb<-data3.12.2018$Pb
KorFak3.12.2018_Pb<-KorFak3.12.2018$lDrift_Pb
Pb<- data3.12.2018_Pb-data3.12.2018_Pb*(KorFak3.12.2018_Pb/100)
data3.12.2018_Th<-data3.12.2018$Th
KorFak3.12.2018_Th<-KorFak3.12.2018$lDrift_Th
Th<- data3.12.2018_Th-data3.12.2018_Th*(KorFak3.12.2018_Th/100)
data3.12.2018_U<-data3.12.2018$U
KorFak3.12.2018_U<-KorFak3.12.2018$lDrift_U
U<- data3.12.2018_U-data3.12.2018_U*(KorFak3.12.2018_U/100)
Daten_BB_lDrift_Kor3.12.2018<-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)7.2.22 l-Drift Korrektur des 4.12.2018
KorFak4.12.2018<-KorFak %>% filter(Datum_median=="4.12.2018")
data4.12.2018<-data %>% filter(Datum=="4.12.2018")
Probennummer<-data4.12.2018$Probennummer
Datum<-data4.12.2018$Datum
data4.12.2018_Si<-data4.12.2018$Si
KorFak4.12.2018_Si<-KorFak4.12.2018$lDrift_Si
Si<- data4.12.2018_Si-data4.12.2018_Si*(KorFak4.12.2018_Si/100)
data4.12.2018_Ti<-data4.12.2018$Ti
KorFak4.12.2018_Ti<-KorFak4.12.2018$lDrift_Ti
Ti<- data4.12.2018_Ti-data4.12.2018_Ti*(KorFak4.12.2018_Ti/100)
data4.12.2018_Al<-data4.12.2018$Al
KorFak4.12.2018_Al<-KorFak4.12.2018$lDrift_Al
Al<- data4.12.2018_Al-data4.12.2018_Al*(KorFak4.12.2018_Al/100)
data4.12.2018_Fe<-data4.12.2018$Fe
KorFak4.12.2018_Fe<-KorFak4.12.2018$lDrift_Fe
Fe<- data4.12.2018_Fe-data4.12.2018_Fe*(KorFak4.12.2018_Fe/100)
data4.12.2018_Mn<-data4.12.2018$Mn
KorFak4.12.2018_Mn<-KorFak4.12.2018$lDrift_Mn
Mn<- data4.12.2018_Mn-data4.12.2018_Mn*(KorFak4.12.2018_Mn/100)
data4.12.2018_Mg<-data4.12.2018$Mg
KorFak4.12.2018_Mg<-KorFak4.12.2018$lDrift_Mg
Mg<- data4.12.2018_Mg-data4.12.2018_Mg*(KorFak4.12.2018_Mg/100)
data4.12.2018_Ca<-data4.12.2018$Ca
KorFak4.12.2018_Ca<-KorFak4.12.2018$lDrift_Ca
Ca<- data4.12.2018_Ca-data4.12.2018_Ca*(KorFak4.12.2018_Ca/100)
data4.12.2018_K<-data4.12.2018$K
KorFak4.12.2018_K<-KorFak4.12.2018$lDrift_K
K<- data4.12.2018_K-data4.12.2018_K*(KorFak4.12.2018_K/100)
data4.12.2018_P<-data4.12.2018$P
KorFak4.12.2018_P<-KorFak4.12.2018$lDrift_P
P<- data4.12.2018_P-data4.12.2018_P*(KorFak4.12.2018_P/100)
data4.12.2018_S<-data4.12.2018$S
KorFak4.12.2018_S<-KorFak4.12.2018$lDrift_S
S<- data4.12.2018_S-data4.12.2018_S*(KorFak4.12.2018_S/100)
data4.12.2018_Cl<-data4.12.2018$Cl
KorFak4.12.2018_Cl<-KorFak4.12.2018$lDrift_Cl
Cl<- data4.12.2018_Cl-data4.12.2018_Cl*(KorFak4.12.2018_Cl/100)
data4.12.2018_V<-data4.12.2018$V
KorFak4.12.2018_V<-KorFak4.12.2018$lDrift_V
V<- data4.12.2018_V-data4.12.2018_V*(KorFak4.12.2018_V/100)
data4.12.2018_Cr<-data4.12.2018$Cr
KorFak4.12.2018_Cr<-KorFak4.12.2018$lDrift_Cr
Cr<- data4.12.2018_Cr-data4.12.2018_Cr*(KorFak4.12.2018_Cr/100)
data4.12.2018_Ni<-data4.12.2018$Ni
KorFak4.12.2018_Ni<-KorFak4.12.2018$lDrift_Ni
Ni<- data4.12.2018_Ni-data4.12.2018_Ni*(KorFak4.12.2018_Ni/100)
data4.12.2018_Cu<-data4.12.2018$Cu
KorFak4.12.2018_Cu<-KorFak4.12.2018$lDrift_Cu
Cu<- data4.12.2018_Cu-data4.12.2018_Cu*(KorFak4.12.2018_Cu/100)
data4.12.2018_Zn<-data4.12.2018$Zn
KorFak4.12.2018_Zn<-KorFak4.12.2018$lDrift_Zn
Zn<- data4.12.2018_Zn-data4.12.2018_Zn*(KorFak4.12.2018_Zn/100)
data4.12.2018_As<-data4.12.2018$As
KorFak4.12.2018_As<-KorFak4.12.2018$lDrift_As
As<- data4.12.2018_As-data4.12.2018_As*(KorFak4.12.2018_As/100)
data4.12.2018_Se<-data4.12.2018$Se
KorFak4.12.2018_Se<-KorFak4.12.2018$lDrift_Se
Se<- data4.12.2018_Se-data4.12.2018_Se*(KorFak4.12.2018_Se/100)
data4.12.2018_Rb<-data4.12.2018$Rb
KorFak4.12.2018_Rb<-KorFak4.12.2018$lDrift_Rb
Rb<- data4.12.2018_Rb-data4.12.2018_Rb*(KorFak4.12.2018_Rb/100)
data4.12.2018_Sr<-data4.12.2018$Sr
KorFak4.12.2018_Sr<-KorFak4.12.2018$lDrift_Sr
Sr<- data4.12.2018_Sr-data4.12.2018_Sr*(KorFak4.12.2018_Sr/100)
data4.12.2018_Y<-data4.12.2018$Y
KorFak4.12.2018_Y<-KorFak4.12.2018$lDrift_Y
Y<- data4.12.2018_Y-data4.12.2018_Y*(KorFak4.12.2018_Y/100)
data4.12.2018_Zr<-data4.12.2018$Zr
KorFak4.12.2018_Zr<-KorFak4.12.2018$lDrift_Zr
Zr<- data4.12.2018_Zr-data4.12.2018_Zr*(KorFak4.12.2018_Zr/100)
data4.12.2018_Nb<-data4.12.2018$Nb
KorFak4.12.2018_Nb<-KorFak4.12.2018$lDrift_Nb
Nb<- data4.12.2018_Nb-data4.12.2018_Nb*(KorFak4.12.2018_Nb/100)
data4.12.2018_Mo<-data4.12.2018$Mo
KorFak4.12.2018_Mo<-KorFak4.12.2018$lDrift_Mo
Mo<- data4.12.2018_Mo-data4.12.2018_Mo*(KorFak4.12.2018_Mo/100)
data4.12.2018_Ag<-data4.12.2018$Ag
KorFak4.12.2018_Ag<-KorFak4.12.2018$lDrift_Ag
Ag<- data4.12.2018_Ag-data4.12.2018_Ag*(KorFak4.12.2018_Ag/100)
data4.12.2018_Cd<-data4.12.2018$Cd
KorFak4.12.2018_Cd<-KorFak4.12.2018$lDrift_Cd
Cd<- data4.12.2018_Cd-data4.12.2018_Cd*(KorFak4.12.2018_Cd/100)
data4.12.2018_Sn<-data4.12.2018$Sn
KorFak4.12.2018_Sn<-KorFak4.12.2018$lDrift_Sn
Sn<- data4.12.2018_Sn-data4.12.2018_Sn*(KorFak4.12.2018_Sn/100)
data4.12.2018_Sb<-data4.12.2018$Sb
KorFak4.12.2018_Sb<-KorFak4.12.2018$lDrift_Sb
Sb<- data4.12.2018_Sb-data4.12.2018_Sb*(KorFak4.12.2018_Sb/100)
data4.12.2018_Te<-data4.12.2018$Te
KorFak4.12.2018_Te<-KorFak4.12.2018$lDrift_Te
Te<- data4.12.2018_Te-data4.12.2018_Te*(KorFak4.12.2018_Te/100)
data4.12.2018_Cs<-data4.12.2018$Cs
KorFak4.12.2018_Cs<-KorFak4.12.2018$lDrift_Cs
Cs<- data4.12.2018_Cs-data4.12.2018_Cs*(KorFak4.12.2018_Cs/100)
data4.12.2018_Ba<-data4.12.2018$Ba
KorFak4.12.2018_Ba<-KorFak4.12.2018$lDrift_Ba
Ba<- data4.12.2018_Ba-data4.12.2018_Ba*(KorFak4.12.2018_Ba/100)
data4.12.2018_La<-data4.12.2018$La
KorFak4.12.2018_La<-KorFak4.12.2018$lDrift_La
La<- data4.12.2018_La-data4.12.2018_La*(KorFak4.12.2018_La/100)
data4.12.2018_Pb<-data4.12.2018$Pb
KorFak4.12.2018_Pb<-KorFak4.12.2018$lDrift_Pb
Pb<- data4.12.2018_Pb-data4.12.2018_Pb*(KorFak4.12.2018_Pb/100)
data4.12.2018_Th<-data4.12.2018$Th
KorFak4.12.2018_Th<-KorFak4.12.2018$lDrift_Th
Th<- data4.12.2018_Th-data4.12.2018_Th*(KorFak4.12.2018_Th/100)
data4.12.2018_U<-data4.12.2018$U
KorFak4.12.2018_U<-KorFak4.12.2018$lDrift_U
U<- data4.12.2018_U-data4.12.2018_U*(KorFak4.12.2018_U/100)
Daten_BB_lDrift_Kor4.12.2018<-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)7.2.23 l-Drift Korrektur des 5.12.2018
KorFak5.12.2018<-KorFak %>% filter(Datum_median=="5.12.2018")
data5.12.2018<-data %>% filter(Datum=="5.12.2018")
Probennummer<-data5.12.2018$Probennummer
Datum<-data5.12.2018$Datum
data5.12.2018_Si<-data5.12.2018$Si
KorFak5.12.2018_Si<-KorFak5.12.2018$lDrift_Si
Si<- data5.12.2018_Si-data5.12.2018_Si*(KorFak5.12.2018_Si/100)
data5.12.2018_Ti<-data5.12.2018$Ti
KorFak5.12.2018_Ti<-KorFak5.12.2018$lDrift_Ti
Ti<- data5.12.2018_Ti-data5.12.2018_Ti*(KorFak5.12.2018_Ti/100)
data5.12.2018_Al<-data5.12.2018$Al
KorFak5.12.2018_Al<-KorFak5.12.2018$lDrift_Al
Al<- data5.12.2018_Al-data5.12.2018_Al*(KorFak5.12.2018_Al/100)
data5.12.2018_Fe<-data5.12.2018$Fe
KorFak5.12.2018_Fe<-KorFak5.12.2018$lDrift_Fe
Fe<- data5.12.2018_Fe-data5.12.2018_Fe*(KorFak5.12.2018_Fe/100)
data5.12.2018_Mn<-data5.12.2018$Mn
KorFak5.12.2018_Mn<-KorFak5.12.2018$lDrift_Mn
Mn<- data5.12.2018_Mn-data5.12.2018_Mn*(KorFak5.12.2018_Mn/100)
data5.12.2018_Mg<-data5.12.2018$Mg
KorFak5.12.2018_Mg<-KorFak5.12.2018$lDrift_Mg
Mg<- data5.12.2018_Mg-data5.12.2018_Mg*(KorFak5.12.2018_Mg/100)
data5.12.2018_Ca<-data5.12.2018$Ca
KorFak5.12.2018_Ca<-KorFak5.12.2018$lDrift_Ca
Ca<- data5.12.2018_Ca-data5.12.2018_Ca*(KorFak5.12.2018_Ca/100)
data5.12.2018_K<-data5.12.2018$K
KorFak5.12.2018_K<-KorFak5.12.2018$lDrift_K
K<- data5.12.2018_K-data5.12.2018_K*(KorFak5.12.2018_K/100)
data5.12.2018_P<-data5.12.2018$P
KorFak5.12.2018_P<-KorFak5.12.2018$lDrift_P
P<- data5.12.2018_P-data5.12.2018_P*(KorFak5.12.2018_P/100)
data5.12.2018_S<-data5.12.2018$S
KorFak5.12.2018_S<-KorFak5.12.2018$lDrift_S
S<- data5.12.2018_S-data5.12.2018_S*(KorFak5.12.2018_S/100)
data5.12.2018_Cl<-data5.12.2018$Cl
KorFak5.12.2018_Cl<-KorFak5.12.2018$lDrift_Cl
Cl<- data5.12.2018_Cl-data5.12.2018_Cl*(KorFak5.12.2018_Cl/100)
data5.12.2018_V<-data5.12.2018$V
KorFak5.12.2018_V<-KorFak5.12.2018$lDrift_V
V<- data5.12.2018_V-data5.12.2018_V*(KorFak5.12.2018_V/100)
data5.12.2018_Cr<-data5.12.2018$Cr
KorFak5.12.2018_Cr<-KorFak5.12.2018$lDrift_Cr
Cr<- data5.12.2018_Cr-data5.12.2018_Cr*(KorFak5.12.2018_Cr/100)
data5.12.2018_Ni<-data5.12.2018$Ni
KorFak5.12.2018_Ni<-KorFak5.12.2018$lDrift_Ni
Ni<- data5.12.2018_Ni-data5.12.2018_Ni*(KorFak5.12.2018_Ni/100)
data5.12.2018_Cu<-data5.12.2018$Cu
KorFak5.12.2018_Cu<-KorFak5.12.2018$lDrift_Cu
Cu<- data5.12.2018_Cu-data5.12.2018_Cu*(KorFak5.12.2018_Cu/100)
data5.12.2018_Zn<-data5.12.2018$Zn
KorFak5.12.2018_Zn<-KorFak5.12.2018$lDrift_Zn
Zn<- data5.12.2018_Zn-data5.12.2018_Zn*(KorFak5.12.2018_Zn/100)
data5.12.2018_As<-data5.12.2018$As
KorFak5.12.2018_As<-KorFak5.12.2018$lDrift_As
As<- data5.12.2018_As-data5.12.2018_As*(KorFak5.12.2018_As/100)
data5.12.2018_Se<-data5.12.2018$Se
KorFak5.12.2018_Se<-KorFak5.12.2018$lDrift_Se
Se<- data5.12.2018_Se-data5.12.2018_Se*(KorFak5.12.2018_Se/100)
data5.12.2018_Rb<-data5.12.2018$Rb
KorFak5.12.2018_Rb<-KorFak5.12.2018$lDrift_Rb
Rb<- data5.12.2018_Rb-data5.12.2018_Rb*(KorFak5.12.2018_Rb/100)
data5.12.2018_Sr<-data5.12.2018$Sr
KorFak5.12.2018_Sr<-KorFak5.12.2018$lDrift_Sr
Sr<- data5.12.2018_Sr-data5.12.2018_Sr*(KorFak5.12.2018_Sr/100)
data5.12.2018_Y<-data5.12.2018$Y
KorFak5.12.2018_Y<-KorFak5.12.2018$lDrift_Y
Y<- data5.12.2018_Y-data5.12.2018_Y*(KorFak5.12.2018_Y/100)
data5.12.2018_Zr<-data5.12.2018$Zr
KorFak5.12.2018_Zr<-KorFak5.12.2018$lDrift_Zr
Zr<- data5.12.2018_Zr-data5.12.2018_Zr*(KorFak5.12.2018_Zr/100)
data5.12.2018_Nb<-data5.12.2018$Nb
KorFak5.12.2018_Nb<-KorFak5.12.2018$lDrift_Nb
Nb<- data5.12.2018_Nb-data5.12.2018_Nb*(KorFak5.12.2018_Nb/100)
data5.12.2018_Mo<-data5.12.2018$Mo
KorFak5.12.2018_Mo<-KorFak5.12.2018$lDrift_Mo
Mo<- data5.12.2018_Mo-data5.12.2018_Mo*(KorFak5.12.2018_Mo/100)
data5.12.2018_Ag<-data5.12.2018$Ag
KorFak5.12.2018_Ag<-KorFak5.12.2018$lDrift_Ag
Ag<- data5.12.2018_Ag-data5.12.2018_Ag*(KorFak5.12.2018_Ag/100)
data5.12.2018_Cd<-data5.12.2018$Cd
KorFak5.12.2018_Cd<-KorFak5.12.2018$lDrift_Cd
Cd<- data5.12.2018_Cd-data5.12.2018_Cd*(KorFak5.12.2018_Cd/100)
data5.12.2018_Sn<-data5.12.2018$Sn
KorFak5.12.2018_Sn<-KorFak5.12.2018$lDrift_Sn
Sn<- data5.12.2018_Sn-data5.12.2018_Sn*(KorFak5.12.2018_Sn/100)
data5.12.2018_Sb<-data5.12.2018$Sb
KorFak5.12.2018_Sb<-KorFak5.12.2018$lDrift_Sb
Sb<- data5.12.2018_Sb-data5.12.2018_Sb*(KorFak5.12.2018_Sb/100)
data5.12.2018_Te<-data5.12.2018$Te
KorFak5.12.2018_Te<-KorFak5.12.2018$lDrift_Te
Te<- data5.12.2018_Te-data5.12.2018_Te*(KorFak5.12.2018_Te/100)
data5.12.2018_Cs<-data5.12.2018$Cs
KorFak5.12.2018_Cs<-KorFak5.12.2018$lDrift_Cs
Cs<- data5.12.2018_Cs-data5.12.2018_Cs*(KorFak5.12.2018_Cs/100)
data5.12.2018_Ba<-data5.12.2018$Ba
KorFak5.12.2018_Ba<-KorFak5.12.2018$lDrift_Ba
Ba<- data5.12.2018_Ba-data5.12.2018_Ba*(KorFak5.12.2018_Ba/100)
data5.12.2018_La<-data5.12.2018$La
KorFak5.12.2018_La<-KorFak5.12.2018$lDrift_La
La<- data5.12.2018_La-data5.12.2018_La*(KorFak5.12.2018_La/100)
data5.12.2018_Pb<-data5.12.2018$Pb
KorFak5.12.2018_Pb<-KorFak5.12.2018$lDrift_Pb
Pb<- data5.12.2018_Pb-data5.12.2018_Pb*(KorFak5.12.2018_Pb/100)
data5.12.2018_Th<-data5.12.2018$Th
KorFak5.12.2018_Th<-KorFak5.12.2018$lDrift_Th
Th<- data5.12.2018_Th-data5.12.2018_Th*(KorFak5.12.2018_Th/100)
data5.12.2018_U<-data5.12.2018$U
KorFak5.12.2018_U<-KorFak5.12.2018$lDrift_U
U<- data5.12.2018_U-data5.12.2018_U*(KorFak5.12.2018_U/100)
Daten_BB_lDrift_Kor5.12.2018<-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)7.2.24 l-Drift Korrektur des 6.12.2018
KorFak6.12.2018<-KorFak %>% filter(Datum_median=="6.12.2018")
data6.12.2018<-data %>% filter(Datum=="6.12.2018")
Probennummer<-data6.12.2018$Probennummer
Datum<-data6.12.2018$Datum
data6.12.2018_Si<-data6.12.2018$Si
KorFak6.12.2018_Si<-KorFak6.12.2018$lDrift_Si
Si<- data6.12.2018_Si-data6.12.2018_Si*(KorFak6.12.2018_Si/100)
data6.12.2018_Ti<-data6.12.2018$Ti
KorFak6.12.2018_Ti<-KorFak6.12.2018$lDrift_Ti
Ti<- data6.12.2018_Ti-data6.12.2018_Ti*(KorFak6.12.2018_Ti/100)
data6.12.2018_Al<-data6.12.2018$Al
KorFak6.12.2018_Al<-KorFak6.12.2018$lDrift_Al
Al<- data6.12.2018_Al-data6.12.2018_Al*(KorFak6.12.2018_Al/100)
data6.12.2018_Fe<-data6.12.2018$Fe
KorFak6.12.2018_Fe<-KorFak6.12.2018$lDrift_Fe
Fe<- data6.12.2018_Fe-data6.12.2018_Fe*(KorFak6.12.2018_Fe/100)
data6.12.2018_Mn<-data6.12.2018$Mn
KorFak6.12.2018_Mn<-KorFak6.12.2018$lDrift_Mn
Mn<- data6.12.2018_Mn-data6.12.2018_Mn*(KorFak6.12.2018_Mn/100)
data6.12.2018_Mg<-data6.12.2018$Mg
KorFak6.12.2018_Mg<-KorFak6.12.2018$lDrift_Mg
Mg<- data6.12.2018_Mg-data6.12.2018_Mg*(KorFak6.12.2018_Mg/100)
data6.12.2018_Ca<-data6.12.2018$Ca
KorFak6.12.2018_Ca<-KorFak6.12.2018$lDrift_Ca
Ca<- data6.12.2018_Ca-data6.12.2018_Ca*(KorFak6.12.2018_Ca/100)
data6.12.2018_K<-data6.12.2018$K
KorFak6.12.2018_K<-KorFak6.12.2018$lDrift_K
K<- data6.12.2018_K-data6.12.2018_K*(KorFak6.12.2018_K/100)
data6.12.2018_P<-data6.12.2018$P
KorFak6.12.2018_P<-KorFak6.12.2018$lDrift_P
P<- data6.12.2018_P-data6.12.2018_P*(KorFak6.12.2018_P/100)
data6.12.2018_S<-data6.12.2018$S
KorFak6.12.2018_S<-KorFak6.12.2018$lDrift_S
S<- data6.12.2018_S-data6.12.2018_S*(KorFak6.12.2018_S/100)
data6.12.2018_Cl<-data6.12.2018$Cl
KorFak6.12.2018_Cl<-KorFak6.12.2018$lDrift_Cl
Cl<- data6.12.2018_Cl-data6.12.2018_Cl*(KorFak6.12.2018_Cl/100)
data6.12.2018_V<-data6.12.2018$V
KorFak6.12.2018_V<-KorFak6.12.2018$lDrift_V
V<- data6.12.2018_V-data6.12.2018_V*(KorFak6.12.2018_V/100)
data6.12.2018_Cr<-data6.12.2018$Cr
KorFak6.12.2018_Cr<-KorFak6.12.2018$lDrift_Cr
Cr<- data6.12.2018_Cr-data6.12.2018_Cr*(KorFak6.12.2018_Cr/100)
data6.12.2018_Ni<-data6.12.2018$Ni
KorFak6.12.2018_Ni<-KorFak6.12.2018$lDrift_Ni
Ni<- data6.12.2018_Ni-data6.12.2018_Ni*(KorFak6.12.2018_Ni/100)
data6.12.2018_Cu<-data6.12.2018$Cu
KorFak6.12.2018_Cu<-KorFak6.12.2018$lDrift_Cu
Cu<- data6.12.2018_Cu-data6.12.2018_Cu*(KorFak6.12.2018_Cu/100)
data6.12.2018_Zn<-data6.12.2018$Zn
KorFak6.12.2018_Zn<-KorFak6.12.2018$lDrift_Zn
Zn<- data6.12.2018_Zn-data6.12.2018_Zn*(KorFak6.12.2018_Zn/100)
data6.12.2018_As<-data6.12.2018$As
KorFak6.12.2018_As<-KorFak6.12.2018$lDrift_As
As<- data6.12.2018_As-data6.12.2018_As*(KorFak6.12.2018_As/100)
data6.12.2018_Se<-data6.12.2018$Se
KorFak6.12.2018_Se<-KorFak6.12.2018$lDrift_Se
Se<- data6.12.2018_Se-data6.12.2018_Se*(KorFak6.12.2018_Se/100)
data6.12.2018_Rb<-data6.12.2018$Rb
KorFak6.12.2018_Rb<-KorFak6.12.2018$lDrift_Rb
Rb<- data6.12.2018_Rb-data6.12.2018_Rb*(KorFak6.12.2018_Rb/100)
data6.12.2018_Sr<-data6.12.2018$Sr
KorFak6.12.2018_Sr<-KorFak6.12.2018$lDrift_Sr
Sr<- data6.12.2018_Sr-data6.12.2018_Sr*(KorFak6.12.2018_Sr/100)
data6.12.2018_Y<-data6.12.2018$Y
KorFak6.12.2018_Y<-KorFak6.12.2018$lDrift_Y
Y<- data6.12.2018_Y-data6.12.2018_Y*(KorFak6.12.2018_Y/100)
data6.12.2018_Zr<-data6.12.2018$Zr
KorFak6.12.2018_Zr<-KorFak6.12.2018$lDrift_Zr
Zr<- data6.12.2018_Zr-data6.12.2018_Zr*(KorFak6.12.2018_Zr/100)
data6.12.2018_Nb<-data6.12.2018$Nb
KorFak6.12.2018_Nb<-KorFak6.12.2018$lDrift_Nb
Nb<- data6.12.2018_Nb-data6.12.2018_Nb*(KorFak6.12.2018_Nb/100)
data6.12.2018_Mo<-data6.12.2018$Mo
KorFak6.12.2018_Mo<-KorFak6.12.2018$lDrift_Mo
Mo<- data6.12.2018_Mo-data6.12.2018_Mo*(KorFak6.12.2018_Mo/100)
data6.12.2018_Ag<-data6.12.2018$Ag
KorFak6.12.2018_Ag<-KorFak6.12.2018$lDrift_Ag
Ag<- data6.12.2018_Ag-data6.12.2018_Ag*(KorFak6.12.2018_Ag/100)
data6.12.2018_Cd<-data6.12.2018$Cd
KorFak6.12.2018_Cd<-KorFak6.12.2018$lDrift_Cd
Cd<- data6.12.2018_Cd-data6.12.2018_Cd*(KorFak6.12.2018_Cd/100)
data6.12.2018_Sn<-data6.12.2018$Sn
KorFak6.12.2018_Sn<-KorFak6.12.2018$lDrift_Sn
Sn<- data6.12.2018_Sn-data6.12.2018_Sn*(KorFak6.12.2018_Sn/100)
data6.12.2018_Sb<-data6.12.2018$Sb
KorFak6.12.2018_Sb<-KorFak6.12.2018$lDrift_Sb
Sb<- data6.12.2018_Sb-data6.12.2018_Sb*(KorFak6.12.2018_Sb/100)
data6.12.2018_Te<-data6.12.2018$Te
KorFak6.12.2018_Te<-KorFak6.12.2018$lDrift_Te
Te<- data6.12.2018_Te-data6.12.2018_Te*(KorFak6.12.2018_Te/100)
data6.12.2018_Cs<-data6.12.2018$Cs
KorFak6.12.2018_Cs<-KorFak6.12.2018$lDrift_Cs
Cs<- data6.12.2018_Cs-data6.12.2018_Cs*(KorFak6.12.2018_Cs/100)
data6.12.2018_Ba<-data6.12.2018$Ba
KorFak6.12.2018_Ba<-KorFak6.12.2018$lDrift_Ba
Ba<- data6.12.2018_Ba-data6.12.2018_Ba*(KorFak6.12.2018_Ba/100)
data6.12.2018_La<-data6.12.2018$La
KorFak6.12.2018_La<-KorFak6.12.2018$lDrift_La
La<- data6.12.2018_La-data6.12.2018_La*(KorFak6.12.2018_La/100)
data6.12.2018_Pb<-data6.12.2018$Pb
KorFak6.12.2018_Pb<-KorFak6.12.2018$lDrift_Pb
Pb<- data6.12.2018_Pb-data6.12.2018_Pb*(KorFak6.12.2018_Pb/100)
data6.12.2018_Th<-data6.12.2018$Th
KorFak6.12.2018_Th<-KorFak6.12.2018$lDrift_Th
Th<- data6.12.2018_Th-data6.12.2018_Th*(KorFak6.12.2018_Th/100)
data6.12.2018_U<-data6.12.2018$U
KorFak6.12.2018_U<-KorFak6.12.2018$lDrift_U
U<- data6.12.2018_U-data6.12.2018_U*(KorFak6.12.2018_U/100)
Daten_BB_lDrift_Kor6.12.2018<-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)7.2.25 l-Drift Korrektur des 3.3.2020
KorFak3.3.2020<-KorFak %>% filter(Datum_median=="3.3.2020")
data3.3.2020<-data %>% filter(Datum=="3.3.2020")
Probennummer<-data3.3.2020$Probennummer
Datum<-data3.3.2020$Datum
data3.3.2020_Si<-data3.3.2020$Si
KorFak3.3.2020_Si<-KorFak3.3.2020$lDrift_Si
Si<- data3.3.2020_Si-data3.3.2020_Si*(KorFak3.3.2020_Si/100)
data3.3.2020_Ti<-data3.3.2020$Ti
KorFak3.3.2020_Ti<-KorFak3.3.2020$lDrift_Ti
Ti<- data3.3.2020_Ti-data3.3.2020_Ti*(KorFak3.3.2020_Ti/100)
data3.3.2020_Al<-data3.3.2020$Al
KorFak3.3.2020_Al<-KorFak3.3.2020$lDrift_Al
Al<- data3.3.2020_Al-data3.3.2020_Al*(KorFak3.3.2020_Al/100)
data3.3.2020_Fe<-data3.3.2020$Fe
KorFak3.3.2020_Fe<-KorFak3.3.2020$lDrift_Fe
Fe<- data3.3.2020_Fe-data3.3.2020_Fe*(KorFak3.3.2020_Fe/100)
data3.3.2020_Mn<-data3.3.2020$Mn
KorFak3.3.2020_Mn<-KorFak3.3.2020$lDrift_Mn
Mn<- data3.3.2020_Mn-data3.3.2020_Mn*(KorFak3.3.2020_Mn/100)
data3.3.2020_Mg<-data3.3.2020$Mg
KorFak3.3.2020_Mg<-KorFak3.3.2020$lDrift_Mg
Mg<- data3.3.2020_Mg-data3.3.2020_Mg*(KorFak3.3.2020_Mg/100)
data3.3.2020_Ca<-data3.3.2020$Ca
KorFak3.3.2020_Ca<-KorFak3.3.2020$lDrift_Ca
Ca<- data3.3.2020_Ca-data3.3.2020_Ca*(KorFak3.3.2020_Ca/100)
data3.3.2020_K<-data3.3.2020$K
KorFak3.3.2020_K<-KorFak3.3.2020$lDrift_K
K<- data3.3.2020_K-data3.3.2020_K*(KorFak3.3.2020_K/100)
data3.3.2020_P<-data3.3.2020$P
KorFak3.3.2020_P<-KorFak3.3.2020$lDrift_P
P<- data3.3.2020_P-data3.3.2020_P*(KorFak3.3.2020_P/100)
data3.3.2020_S<-data3.3.2020$S
KorFak3.3.2020_S<-KorFak3.3.2020$lDrift_S
S<- data3.3.2020_S-data3.3.2020_S*(KorFak3.3.2020_S/100)
data3.3.2020_Cl<-data3.3.2020$Cl
KorFak3.3.2020_Cl<-KorFak3.3.2020$lDrift_Cl
Cl<- data3.3.2020_Cl-data3.3.2020_Cl*(KorFak3.3.2020_Cl/100)
data3.3.2020_V<-data3.3.2020$V
KorFak3.3.2020_V<-KorFak3.3.2020$lDrift_V
V<- data3.3.2020_V-data3.3.2020_V*(KorFak3.3.2020_V/100)
data3.3.2020_Cr<-data3.3.2020$Cr
KorFak3.3.2020_Cr<-KorFak3.3.2020$lDrift_Cr
Cr<- data3.3.2020_Cr-data3.3.2020_Cr*(KorFak3.3.2020_Cr/100)
data3.3.2020_Ni<-data3.3.2020$Ni
KorFak3.3.2020_Ni<-KorFak3.3.2020$lDrift_Ni
Ni<- data3.3.2020_Ni-data3.3.2020_Ni*(KorFak3.3.2020_Ni/100)
data3.3.2020_Cu<-data3.3.2020$Cu
KorFak3.3.2020_Cu<-KorFak3.3.2020$lDrift_Cu
Cu<- data3.3.2020_Cu-data3.3.2020_Cu*(KorFak3.3.2020_Cu/100)
data3.3.2020_Zn<-data3.3.2020$Zn
KorFak3.3.2020_Zn<-KorFak3.3.2020$lDrift_Zn
Zn<- data3.3.2020_Zn-data3.3.2020_Zn*(KorFak3.3.2020_Zn/100)
data3.3.2020_As<-data3.3.2020$As
KorFak3.3.2020_As<-KorFak3.3.2020$lDrift_As
As<- data3.3.2020_As-data3.3.2020_As*(KorFak3.3.2020_As/100)
data3.3.2020_Se<-data3.3.2020$Se
KorFak3.3.2020_Se<-KorFak3.3.2020$lDrift_Se
Se<- data3.3.2020_Se-data3.3.2020_Se*(KorFak3.3.2020_Se/100)
data3.3.2020_Rb<-data3.3.2020$Rb
KorFak3.3.2020_Rb<-KorFak3.3.2020$lDrift_Rb
Rb<- data3.3.2020_Rb-data3.3.2020_Rb*(KorFak3.3.2020_Rb/100)
data3.3.2020_Sr<-data3.3.2020$Sr
KorFak3.3.2020_Sr<-KorFak3.3.2020$lDrift_Sr
Sr<- data3.3.2020_Sr-data3.3.2020_Sr*(KorFak3.3.2020_Sr/100)
data3.3.2020_Y<-data3.3.2020$Y
KorFak3.3.2020_Y<-KorFak3.3.2020$lDrift_Y
Y<- data3.3.2020_Y-data3.3.2020_Y*(KorFak3.3.2020_Y/100)
data3.3.2020_Zr<-data3.3.2020$Zr
KorFak3.3.2020_Zr<-KorFak3.3.2020$lDrift_Zr
Zr<- data3.3.2020_Zr-data3.3.2020_Zr*(KorFak3.3.2020_Zr/100)
data3.3.2020_Nb<-data3.3.2020$Nb
KorFak3.3.2020_Nb<-KorFak3.3.2020$lDrift_Nb
Nb<- data3.3.2020_Nb-data3.3.2020_Nb*(KorFak3.3.2020_Nb/100)
data3.3.2020_Mo<-data3.3.2020$Mo
KorFak3.3.2020_Mo<-KorFak3.3.2020$lDrift_Mo
Mo<- data3.3.2020_Mo-data3.3.2020_Mo*(KorFak3.3.2020_Mo/100)
data3.3.2020_Ag<-data3.3.2020$Ag
KorFak3.3.2020_Ag<-KorFak3.3.2020$lDrift_Ag
Ag<- data3.3.2020_Ag-data3.3.2020_Ag*(KorFak3.3.2020_Ag/100)
data3.3.2020_Cd<-data3.3.2020$Cd
KorFak3.3.2020_Cd<-KorFak3.3.2020$lDrift_Cd
Cd<- data3.3.2020_Cd-data3.3.2020_Cd*(KorFak3.3.2020_Cd/100)
data3.3.2020_Sn<-data3.3.2020$Sn
KorFak3.3.2020_Sn<-KorFak3.3.2020$lDrift_Sn
Sn<- data3.3.2020_Sn-data3.3.2020_Sn*(KorFak3.3.2020_Sn/100)
data3.3.2020_Sb<-data3.3.2020$Sb
KorFak3.3.2020_Sb<-KorFak3.3.2020$lDrift_Sb
Sb<- data3.3.2020_Sb-data3.3.2020_Sb*(KorFak3.3.2020_Sb/100)
data3.3.2020_Te<-data3.3.2020$Te
KorFak3.3.2020_Te<-KorFak3.3.2020$lDrift_Te
Te<- data3.3.2020_Te-data3.3.2020_Te*(KorFak3.3.2020_Te/100)
data3.3.2020_Cs<-data3.3.2020$Cs
KorFak3.3.2020_Cs<-KorFak3.3.2020$lDrift_Cs
Cs<- data3.3.2020_Cs-data3.3.2020_Cs*(KorFak3.3.2020_Cs/100)
data3.3.2020_Ba<-data3.3.2020$Ba
KorFak3.3.2020_Ba<-KorFak3.3.2020$lDrift_Ba
Ba<- data3.3.2020_Ba-data3.3.2020_Ba*(KorFak3.3.2020_Ba/100)
data3.3.2020_La<-data3.3.2020$La
KorFak3.3.2020_La<-KorFak3.3.2020$lDrift_La
La<- data3.3.2020_La-data3.3.2020_La*(KorFak3.3.2020_La/100)
data3.3.2020_Pb<-data3.3.2020$Pb
KorFak3.3.2020_Pb<-KorFak3.3.2020$lDrift_Pb
Pb<- data3.3.2020_Pb-data3.3.2020_Pb*(KorFak3.3.2020_Pb/100)
data3.3.2020_Th<-data3.3.2020$Th
KorFak3.3.2020_Th<-KorFak3.3.2020$lDrift_Th
Th<- data3.3.2020_Th-data3.3.2020_Th*(KorFak3.3.2020_Th/100)
data3.3.2020_U<-data3.3.2020$U
KorFak3.3.2020_U<-KorFak3.3.2020$lDrift_U
U<- data3.3.2020_U-data3.3.2020_U*(KorFak3.3.2020_U/100)
Daten_BB_lDrift_Kor3.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)7.2.26 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)
Daten_BB_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)7.2.27 Zusammenführen und Exportieren aller Variablen als Tabelle
# Zeilenweise Kombination mehrerer Dataframes
Daten_BB_lDrift_Kor_gesamt <- rbind(Daten_BB_lDrift_Kor27.9.2018,Daten_BB_lDrift_Kor28.9.2018,Daten_BB_lDrift_Kor29.9.2018,Daten_BB_lDrift_Kor1.10.2018,Daten_BB_lDrift_Kor2.10.2018,Daten_BB_lDrift_Kor3.10.2018,Daten_BB_lDrift_Kor4.10.2018,Daten_BB_lDrift_Kor13.11.2018,Daten_BB_lDrift_Kor14.11.2018,Daten_BB_lDrift_Kor15.11.2018,Daten_BB_lDrift_Kor16.11.2018,Daten_BB_lDrift_Kor17.11.2018,Daten_BB_lDrift_Kor18.11.2018,Daten_BB_lDrift_Kor19.11.2018,Daten_BB_lDrift_Kor20.11.2018,Daten_BB_lDrift_Kor21.11.2018,Daten_BB_lDrift_Kor22.11.2018,Daten_BB_lDrift_Kor23.11.2018,Daten_BB_lDrift_Kor24.11.2018,Daten_BB_lDrift_Kor3.12.2018,Daten_BB_lDrift_Kor4.12.2018,Daten_BB_lDrift_Kor5.12.2018,Daten_BB_lDrift_Kor6.12.2018,Daten_BB_lDrift_Kor3.3.2020,Daten_BB_lDrift_Kor4.3.2020)
# Speichern als CSV
write.csv(Daten_BB_lDrift_Kor_gesamt,"../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_lDrift_Kor_gesamt.csv",row.names=FALSE)8 Koeffizientenkorrekturen (coefcors)
8.1 Koeffizientenkorrektur Koefkor(coecor) IIIaufII für 2020
8.1.1 Zusammenstellen der Daten und Variablen
# Daten einlesen und filtern
dataset<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_lDrift_Kor_gesamt.csv")
dataset <- subset(dataset, Datum %in% c("3.3.2020", "4.3.2020"))
# Daten einlesen
coefcor<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Coefcor//coefcorIIItoII_factors.csv")
# Definieren relevanter Variablen
Probennummer<-dataset$Probennummer
Datum<-dataset$Datum
Cu<-dataset$Cu8.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
Ni<-dataset$Ni
Ni_a<-coefcor$Ni_a
Ni_b<-coefcor$Ni_b
Ni<-Ni_a*Ni+Ni_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_b8.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.2//Grundlagen//Datengrundlage//Daten_BB_KoefkorIIIaufII_2020.csv",row.names=FALSE)8.2 Koeffizientenkorrektur Koefkor(coefcor) II für 2018 & 2020
8.2.1 Zusammenstellen der Daten und Variablen
# Daten einlesen und filtern
dataset1<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_lDrift_Kor_gesamt.csv")
dataset1<-dataset1 %>% filter(!(Datum=="3.3.2020"|Datum=="4.3.2020"))
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.2//Grundlagen//Datengrundlage//Daten_BB_KoefkorIIIaufII_2020.csv")
coefcor<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Coefcor//coefcorII_factors.csv")
# Zeilenweise Kombination mehrerer Dataframes
dataset<-rbind(dataset1,dataset2)
# Definieren relevanter Variablen
Probennummer<-dataset$Probennummer
Datum<-dataset$Datum8.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_b8.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.2//Grundlagen//Datengrundlage//Daten_BB_Koefkorfinal.csv",row.names=FALSE)9 Zusammenstellen der Grundlagendaten der Auswertung
# Daten einlesen
data1<- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_Koefkorfinal.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.2//Grundlagen//Datengrundlage//Daten_BB_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_BB_vollständig<-data3[!(data3$Probennummer=="50" | data3$Probennummer=="76-33"| data3$Probennummer=="76-135"| data3$Probennummer=="219-142"| data3$Probennummer=="244"| data3$Probennummer=="437"| data3$Probennummer=="442"| data3$Probennummer=="610"| data3$Probennummer=="782"| data3$Probennummer=="851"| data3$Probennummer=="978"| data3$Probennummer=="980"| data3$Probennummer=="1024"| data3$Probennummer=="1043"| data3$Probennummer=="1205"| data3$Probennummer=="1244"| data3$Probennummer=="1302"| data3$Probennummer=="1317"| data3$Probennummer=="1343"| data3$Probennummer=="1347"| data3$Probennummer=="1348"| data3$Probennummer=="1574-n"| data3$Probennummer=="18-55A"| data3$Probennummer=="94A"| data3$Probennummer=="408A"| data3$Probennummer=="623-14A"| data3$Probennummer=="980A"| data3$Probennummer=="1674A"| data3$Probennummer=="2966A"| data3$Probennummer=="460-2B"| data3$Probennummer=="703B"| data3$Probennummer=="1205B"| data3$Probennummer=="1868B"| data3$Probennummer=="3099B"| data3$Probennummer=="3104B"| data3$Probennummer=="3110B"| data3$Probennummer=="699-2AH"| data3$Probennummer=="Standard"),]
# Speichern als CSV
write.csv(Daten_BB_vollständig,"../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_vollständigMW.csv",row.names=FALSE)Händische Aufbereitung: Für alle Funde 1574/3107 wird je der Mittelwert für frischer Bruch, alte Oberfläche und alter Bruch gebildet. Bei 437V sowie 394-n handelt es sich um die erneute Messung von 437 respektive 394 da diese fehlerhaft waren. Der Wert von 394-n wird behalten, 437v in 437 umbennant und die zugehörigen archäologischen Informationen händisch aus Daten_BB_ArchDaten übernommen. Die Probe GA-1 wurde entfernt da sie nicht aus Friedberg-Bruchenbrücken stammt. Bei Probe 76-33 handelt es sich um einen Stein.
10 Normalverteilung
# Daten einlesen und filtern
data1<-read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_vollständigMW_bearb.csv")
data2<-data1[,c(3:23),]
# Definieren relevanter Variablen
Probennummer<-data1$Probennummer
Kultur<-data1$Kultur
# z-Tranformation durchführen
data3<-scale(data2,center=T)
# Kombinieren mehrerer Dataframes
data4<- cbind(data3,Probennummer,Kultur)
# Speichern als CSV
write.csv(data4,"../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_MW_QQ.csv",row.names=FALSE)11 Abb. 6-36
Die Daten für diese Abbildung wurden in R erstellt, die Zusammenstellung und Formatierung erfolgte in Excel (Tabelle) bzw. in Adobe Indesign (Grafiken)
11.1 Tabelle
# Daten einlesen und filtern
data1 <- read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_MW_QQ.csv")
data<-data1[,-c(22,23),]
# Definition der zu Variablen
variables_of_interest <- names(data)
# Definition der zu berechenden Faktoren
calculate_stats <- function(data, var_name) {
var <- data[[var_name]] # Auswahl der Variable
sk <- skewness(var) # Berechnen der Schiefe
kt <- kurtosis(var)-3 # Berechnen der Wölbung: Exzess = Kurtosis - 3
jb_test <- jarque.test(var) # Berechnen des Jarque-Berra-Tests
return(cbind(Schiefe = sk, Exzess = kt, JB = jb_test$JB, p_Wert = jb_test$p.value)) # Erstellen einer Tabelle mit den berechneten Faktoren
}
# Durchführen der Berechnungen
results_list <- lapply(variables_of_interest, function(var) {
calculate_stats(data, var)
})
# Zeilenweise Kombination mehrerer Dataframes
results_data <- do.call(rbind, results_list)
# Zeilenname hinzufügen
rownames(results_data) <- variables_of_interest
# Runden der Ergebnisse auf zwei Dezimalstellen
rounded_results_data <- round(results_data, 2)
# Transponieren der Daten
data2 <- t(rounded_results_data)
# Tabelle anzeigen
data2 SiO2 TiO2 Al2O3 Fe2O3 MnO MgO CaO K2O P2O5 V Cr Ni Cu
Schiefe -0.52 2.94 -0.30 1.49 11.40 -0.18 2.58 0.13 0.87 1.47 1.52 0.91 1.66
Exzess 0.44 12.61 0.89 3.44 176.03 0.63 6.41 0.90 0.70 5.09 4.84 2.44 5.63
p_Wert 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00
Zn Rb Sr Y Zr Nb Ba Pb
Schiefe 4.93 -0.07 1.40 1.33 0.03 1.75 -0.26 1.74
Exzess 44.69 0.20 5.55 4.67 -0.11 7.22 -0.05 7.41
p_Wert 0.00 0.54 0.00 0.00 0.86 0.00 0.06 0.00# Speichern als CSV
write.csv(data2, "../Daten//Kap_6//Kap_6.2//Abbildungen//Grundlagen//Tab_Abb_6_36.csv")11.2 Diagramme
# Daten einlesen
data<-read.csv("../Daten//Kap_6//Kap_6.2//Grundlagen//Datengrundlage//Daten_BB_MW_QQ.csv")
# Diagramme erstellen
QQ_zSiO2<-ggplot(data, aes(sample=SiO2))+
stat_qq_band()+ # Darstellung der Bereiche der Quantille
stat_qq()+ # Darstellung der QQ-Punkte
stat_qq_line()+ # Linie der Normalverteilung
theme_light() + # Schlichtes 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
labs(x = "Erwartete Werte", y = "Tatsächliche Werte")+labs(subtitle ="SiO2 z-tranformiert")+ # Manuelle Achsenbeschriftung
theme(plot.subtitle = element_text(hjust = 1,size=9)) # Manuelle Positionierung des Untertitels
HistNomvert_zSiO2<-ggplot(data,aes(x=SiO2))+
geom_histogram(aes(y = ..density..),fill="lightgrey", color="black",binwidth=0.5,bins=NULL)+ # Manuelle Definition der Balken
xlab("SiO2 z-transformiert")+ylab("Dichte")+ # 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
stat_function(fun = dnorm, args = list(mean = mean(data$SiO2), sd = sd(data$SiO2)))+ # Hinzufügen Normalverteilungskurve
geom_density(col = "gray53") # Hinzufügen Dichtekurve
QQ_zZr<-ggplot(data, aes(sample=Zr))+
stat_qq_band()+
stat_qq()+
stat_qq_line()+
theme_light() +
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"))+
labs(x = "Erwartete Werte", y = "Tatsächliche Werte")+labs(subtitle ="Zr z-tranformiert")+
theme(plot.subtitle = element_text(hjust = 1,size=9))
HistNomvert_zZr<-ggplot(data,aes(x=Zr))+
geom_histogram(aes(y = ..density..),fill="lightgrey", color="black",binwidth=0.5,bins=NULL)+
xlab("Zr z-transformiert")+ylab("Dichte")+
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"))+
stat_function(fun = dnorm, args = list(mean = mean(data$Zr), sd = sd(data$Zr)))+
geom_density(col = "gray37")
QQ_zZn<-ggplot(data, aes(sample=Zn))+
stat_qq_band()+
stat_qq()+
stat_qq_line()+
theme_light() +
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"))+
labs(x = "Erwartete Werte", y = "Tatsächliche Werte")+labs(subtitle ="Zn z-tranformiert")+
theme(plot.subtitle = element_text(hjust = 1,size=9))
HistNomvert_zZn<-ggplot(data,aes(x=Zn))+
geom_histogram(aes(y = ..density..),fill="lightgrey", color="black",binwidth=0.5,bins=NULL)+
xlab("Zn z-transformiert")+ylab("Dichte")+
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"))+
stat_function(fun = dnorm, args = list(mean = mean(data$Cr), sd = sd(data$Cr)))+
geom_density(col = "gray37")
# Kombinieren mehrerer Dataframes
All<-ggarrange(QQ_zZr,HistNomvert_zZr,QQ_zZn,HistNomvert_zZn,QQ_zSiO2,HistNomvert_zSiO2,ncol=4,nrow=2)
# Diagramm anzeigen
All
# Speicherort definieren
setwd("../Daten//Kap_6//Kap_6.2//Abbildungen//Grundlagen//")
# Definieren der Parameter der Datei
cairo_ps(filename = "Abb.6-36.eps",width = 6.8, height = 4, fallback_resolution = 1200)
# Plotten der Grafik
print(All)
# Schließen und Speichern des Diagramms
dev.off()12 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.
Komsta/Novomestky 2022: L. Komsta/F. Novomestky, moments: Moments, Cumulants, Skewness, Kurtosis and Related Tests: R package version 0.14.1. https://cran.r-project.org/package=moments.
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/.
Revelle 2024: W. Revelle, psych: Procedures for Psychological, Psychometric, and Personality Research: R package version 2.4.6. https://cran.r-project.org/package=psych.
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! 2(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.