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