SOM_PAK
-> http://www.cis.hut.fi/research/som-research/nnrc-programs.shtml
-> http://www.cis.hut.fi/research/som_pak/binaries_windows/
  
  -> http://www.cis.hut.fi/research/som_pak/binaries_windows/
michi - 4. Sep, 21:30
  
  
                   A B C D E F G H I J K L M N O P
High School        0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0
Agricultural Coop. 0 1 1 1 0 0 1 0 0 0 0 1 0 0 1 0
Railway Station    0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0
One-Room-School    1 0 0 0 1 1 0 0 1 1 0 0 1 1 0 1
Veterinary         0 1 1 1 0 0 1 0 0 0 0 1 0 0 1 0
No Doctor          1 0 0 0 1 1 0 0 1 1 0 0 1 1 0 1
No Water Supply    0 0 0 0 0 0 0 0 1 1 0 0 1 1 0 0
Police Station     0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0
Land Reallocation  0 1 1 1 0 0 1 0 0 0 0 1 0 0 1 0
> bertin(bertin.mat)                   
                   I J N M A F P E H K G C B O D L
Land Reallocation  0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1
Veterinary         0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1
Agricultural Coop. 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1
High School        0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
Railway Station    0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
Police Station     0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
No Water Supply    1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
No Doctor          1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
One-Room-School    1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
Run1: fitness = -150w <- iwindow()
add(w, igraphics())
a <- rnorm(100)
plot(density(a))
islider(1, window=w, handler=function(h,...)
    plot(density(a, bw=get.value(h$obj)/300)))
visible(w,TRUE)

