14 lines
383 B
R
14 lines
383 B
R
|
laskeVarmuus <- function(
|
||
|
|
rowsFromInd, data, adjprior, priorTerm, logml, cliques, separators, ninds
|
||
|
|
) {
|
||
|
|
varmuus <- zeros(ninds, 1)
|
||
|
|
for (ind in 1:ninds) {
|
||
|
|
# muutokset <- spatialMixture()
|
||
|
|
# muutokset <- muutokset$laskeMuutokset(
|
||
|
|
# ind, rowsFromInd, data, adjprior, priorTerm, logml, cliques, separators
|
||
|
|
# )
|
||
|
|
# varmuus[ind] <- 1 / sum(exp(muutokset))
|
||
|
|
}
|
||
|
|
return(varmuus)
|
||
|
|
}
|