# CREATING A TRANSPOSED MATRIX FOR MEDIATOR `WantToSmokeLst15min`
data(smoker)
mat.wide <- LongToWide(smoker$SubjectID,
smoker$timeseq,
smoker$WantToSmokeLst15min)
Run the code above in your browser using DataLab