Discussion :

[Juunii]

Bonjour,

Je cherche à programmer le réseau RBF. Je ne comprends pas vraiment le rôle de kmeans.

L'algorithme des K-moyennes est le suivant :

entrées : n vecteurs x₁,...,x_n provenant d'un corpus C, m le nombre de centres tel que m<n et une borne M>1
sortie : centres c₁,...c_m

k=m
compteur = 1

1) pour chaque centre c_i du cluster i=1...m, choisir une valeur au hasard parmi les x_r, r=1,...,n

2) tant qu'il n'y a pas de convergence et compteur <M
faire attribuer à chaque cluster les vecteurs x_r les plus proches du centre
pour chaque clustrer i, calculer la moyenne m de ses valeurs et c_i=m
compteur = compteur + 1

3) retourner c₁,...,c_m

Ce que je fais est incomplet et très maladroit :

Code r :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
RBF <-function(X,m,M){
  k=m
  compteur=1
  c=matrix(rep(0),nrow(X),ncol=m) #initialisation
  for(i in 1:t){
    for(j in 1:m){
      c[i,j]=sample(X,nrow(X),replace=FALSE)
      which(compteur <M && )
    }
  }
  return(c)
}

Pour la convergence, il s'agit d'une fonction de Lyapounov ?

Une idée ?

Merci et joyeuses fêtes !