diff --git a/R/arvoSeuraavaTi.R b/R/arvoSeuraavaTi.R
new file mode 100644
index 0000000..e276889
--- /dev/null
+++ b/R/arvoSeuraavaTi.R
@@ -0,0 +1,14 @@
+arvoSeuraavaTila <- function(muutokset, logml) {
+	# Suorittaa yksil�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))
+}