# NOT RUN {
data(Curve)
# data matrix
curve <- Curve$curve
# 'true' cluster membership
curve.mem <- Curve$curve.mem
# 'true' number of clusters
nClust <- length(unique(curve.mem))
# plot average trajectories
plotCurves(curve, curve.mem)
# }
Run the code above in your browser using DataLab