if (FALSE) {
data(cream_id)
decat(cream_id, formul = "~product+user", firstvar = 3, graph = FALSE)
###IdMapConsumer function
data(cream_signa)
res.idmap <- IdMapConsumer(craem_id, cream_signa, col.p=2, col.j=1, col.lik=29,
num.col.var.signa=c(1:12), conf.level=0.90, id.recogn="id_", color = FALSE, simusigni = 500)
}
Run the code above in your browser using DataLab