Reformatting output

This commit is contained in:
Waldir Leoncio 2021-06-29 10:37:52 +02:00
parent 67170d1c7b
commit 7c2e4c431f

View file

@ -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)
}