if (FALSE) {
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))
}
Run the code above in your browser using DataLab