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

Refactoring

Browse source
This commit is contained in:
Waldir Leoncio 2021-06-29 10:37:42 +02:00
parent c975a7c820
commit 67170d1c7b
3 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/computeDiffInCounts.R
View file

@ -4,7 +4,7 @@ computeDiffInCounts <- function(rows, max_noalle, nloci, data) {
# % riveill<6C> rows. rows pit<69><74> olla vaakavektori.
diffInCounts <- zeros(max_noalle, nloci)
for (i in seq_len(nrow(data)) ) {
for (i in seq_len(nrow(data))) {
row <- data[i, ]
notEmpty <- as.matrix(find(row>=0))

1
R/computePopulationLogml.R
View file

@ -14,6 +14,7 @@ computePopulationLogml <- function(pops, adjprior, priorTerm) {
# Computation #
# ======================================================== #
isarray <- length(dim(repmat(adjprior, c(1, 1, length(pops))))) > 2
# FIXME: 3rd dimension of COUNTS getting dropped
term1 <- squeeze(
sum(
sum(