Translated arvoSeuraavaTi

R/arvoSeuraavaTi.R

@@ -0,0 +1,14 @@
+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))
+}