# NOT RUN {
data(skel)
skel2 <- subset(skel, select=-Gender)
as <- stepArchetypes(skel2, k=1:5, verbose=FALSE)
## Residual sum of squares curve:
screeplot(as)
## Select three archetypes and from that the best
## recurrence:
a3 <- bestModel(as[[3]])
# }
Run the code above in your browser using DataLab