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

Removed unnecessary concantenations

Browse source
This commit is contained in:
Waldir Leoncio 2021-11-10 14:55:11 +01:00
parent 8b0d1c3cc3
commit c5cf0edd1d
5 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/globals.R
View file

@ -1,7 +1,7 @@
COUNTS <- array(0, dim = c(100, 100, 100))
SUMCOUNTS <- array(0, dim = c(100, 100))
PARTITION <- array(1, dim = c(100))
POP_LOGML <- array(1, dim = c(100))
PARTITION <- array(1, dim = 100)
POP_LOGML <- array(1, dim = 100)
LOGDIFF <- array(1, dim = c(100, 100))
# If handling globas break, try other ideas from https://stackoverflow.com/a/65252740/1169233

2
R/indMix.R
View file

@ -516,7 +516,7 @@ indMix <- function(c, npops, dispText = TRUE) {
if (ready == 0) {
if (vaihe == 1) {
roundTypes <- c(1)
roundTypes <- 1
} else if (vaihe == 2) {
roundTypes <- c(2, 1)
} else if (vaihe == 3) {

4
R/writeMixtureInfo.R
View file

@ -185,7 +185,7 @@ writeMixtureInfo <- function(logml, rowsFromInd, data, adjprior, priorTerm, outP
if (fid != -1) {
append(fid, " ")
append(fid, " ")
append(fid, c("KL-divergence matrix in PHYLIP format:"))
append(fid, "KL-divergence matrix in PHYLIP format:")
append(fid, "\n")
}
@ -290,7 +290,7 @@ writeMixtureInfo <- function(logml, rowsFromInd, data, adjprior, priorTerm, outP
append(fid, "\n")
append(fid, " ")
append(fid, "\n")
append(fid, c("Probabilities for number of clusters"))
append(fid, "Probabilities for number of clusters")
append(fid, "\n")
}