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)])) ninds <- length(unique(data[, ncol(data)]))
ekat <- t(seq(1, ninds, rowsFromInd) * rowsFromInd) ekat <- t(seq(1, ninds, rowsFromInd) * rowsFromInd)
c$rows <- c(ekat, ekat + rowsFromInd - 1) c$rows <- t(rbind(ekat, ekat + rowsFromInd - 1))
# ASK remove? # ASK remove?
# partition compare # partition compare

6
R/indMix.R
View file

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