Fixed syntax (#25)
This commit is contained in:
parent
44e418f838
commit
cfb71bfd6d
1 changed files with 1 additions and 1 deletions
|
|
@ -2,7 +2,7 @@ initialCounts <- function(partition, data, npops, rows, noalle, adjprior) {
|
|||
nloci <- size(data, 2)
|
||||
ninds <- size(rows, 1)
|
||||
|
||||
koot <- rows[, 1] - rows[, 2] + 1
|
||||
koot <- rows[1] - rows[2] + 1
|
||||
maxSize <- base::max(koot)
|
||||
|
||||
counts <- zeros(base::max(noalle), nloci, npops)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue