15 lines
334 B
R
15 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))
|
|||
|
|
}
|