data(mouseData)
res = fitTimeSeries(obj=mouseData,feature="Actinobacteria",
class="status",id="mouseID",time="relativeTime",lvl='class',B=10)
plotClassTimeSeries(res,pch=21,bg=res$data$class,ylim=c(0,8))
Run the code above in your browser using DataLab