---
title: "State decoding and prediction"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{State decoding and prediction}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
bibliography: ref.bib
link-citations: true
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.dim = c(10,6),
  out.width = "80%",
  fig.align = 'center',
  fig.path = "fHMM-"
)
library("fHMM")
```

This vignette^[This vignette was built using R `r paste(R.Version()[c("major", "minor")], collapse = ".")` with the `{fHMM}` `r utils::packageVersion("fHMM")` package.] introduces the Viterbi algorithm for state decoding. The decoded state sequence in combination with the estimated model parameters can be used for forecasting.

## State decoding using the Viterbi algorithm

For financial markets, it is of special interest to infer the underlying (hidden) states in order to gain insight about the actual market situation. Decoding a full time series $S_1, \ldots, S_T$ is called *global decoding*. Here, we aim to find the most likely trajectory of hidden states under the estimated model.
Global decoding can be accomplished by using the so-called Viterbi algorithm which is a recursive scheme enabling to find the global maximum without being confronted with huge computational costs. To this end, we follow @zuc16 and define
$$\zeta_{1i} = Pr(S_1 = i, X_1 = x_1) = \delta_i p_i(x_1)$$ 
for $i = 1, \ldots, N$ and for the following $t = 2, \ldots, T$
$$\zeta_{ti} = \operatorname*{max}_{s_1, \ldots, s_{t-1}} Pr(S_{t-1} = s_{t-1}, S_t = i, X_t = x_t).$$ 
Then, the trajectory of most likely states $i_1, \ldots, i_T$ can be calculated recursively from
$$i_T = \operatorname*{argmax}_{i = 1, \ldots, N} \zeta_{Ti}$$ and for the following $t = T-1, \ldots, 1$ from
$$i_t = \operatorname*{argmax}_{i = 1, \ldots, N} (\zeta_{ti} \gamma_{i, i_{t+1}}).$$
Transferring the state decoding to HHMMs is straightforward: first, the coarse-scale state process must be decoded. Afterwards, this information can be used to decode the fine-scale state process, see @ada19.

## The `decode_states()` function

We revisit the DAX model of the vignette on model estimation:

```{r dax model}
data(dax_model_3t)
```

The underlying states can be decoded via the `decode_states()` function:

```{r, decode states}
dax_model_3t <- decode_states(dax_model_3t)
```

We now can visualize the decoded time series:

```{r, decoded-ts}
plot(dax_model_3t)
```

## Invariance Toward State Labeling

Mind that the model is invariant to permutations of the state labels. Therefore, `{fHMM}` provides the option to switch labels after decoding via the `reorder_states()` function, for example:

```{r, reorder, eval = FALSE}
dax_model_3t <- reorder_states(dax_model_3t, 3:1)
```

## Prediction

Having decoded the underlying states, it is possible to compute the state probabilities of next observations. Based on these probabilities and in combination with the estimated state-dependent distributions, next observations can be predicted, compare @zuc16:

```{r, predict}
predict(dax_model_3t, ahead = 10)
```

## References
