I don\'t think this is simply a long to wide format, but here\'s how my data is right now:
dat <- data.frame(group = c(rep(1, 4), rep(2, 3)), me