Fast algorithms ...

Multiway cores

> 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")

vlado/work/2m/mwn/ex/tnet.txt · Last modified: 2023/01/25 05:33 by vlado
 
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 3.0 Unported
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki