14 lines
334 B
R
14 lines
334 B
R
arvoSeuraavaTila <- function(muutokset, logml) {
|
||
# Suorittaa yksil<69>n seuraavan tilan arvonnan
|
||
|
||
y <- logml + muutokset # siirron j<>lkeiset logml:t
|
||
y <- y - max(y)
|
||
y <- exp(y)
|
||
summa <- sum(y)
|
||
y <- y / summa
|
||
y <- cumsum(y)
|
||
|
||
i2 <- rand_disc(y) # uusi kori
|
||
suurin <- muutokset(i2)
|
||
return(list(suurin = suurin, i2 = i2))
|
||
}
|