## simple example with 20 random starts
diss <- sim2diss(wish, method = 7)
set.seed(123)
res <- icExplore(diss, type = "ordinal", nrep = 20, returnfit = TRUE)
res
plot(res)
res$mdsfit[[14]] ## bad fitting solution
res$mdsfit[[3]] ## better fitting solution
Run the code above in your browser using DataLab