Réseau RBF sous R

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 :

Citation:

---

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:

---

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 !