65 lines
2 KiB
R
65 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, ] - sum[diffInCounts]
|
|||
|
|
SUMCOUNTS[i2, ] <<- SUMCOUNTS[i2, ] + sum[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, ] - sum[diffInCounts]
|
|||
|
|
SUMCOUNTS[i2, ] <<- SUMCOUNTS[i2, ] + sum[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, ] - sum[diffInCounts]
|
|||
|
|
SUMCOUNTS[i2, ] <<- SUMCOUNTS[i2, ] + sum[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
|
|||
|
|
}
|