## Not run:
# data(leafdev)
# leafdev <- as(leafdev,"WaveTilingFeatureSet")
# leafdev <- addPheno(leafdev,noGroups=6,groupNames=c("day8","day9","day10","day11","day12","day13"),replics=rep(3,6))
# leafdev
# ## End(Not run)
Run the code above in your browser using DataLab