---
title: "Trajectory Alignment interactive chart"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Trajectory Alignment interactive chart}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
library(pacta.interactive.plot)

load(system.file("example-data/test.rda", package = "pacta.interactive.plot"))

trajectory_alignment_data <-
  as_trajectory_alignment_data(
    equity_results_portfolio = equity_results_portfolio,
    bonds_results_portfolio = bonds_results_portfolio,
    indices_equity_results_portfolio = indices_equity_results_portfolio,
    indices_bonds_results_portfolio = indices_bonds_results_portfolio,
  )

trajectory_alignment_chart(trajectory_alignment_data, height = 500)
```