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}