d <- data.frame(
index = c(1, 2, 3, 1, 2, 3),
meastype = c('meas1','meas1','meas1','meas2','meas2','meas2'),
meas = c('m1_1', 'm1_2', 'm1_3', 'm2_1', 'm2_2', 'm2_3'),
stringsAsFactors = FALSE)
replyr_spread(d,'index','meastype','meas')
replyr_spread(d,'index','meastype','meas',useTidyr=TRUE)
Run the code above in your browser using DataLab