diff --git a/01_Master.R b/01_Master.R
index a6e34dacacf137a8262a214da751f44808d85a49..db64d3efc94f30b481c3c5a07d8304cf51e53513 100644
--- a/01_Master.R
+++ b/01_Master.R
@@ -23,5 +23,22 @@ getwd()
 # Inlezen Sheet voorraden file
 vDataVrd <- read.xlsx(xlsxFile = "data/20220811_MeststromenData.xlsx",
                       sheet = "Begin en Eindvoorraad")
-vDataVrd$CodeCat <- as.factor(paste(vDataVrd$Mestcode, vDataVrd$Mestcategorie))
+
+vDataVrd$Stikstof <- as.numeric(vDataVrd$`Stikstof.[KG./.ton]`)   * vDataVrd$Totaal.gewicht.in.Ton
+vDataVrd$Fosfaat  <- as.numeric(vDataVrd$`Kg.Fosfaat.[KG./.Ton]`) * vDataVrd$Totaal.gewicht.in.Ton
+vDataVrd$`Stikstof.[KG./.ton]`   <- NULL
+vDataVrd$`Kg.Fosfaat.[KG./.Ton]` <- NULL
+
+vDataVrd$CodeCat <- as.factor(paste(vDataVrd$Mestcode, vDataVrd$Mestcategorie, vDataVrd$Begin.of.Eindvoorraad, sep = "_"))
+vDataVrd$Mestcategorie <- NULL
+vDataVrd$Mestcode      <- NULL
+vDataVrd$Begin.of.Eindvoorraad <- NULL
+
 summary(vDataVrd$CodeCat)
+
+## Check whether there are multiple rows with same CodeCat
+vCrossTab <- data.frame(table(vDataVrd$ID, vDataVrd$CodeCat))
+summary(vCrossTab$Freq)
+# No combinations with freq > 1
+
+vDataVrdW1 <- reshape2::dcast(vDataVrd, ID ~ CodeCat, value.var = "Totaal.gewicht.in.Ton")