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