proc cas;
/* Chargement du moteur d'analyse de réseaux */
loadactionset "network";
/* Exécution de l'algorithme de décomposition */
action network.core /
links = {name="Links"}
/* L'option UNDIRECTED est standard pour la cohésion structurelle */
direction = "UNDIRECTED"
/* La table outNodes contiendra la variable '_core_' (le k max) */
outNodes = {name="Node_Core_Results", replace=TRUE}
/* La table outLinks permet de visualiser uniquement les liens du cœur */
outLinks = {name="Link_Core_Results", replace=TRUE};
run;
/* Affichage des résultats pour inspection */
table.fetch / table="Node_Core_Results" sortBy="node";
quit;
network