Cows with five consecutive samples of non-high protein milk are designated to going to market.
ggkmcif(response = c('Time','Market'), cov='Diet', data=Milk_SA);