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[row(notEmpty) + (notEmpty - 1) * max_noalle] + 1
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
diffInCounts <- matrix(
|
||||||
|
data = diffInCounts[!is.na(diffInCounts)],
|
||||||
|
nrow = max_noalle,
|
||||||
|
ncol = nloci,
|
||||||
|
byrow = TRUE
|
||||||
|
)
|
||||||
return(diffInCounts)
|
return(diffInCounts)
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue