Facebook

a safest cryptocurrency exchange

From b, 5 Years ago, written in Plain Text.
URL https://pastebin.pl/view/c24b785d
Embed
Download Paste or View Raw
Hits: 225
  1. k_means <- function(dane, k, max_iter, wymiar)
  2.   #k - liczba klastrow, max_iter - maksymalna liczba iteracji
  3. {
  4.   #
  5.   # losowanie punktow poczatkowych
  6.   #
  7.   means <- (sample(1:dim(dane)[1],k))
  8.   clusters <- dane[means,]
  9.   print('klastry')
  10.   print(clusters)
  11.   #do kazdego klastra zostana przypisane najblizej lezace punkty
  12.   #dla kazdego punktu obliczane sa odleglosci od wszystkich klastrow
  13.   #przypisywany jest do najblizszego
  14.   for (i in 1:max_iter)
  15.   {
  16.     for (j in 1:dim(dane)[1]) #petla po wszystkich punktach
  17.     {
  18.       for (l in 1:k) #petla po wszystkich klastrach
  19.       {
  20.       w<-euclid(dane[j,],clusters[l,])
  21.       print(w)
  22.       }
  23.     }
  24.   }
  25.   return(dane)
  26. }

Reply to "a"