#Database:
X <- descrDissTrunks
X <- as.matrix(X)
#Computation of archetypes and archetypoids:
#For reproducing results, seed for randomness:
set.seed(2010)
#Run archetype algorithm repeatedly from 1 to numArch archetypes:
numArch <- 10 ; nrep <- 20
lass <- stepArchetypesMod(data=X,numArch=1:numArch,numRep=nrep,verbose=FALSE)
screeplot(lass)
numArchoid <- 3
res_archoids_ns <- archetypoids(numArchoid, X, huge = 200, step = FALSE, ArchObj = lass,
nearest = "cand_ns" , sequ = TRUE)
Run the code above in your browser using DataLab