inst/doc/wasserstein_metric.R

In waddR: Statistical tests for detecting differential distributions based on the 2-Wasserstein distance

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(waddR)

set.seed(24)
x <- rnorm(100, mean=0, sd=1)
y <- rnorm(100, mean=2, sd=1)

## ----wasserstein_exact--------------------------------------------------------
wasserstein_metric(x, y)

## ----sq_wasserstein_exact-----------------------------------------------------
wasserstein_metric(x, y)**2

## ----sq_wassersein_approx-----------------------------------------------------
squared_wass_approx(x, y)

## ----sq_wassersein_decomp-----------------------------------------------------
squared_wass_decomp(x, y)

## ----session-info-------------------------------------------------------------
sessionInfo()