# NOT RUN {
data(stroke.wide)
summary(stroke.wide)
# To transform data from wide to long format use
# }
# NOT RUN {
library(reshape2)
stroke = melt(data=stroke.wide, id.vars=c('Subject','Group'),
value.name='ability', variable.name='week')
stroke$time = as.numeric(gsub('week', '', stroke$week))
# }
Run the code above in your browser using DataLab