# NOT RUN {
# 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