data(GvHD)
opar <- par(ask=TRUE)
res <- timeLinePlot(GvHD[[1]], "SSC-H")
res
res <- timeLinePlot(GvHD, "SSC-H")
res <- timeLinePlot(GvHD, "SSC-H", type="scaled", varCut=4)
res <- timeLinePlot(GvHD[1:4], "SSC-H", type="native", binSize=50)
par(opar)
Run the code above in your browser using DataLab