messy.wide <- spread(messy.long, Measurement, cm)
view(messy.wide)