context("DDPlot")
test_that("Basic dd plot", {
set.seed(123)
x <- MASS::mvrnorm(100, c(0, 0), diag(2))
y <- MASS::mvrnorm(100, c(0, 0), diag(2)) -5
pl <- ddPlot(
x = x,
y = y, title = "Difference in position",
name = "X dist", name_y = "Y dist")
pl
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.