## Not run:
# data(perfume_ideal)
# res <- MultiIdeal(perfume_ideal, col.p=2, col.j=1, id.recogn="id_",
# level.search.desc=0.2, nbsimul=500, coord=c(1,2))
#
# # To run the analysis with all the attributes
# res <- MultiIdeal(perfume_ideal, col.p=2, col.j=1, id.recogn="id_",
# level.search.desc=1, nbsimul=500, coord=c(1,2))
# ## End(Not run)
Run the code above in your browser using DataLab