what is wrong with this:
if (sumGOOD != 0) {
GOOD_share <- round(y$GOOD/sumGOOD, digits = 10)
}
else {
GOOD_share <- 1:rowQty_y
GOOD_share[1:rowQty_y] <- 0
}
if (sumBAD != 0) {
BAD_share <- round(y$BAD/sumBAD, digits = 10)
}
else {
BAD_share <- 1:rowQty_y
BAD_share[1:rowQty_y] <- 0
}