Fixed function output

This commit is contained in:
Waldir Leoncio 2021-01-15 11:46:11 +01:00
parent 3b423cdb09
commit 22d689c1c4

View file

@ -21,5 +21,5 @@ initialCounts <- function(partition, data, npops, rows, noalle, adjprior) {
}
}
logml <- laskeLoggis(counts, sumcounts, adjprior)
return(logml)
return(list(sumcounts = sumcounts, counts = counts, logml = logml))
}