From ff8bc8cce695abdfb20c1656c4a3762f5058fa54 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 14 Jan 2020 17:36:14 +0100
Subject: [PATCH] Improved docs, formatting and handling of globals

---
 R/computeIndLogml.R |  6 +++---
 R/laskeMuutokset4.R | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/R/computeIndLogml.R b/R/computeIndLogml.R
index ff15d90..872c932 100644
--- a/R/computeIndLogml.R
+++ b/R/computeIndLogml.R
@@ -1,8 +1,8 @@
 #' @title computeIndLogml
 #' @description Palauttaa yksilön logml:n, kun oletetaan yksilön alkuperät
 #' määritellyiksi kuten osuusTaulu:ssa.
-#' @param omaFreqs omaFreqs
-#' @param osuusTaulu osuusTaulu
+#' @param omaFreqs own Freqs?
+#' @param osuusTaulu Percentage table?
 #' @export
 computeIndLogml <- function (omaFreqs, osuusTaulu) {
 
@@ -14,7 +14,7 @@ computeIndLogml <- function (omaFreqs, osuusTaulu) {
         apu <- sum(apu)
     }
 
-    apu = log(apu)
+    apu <- log(apu)
 
     loggis <- sum(apu)
     return (loggis)
diff --git a/R/laskeMuutokset4.R b/R/laskeMuutokset4.R
index a098800..730b5e0 100644
--- a/R/laskeMuutokset4.R
+++ b/R/laskeMuutokset4.R
@@ -3,15 +3,15 @@
 #' muutos logml:ss? mikäli populaatiosta i siirretään osuuden verran
 #' todennäköisyysmassaa populaatioon j. Mikäli populaatiossa i ei ole mitään 
 #' siirrettävää, on vastaavassa kohdassa rivi nollia.
-#' @param osuus osuus
-#' @param osuusTaulu osuusTaulu
-#' @param omaFreqs omaFreqs
-#' @param logml logml
+#' @param osuus Percentages?
+#' @param omaFreqs own Freqs?
+#' @param osuusTaulu Percentage table?
+#' @param logml log maximum likelihood
 #' @param COUNTS COUNTS
-#' 
+#' @export
 laskeMuutokset4 <- function (osuus, osuusTaulu, omaFreqs, logml,
                              COUNTS = matrix(0)) {
-    npops <- dim(COUNTS)[3]
+    npops <- ifelse(is.na(dim(COUNTS)[3]), 1, dim(COUNTS)[3])
     notEmpty <- osuusTaulu > 0.005
     muutokset <- zeros(npops)
     empties <- !notEmpty