diff --git a/R/laskeMuutokset12345.R b/R/laskeMuutokset12345.R
index 4a979f2..ef790d7 100644
--- a/R/laskeMuutokset12345.R
+++ b/R/laskeMuutokset12345.R
@@ -60,7 +60,7 @@ laskeMuutokset <- function(ind, globalRows, data, adjprior, priorTerm) {
 	diffInCounts <- computeDiffInCounts(
 		rows, size(COUNTS, 1), size(COUNTS, 2), data
 	)
-	diffInSumCounts <- sum(diffInCounts)
+	diffInSumCounts <- rowSums(diffInCounts)
 
 	COUNTS[, , i1] <- COUNTS[, , i1] - diffInCounts
 	SUMCOUNTS[i1, ] <- SUMCOUNTS[i1, ] - diffInSumCounts
@@ -68,15 +68,12 @@ laskeMuutokset <- function(ind, globalRows, data, adjprior, priorTerm) {
 	COUNTS[, , i1] <- COUNTS[, , i1] + diffInCounts
 	SUMCOUNTS[i1, ] <- SUMCOUNTS[i1, ] + diffInSumCounts
 
-	# TODO: check i2 calculation against MATLAB (where does this code come from?)
 	i2 <- find(muutokset == -Inf) # Etsit��n populaatiot jotka muuttuneet viime kerran j�lkeen. (Searching for populations that have changed since the last time)
 	i2 <- setdiff(i2, i1)
 	i2_logml <- POP_LOGML[i2]
 
 	ni2 <- length(i2)
 
-	# FIXME: i2 is empty
-	browser() # TEMP
 	COUNTS[, , i2] <- COUNTS[, , i2] + repmat(diffInCounts, c(1, 1, ni2))
 	SUMCOUNTS[i2, ] <- SUMCOUNTS[i2, ] + repmat(diffInSumCounts, c(ni2, 1))
 	new_i2_logml <- computePopulationLogml(i2, adjprior, priorTerm)
@@ -84,7 +81,7 @@ laskeMuutokset <- function(ind, globalRows, data, adjprior, priorTerm) {
 	SUMCOUNTS[i2, ] <- SUMCOUNTS[i2, ] - repmat(diffInSumCounts, c(ni2, 1))
 
 	muutokset[i2] <- new_i1_logml - i1_logml + new_i2_logml - i2_logml
-	LOGDIFF[ind, ] = muutokset
+	LOGDIFF[ind, ] <- muutokset
 	return(list(muutokset = muutokset, diffInCounts = diffInCounts))
 }