Afin de continuer mon projet de stage, je désire implémenter une fonction qui me permettrait de classer les éléments d'une population en différents groupes.
Pour cela, j'ai effectué quelques recherches et je suis tombé sur une fonction bien sympathique sur un site où il est référencé toutes sortes de graphiques.
Voici mon code qui me permet d'obtenir un graphique assez bien fait :
Code : Tout sélectionner
clustering <- function(nomfichier,type_image,donnees,NbDeClasses)
{
library(cluster)
votes.diss <- daisy(donnees)
votes.clus <- pam(votes.diss, NbDeClasses, diss = TRUE)$clustering
bitmap(nomfichier,type_image,width=10,height=10,res=72,pointsize=12)
clusplot(votes.diss, votes.clus, diss = TRUE, shade = TRUE, main = "clustering")
dev.off()
graphics.off()
}
Cette fonction marche bien quand je souhaite créer deux groupes distincts mais dès je monte à 3 groupes il me renvoie cette erreur :
Code : Tout sélectionner
clustering("/home/rom/cluster","png256",dd,3)
Erreur dans plot.window(xlim, ylim, log, asp, ...) :
'xlim' nécessite des valeurs finies
De plus : Warning message:
production de NaN in: sqrt(detA * pmax(0, yl2 - y^2))
Je ne comprend pas car si je veux définir "xlim" dans mon clusplot il me dit que cet argument est incorrect !
Quelqu'un aurait une idée ?
Merci d'avance !
@+