Wirkstoffe <- read.csv2("Beispiel_Univariate.csv")
KS_Vergleich <- read.csv2("KS_Vergleich.csv")
split.screen(c(2,1))
screen(1)
hist(Wirkstoffe$Wirkstoff.A, main = "Wirkstoff A", xlab = "Gehaltsbereich", ylab = "Rel. Häufigkeit", freq = F)
lines(density(Wirkstoffe$Wirkstoff.A))
screen(2)
hist(KS_Vergleich$Vergleich, main = "Vergleich", xlab = "Gehaltsbereich", ylab = "Rel. Häufigkeit", freq = F)
lines(density(KS_Vergleich$Vergleich))
close.screen(all.screens=T)