data(stroke.wide)
summary(stroke.wide)
# Transform data from wide to long format
stroke = tidyr::pivot_longer(data=stroke.wide, cols = !c('Subject','Group'),
values_to='ability', names_to='week')
stroke = dplyr::mutate(stroke, week = as.numeric(gsub('week', '', week)))
Run the code above in your browser using DataLab