max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Translated computeDiffInCounts

Browse source
This commit is contained in:
Waldir Leoncio 2020-11-09 14:58:16 +01:00
parent 203835b866
commit 0b6a899de8
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
R/computeDiffInCounts.R Normal file
View file

@ -0,0 +1,17 @@
computeDiffInCounts <- function(rows, max_noalle, nloci, data) {
# % Muodostaa max_noalle*nloci taulukon, jossa on niiden alleelien
# % lukum<75><6D>r<EFBFBD>t (vastaavasti kuin COUNTS:issa), jotka ovat data:n
# % riveill<6C> rows. rows pit<69><74> olla vaakavektori.
diffInCounts <- zeros(max_noalle, nloci)
for (i in rows) {
row <- data[i, ]
notEmpty <- find(row>=0)
if (length(notEmpty) > 0) {
diffInCounts(row(notEmpty) + (notEmpty - 1) * max_noalle) <-
diffInCounts(row(notEmpty) + (notEmpty - 1) * max_noalle) + 1
}
}
return(diffInCounts)
}