tests/testthat/test-ddplot.R

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
})

Try the DepthProc package in your browser

Any scripts or data that you put into this service are public.

DepthProc documentation built on Feb. 4, 2022, 1:07 a.m.