From a21d24704007755a83b149ab6b0b07e939aa1197 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 14 Jan 2020 13:44:18 +0100
Subject: [PATCH] Improved global variable handling

---
 R/laskeMuutokset4.R    | 3 ++-
 man/laskeMuutokset4.Rd | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/laskeMuutokset4.R b/R/laskeMuutokset4.R
index 2d53af6..a098800 100644
--- a/R/laskeMuutokset4.R
+++ b/R/laskeMuutokset4.R
@@ -9,7 +9,8 @@
 #' @param logml logml
 #' @param COUNTS COUNTS
 #' 
-laskeMuutokset4 <- function (osuus, osuusTaulu, omaFreqs, logml, COUNTS) {
+laskeMuutokset4 <- function (osuus, osuusTaulu, omaFreqs, logml,
+                             COUNTS = matrix(0)) {
     npops <- dim(COUNTS)[3]
     notEmpty <- osuusTaulu > 0.005
     muutokset <- zeros(npops)
diff --git a/man/laskeMuutokset4.Rd b/man/laskeMuutokset4.Rd
index 58b9f1f..f458d9e 100644
--- a/man/laskeMuutokset4.Rd
+++ b/man/laskeMuutokset4.Rd
@@ -4,7 +4,7 @@
 \alias{laskeMuutokset4}
 \title{laskeMuutokset4}
 \usage{
-laskeMuutokset4(osuus, osuusTaulu, omaFreqs, logml, COUNTS)
+laskeMuutokset4(osuus, osuusTaulu, omaFreqs, logml, COUNTS = matrix(0))
 }
 \arguments{
 \item{osuus}{osuus}