initialPopCounts <- function(data, npops, rows, noalle, adjprior) {
  nloci <- size(data, 2)
  counts <- zeros(base::max(noalle), nloci, npops)
  sumcounts <- zeros(npops, nloci)

  for (i in 1:npops) {
    for (j in 1:nloci) {
      i_rivit <- rows(i, 1):rows(i, 2)
      havainnotLokuksessa <- matlab2r::find(data[i_rivit, j] >= 0)
      sumcounts[i, j] <- length(havainnotLokuksessa)
      for (k in 1:noalle[j]) {
        alleleCode <- k
        N_ijk <- length(matlab2r::find(data[i_rivit, j] == alleleCode))
        counts[k, j, i] <- N_ijk
      }
    }
  }
  logml <- laskeLoggis(counts, sumcounts, adjprior)
  return(sumcounts = sumcounts, counts = counts, logml = logml)
}