Embeds timeseries given an embedding dimension (`E`) and a time lag (`tau`).

## Value

A matrix where the first column is last time index of the window and the second column is the estimated index value.

## Examples

```
#Load the multivariate simulated
#dataset `simTransComms`
data(simTransComms)
#Embed one timeseries by 5 time points
eg_embed <- embed_ts(X = simTransComms$community2[,2:3],
E = 5, tau = 1)
```