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)
|
logml <- laskeLoggis(counts, sumcounts, adjprior)
|
||||||
return(logml)
|
return(list(sumcounts = sumcounts, counts = counts, logml = logml))
|
||||||
}
|
}
|
||||||
Loading…
Add table
Reference in a new issue