======  Fast algorithms ... ======

===== Multiway cores =====

<code>
> wdir <- "C:/Users/vlado/DL/data/multi/cores"
> setwd(wdir)
> library(jsonlite)
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> # library(magrittr)
> source("https://raw.githubusercontent.com/bavla/ibm3m/master/multiway/MWnets.R")
> library(datastructures)
> TN <- fromJSON("https://raw.githubusercontent.com/bavla/ibm3m/master/data/coresTest.json")
> str(TN)
> core <- GenCoresDec(TN,"U","V",p=pDeg)
> names(core) <- TN$nodes$U$ID
> core
a b c d e f g h i j k l m n o p q r s t 
3 3 3 3 2 2 1 1 3 3 3 3 2 2 1 1 2 2 2 2 
> mwn2net(TN,"U","V",twomode=FALSE,Net="coresTest.net")
> vector2clu(core,Clu="coresTest.clu")
</code>

{{vlado:work:pics:corestest.png?1000}}