 dList <- list(N = 000,               nSubj = 00,               nGroup = 0,               nBev = 0,               sIndex = df$id,               gIndex = df$group,               bIndex = df$bevType,               score = 