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

Fixed syntax

Browse source
This commit is contained in:
Waldir Leoncio 2021-01-15 11:46:53 +01:00
parent 22d689c1c4
commit 68ad663ce1
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/greedyMix.R
View file

@ -268,7 +268,7 @@ greedyMix <- function(
ninds <- length(unique(data[, ncol(data)]))
ekat <- t(seq(1, ninds, rowsFromInd) * rowsFromInd)
c$rows <- c(ekat, ekat + rowsFromInd - 1)
c$rows <- t(rbind(ekat, ekat + rowsFromInd - 1))
# ASK remove?
# partition compare

6
R/indMix.R
View file

@ -42,7 +42,7 @@ indMix <- function(c, npops, dispText) {
npopstext <- c(npopstext, ' ', npopstextExtra)
teksti <- 'The input field length limit (255 characters) was reached. Input more values: '
} else {
npopstext <- c(npopstext, ' ', npopstextExtra)
npopstext <- strsplit(npopstextExtra, " ")[[1]]
ready <- TRUE
}
}
@ -76,7 +76,7 @@ indMix <- function(c, npops, dispText) {
worstLogml <- -1e50
worstIndex <- 1
for (run in 1:nruns) {
npops <- npopsTaulu[run]
npops <- npopsTaulu[[run]]
if (dispText) {
dispLine()
print(
@ -99,7 +99,7 @@ indMix <- function(c, npops, dispText) {
PARTITION <- zeros(ninds, 1)
for (i in 1:ninds) {
apu <- rows[i]
PARTITION[i] <- initialPartition(apu[1])
PARTITION[i] <- initialPartition[apu[1]]
}
COUNTS <- counts