## Not run:
# data(perfume_ideal)
#
# #! For the IdMap
# res.IdMap <- IdMap(perfume_ideal, col.p=2, col.j=1,
# col.lik=ncol(perfume_ideal), id.recogn="id_")
# plot.IdMap(res.IdMap, xlim=c(-7,10), ylim=c(-5,7), levels.contour=NULL, color=TRUE)
#
# #! For the wIdMap
# res.wIdMap <- IdMap(perfume_ideal, col.p=2, col.j=1, col.lik=ncol(perfume_ideal),
# id.recogn="id_", cons.eq=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab