From 8f167f2e432d5994e1f1cb8dcdf2c6b077646e57 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Wed, 21 Dec 2022 14:27:29 +0100
Subject: [PATCH] Translated laskeKlitik()

Also, added placeholder for subfunction findCliques()
---
 R/findCliques.R |  3 +++
 R/laskeKlitik.R | 28 ++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 R/findCliques.R
 create mode 100644 R/laskeKlitik.R

diff --git a/R/findCliques.R b/R/findCliques.R
new file mode 100644
index 0000000..eea6d3c
--- /dev/null
+++ b/R/findCliques.R
@@ -0,0 +1,3 @@
+findCliques <- function(M) {
+   # TODO: translate findCliques() from matlab/spatial/findCliques.m
+}
diff --git a/R/laskeKlitik.R b/R/laskeKlitik.R
new file mode 100644
index 0000000..7e09d52
--- /dev/null
+++ b/R/laskeKlitik.R
@@ -0,0 +1,28 @@
+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
+    )
+  )
+}