labcol <- colors[ord.ori]
}
mat.col <- cbind(r.names, labcol)
- write.table(mat.col,file=mat.col.path)
+ #write.table(mat.col,file=mat.col.path)
ti <- c("Zone du noyau", "Première périphérie", "Seconde périphérie", "Elements contrastés")
if (type == 'classical') {
par(oma=c(1,3,3,1))