library(igraph)
K10 <- make_full_graph(10)
S <- c(1,4,7)
compute_cut_weight(S, gorder(K10), as_edgelist(K10))
cS <- compute_cut_weight(S, gorder(K10), as_edgelist(K10),
return.cut = TRUE)
plot_cut(cS, K10)
Run the code above in your browser using DataLab