Fixed function output
This commit is contained in:
parent
3b423cdb09
commit
22d689c1c4
1 changed files with 1 additions and 1 deletions
|
|
@ -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))
|
||||
}
|
||||
Loading…
Add table
Reference in a new issue