29 lines
884 B
R
29 lines
884 B
R
|
laskeKlikit <- function(M, maxCliqSize, maxSepSize) {
|
||
|
|
# Laskee samankokoisten klikkien mההrהn verkosta M
|
||
|
|
# ncliques(i)=kokoa i olevien klikkien mההr?
|
||
|
|
# nseparators vastaavasti
|
||
|
|
ncliques <- zeros(1, maxCliqSize)
|
||
|
|
nseparators <- zeros(1, maxSepSize)
|
||
|
|
if (M == c()) {
|
||
|
|
return()
|
||
|
|
}
|
||
|
|
cliques_separators <- findCliques(M)
|
||
|
|
cliques <- cliques_separators$cliques
|
||
|
|
separators <- cliques_separators$separators
|
||
|
|
rm(cliques_separators)
|
||
|
|
for (i in 1:length(cliques)) {
|
||
|
|
ncliques[length[cliques[[i]]]] <- ncliques[length(cliques[[i]])] + 1
|
||
|
|
}
|
||
|
|
# cliqmax=max(find(ncliques!=0))
|
||
|
|
# ncliques=ncliques(1:cliqmax)
|
||
|
|
for (i in 1:length(separators)) {
|
||
|
|
nseparators[length[separators[[i]]]] <- nseparators[length(separators[[i]])] + 1
|
||
|
|
}
|
||
|
|
return(
|
||
|
|
list(
|
||
|
|
ncliques = ncliques, nseparators = nseparators, cliques = cliques,
|
||
|
|
separators = separators
|
||
|
|
)
|
||
|
|
)
|
||
|
|
}
|