From 8860f0159cbb796434d6b40ceafea525f7d7a730 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 3 Feb 2022 12:56:20 +0100
Subject: [PATCH] Translated fiksaaPartitioYksiloTasolle() (#2)

---
 R/fiksaaPartitioYksiloTasolle.R | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 R/fiksaaPartitioYksiloTasolle.R

diff --git a/R/fiksaaPartitioYksiloTasolle.R b/R/fiksaaPartitioYksiloTasolle.R
new file mode 100644
index 0000000..ae07f58
--- /dev/null
+++ b/R/fiksaaPartitioYksiloTasolle.R
@@ -0,0 +1,17 @@
+fiksaaPartitioYksiloTasolle <- function(rows, rowsFromInd) {
+  # Fix partition to individual level
+  totalRows <- 0
+  for (ind in 1:size(rows, 1)) {
+    totalRows <- totalRows + (rows[ind, 2] - rows[ind, 1] + 1)
+  }
+  partitio2 <- zeros(totalRows / rowsFromInd, 1)
+
+  for (ind in 1:size(rows, 1)) {
+    kaikkiRivit <- rows[ind, 1]:rows[ind, 2]
+    for (riviNumero in seq(rowsFromInd, length(kaikkiRivit), rowsFromInd)) {
+      rivi <- kaikkiRivit[riviNumero]
+      partitio2[rivi / rowsFromInd] <- PARTITION[ind]
+    }
+  }
+  PARTITION <<- partitio2
+}