Wirkstoff_Code <- c("WI0815", "WI0816", "WI0817")
Gehalt_MW <- c(98.3, 96.5, 97.9)
Varianz <- c(1.1, 0.8, 1.2)
Wirkstoffe <- data.frame(Wirkstoff_Code, Gehalt_MW, Varianz)
Wirkstoffe
str(Wirkstoffe)
Wirkstoffe[2,2]
Wirkstoffe[2,]
Wirkstoffe$Varianz
Wirkstoffe$Varianz[2]
Wirkstoffe[Wirkstoffe$Gehalt_MW > 97,]
WS_Extrakt <- Wirkstoffe[Wirkstoffe$Gehalt_MW > 97,]
subset(Wirkstoffe, Gehalt_MW > 97)
subset(Wirkstoffe, Gehalt_MW > 97, select = -3)
Qualitaet <- c("o.k.", "nicht o.k.", "o.k.")
Q_Lage <- data.frame(Wirkstoff_Code, Qualitaet)
Q_Lage
Q_Lage_WS <- merge(Wirkstoffe,Q_Lage, all.x = T)
Q_Lage_WS
Q_Lage_geteilt <- split(Q_Lage_WS, Qualitaet)
Q_Lage_geteilt
Q_Lage_geteilt$"nicht o.k."