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

Changed assignment operator

Browse source
This commit is contained in:
Waldir Leoncio 2021-02-15 10:05:31 +01:00
parent a13e2c30ac
commit 85b7fe1533
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
R/indMix.R
View file

@ -148,7 +148,7 @@ indMix <- function(c, npops, dispText) {
for (ind in inds) { for (ind in inds) {
i1 <- PARTITION[ind] i1 <- PARTITION[ind]
muutokset_diffInCounts = laskeMuutokset( muutokset_diffInCounts <- laskeMuutokset(
ind, rows, data, adjprior, priorTerm ind, rows, data, adjprior, priorTerm
) )
muutokset <- muutokset_diffInCounts$muutokset muutokset <- muutokset_diffInCounts$muutokset
@ -175,7 +175,7 @@ indMix <- function(c, npops, dispText) {
) )
logml <- logml+maxMuutos logml <- logml+maxMuutos
if (logml > worstLogml) { if (logml > worstLogml) {
partitionSummary_added = addToSummary( partitionSummary_added <- addToSummary(
logml, partitionSummary, worstIndex logml, partitionSummary, worstIndex
) )
partitionSummary <- partitionSummary_added$partitionSummary partitionSummary <- partitionSummary_added$partitionSummary
@ -477,7 +477,7 @@ indMix <- function(c, npops, dispText) {
muutoksia <- 1 muutoksia <- 1
logml <- logml + totalMuutos logml <- logml + totalMuutos
if (logml > worstLogml) { if (logml > worstLogml) {
partitionSummary_added = addToSummary( partitionSummary_added <- addToSummary(
logml, partitionSummary, worstIndex logml, partitionSummary, worstIndex
) )
partitionSummary <- partitionSummary_added$partitionSummary partitionSummary <- partitionSummary_added$partitionSummary
@ -532,8 +532,8 @@ indMix <- function(c, npops, dispText) {
} else if (vaihe == 3) { } else if (vaihe == 3) {
roundTypes <- c(5, 5, 7) roundTypes <- c(5, 5, 7)
} else if (vaihe == 4) { } else if (vaihe == 4) {
roundTypes = c(4, 3, 1) roundTypes <- c(4, 3, 1)
} else if (vaihe == 5) { } else if (vaihe == 5)
roundTypes <- c(6, 7, 2, 3, 4, 1) roundTypes <- c(6, 7, 2, 3, 4, 1)
} }
} }