answer <- TVEMMixNormal(id=firstWeekCessationData$id,

time=firstWeekCessationData$timeDays,

dep=firstWeekCessationData$urge,

doPlot=TRUE,

numInteriorKnots=6,

numClasses=3,

scov=firstWeekCessationData$relapse3WeeksPost,

tcov=cbind(1,

firstWeekCessationData$centeredNegAff),

numStarts=100,

useRoughnessPenalty=TRUE,

getSEs=TRUE);