# NOT RUN {
data("skel", package = "archetypes")
skel2 <- subset(skel, select = -Gender)
set.seed(1981)
a <- archetypes(skel2, k = 5)
## Simplex projection:
archmap(a, col = skel$Gender)
## Simplex projection with archetypes arranged according to their
## distances:
archmap(a, col = skel$Gender,
projection = tspsimplex_projection)
archmap(a, col = skel$Gender,
projection = tspsimplex_projection,
projection_args = list(equidist = TRUE))
## MDS projection:
archmap(a, col = skel$Gender,
projection = atypes_projection)
# }
Run the code above in your browser using DataLab