## Assessing the number of components for the water-level task data set.
data(Waterdata)
water<-t(as.matrix(Waterdata[,3:10]))
set.seed(100)
out <- repnormmixmodel.sel(water, k = 3, epsilon = 5e-01)
out
Run the code above in your browser using DataLab