61 lines
2 KiB
R
61 lines
2 KiB
R
updateGlobalVariables <- function(ind, i2, diffInCounts, adjprior, priorTerm) {
|
||
# % Suorittaa globaalien muuttujien muutokset, kun yksil<69> ind
|
||
# % on siirret<65><74>n koriin i2.
|
||
i1 <- PARTITION[ind]
|
||
PARTITION[ind] <- i2
|
||
|
||
COUNTS[, , i1] <- COUNTS[, , i1] - diffInCounts
|
||
COUNTS[, , i2] <- COUNTS[, , i2] + diffInCounts
|
||
SUMCOUNTS[i1, ] <- SUMCOUNTS[i1, ] - colSums(diffInCounts)
|
||
SUMCOUNTS[i2, ] <- SUMCOUNTS[i2, ] + colSums(diffInCounts)
|
||
|
||
POP_LOGML[c(i1, i2)] <- computePopulationLogml(
|
||
c(i1, i2), adjprior, priorTerm
|
||
)
|
||
|
||
LOGDIFF[, c(i1, i2)] <- -Inf
|
||
inx <- c(find(PARTITION == i1), find(PARTITION == i2))
|
||
LOGDIFF[inx, ] <- -Inf
|
||
}
|
||
|
||
updateGlobalVariables2 <- function(i1, i2, diffInCounts, adjprior, priorTerm) {
|
||
# % Suorittaa globaalien muuttujien muutokset, kun kaikki
|
||
# % korissa i1 olevat yksil<69>t siirret<65><74>n koriin i2.
|
||
|
||
inds <- find(PARTITION == i1)
|
||
PARTITION[inds] <- i2
|
||
|
||
COUNTS[, , i1] <- COUNTS[, , i1] - diffInCounts
|
||
COUNTS[, , i2] <- COUNTS[, , i2] + diffInCounts
|
||
SUMCOUNTS[i1, ] <- SUMCOUNTS[i1, ] - colSums(diffInCounts)
|
||
SUMCOUNTS[i2, ] <- SUMCOUNTS[i2, ] + colSums(diffInCounts)
|
||
|
||
POP_LOGML[i1] <- 0
|
||
POP_LOGML[i2] <- computePopulationLogml(i2, adjprior, priorTerm)
|
||
|
||
LOGDIFF[, c(i1, i2)] <- -Inf
|
||
inx <- c(find(PARTITION == i1), find(PARTITION == i2))
|
||
LOGDIFF[inx, ] <- -Inf
|
||
}
|
||
|
||
updateGlobalVariables3 <- function(muuttuvat, diffInCounts, adjprior, priorTerm, i2) {
|
||
# % Suorittaa globaalien muuttujien p<>ivitykset, kun yksil<69>t 'muuttuvat'
|
||
# % siirret<65><74>n koriin i2. Ennen siirtoa yksil<69>iden on kuuluttava samaan
|
||
# % koriin.
|
||
|
||
i1 <- PARTITION[muuttuvat(1)]
|
||
PARTITION[muuttuvat] <- i2
|
||
|
||
COUNTS[, , i1] <- COUNTS[, , i1] - diffInCounts
|
||
COUNTS[, , i2] <- COUNTS[, , i2] + diffInCounts
|
||
SUMCOUNTS[i1, ] <- SUMCOUNTS[i1, ] - colSums(diffInCounts)
|
||
SUMCOUNTS[i2, ] <- SUMCOUNTS[i2, ] + colSums(diffInCounts)
|
||
|
||
POP_LOGML[c(i1, i2)] <- computePopulationLogml(
|
||
c(i1, i2), adjprior, priorTerm
|
||
)
|
||
|
||
LOGDIFF[, c(i1, i2)] <- -Inf
|
||
inx <- c(find(PARTITION == i1), find(PARTITION == i2))
|
||
LOGDIFF[inx, ] <- -Inf
|
||
}
|