set.seed(123)
x <- cumsum(rnorm(500))
y <- cumsum(rnorm(500))
## Permutate path by shuffling segments and random adding random angles
p1 <- rhrBase::rhrBasePRW(x, y)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.