Reformatting output
This commit is contained in:
parent
67170d1c7b
commit
7c2e4c431f
1 changed files with 6 additions and 0 deletions
|
|
@ -13,5 +13,11 @@ computeDiffInCounts <- function(rows, max_noalle, nloci, data) {
|
|||
diffInCounts[row(notEmpty) + (notEmpty - 1) * max_noalle] + 1
|
||||
}
|
||||
}
|
||||
diffInCounts <- matrix(
|
||||
data = diffInCounts[!is.na(diffInCounts)],
|
||||
nrow = max_noalle,
|
||||
ncol = nloci,
|
||||
byrow = TRUE
|
||||
)
|
||||
return(diffInCounts)
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue