## ----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,p=2) ## ----sq_wasserstein_exact----------------------------------------------------- wasserstein_metric(x,y,p=2)^2 ## ----sq_wassersein_approx----------------------------------------------------- squared_wass_approx(x,y) ## ----sq_wassersein_decomp----------------------------------------------------- squared_wass_decomp(x,y) ## ----session-info------------------------------------------------------------- sessionInfo()