This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(ggdag) | |
library(patchwork) | |
data_confounder <- dagify( | |
Y ~ Z + X, | |
X ~ Z, | |
coords = list(x = c(X = 1, Y = 3, Z = 2), | |
y = c(X = 1, Y = 1, Z = 2)) | |
) %>% |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
""" | |
Multivariate Wald-Wolfowitz test for two samples in separate CSV files. | |
See: | |
Friedman, Jerome H., and Lawrence C. Rafsky. | |
"Multivariate generalizations of the Wald-Wolfowitz and Smirnov two-sample tests." | |
The Annals of Statistics (1979): 697-717. | |
Given multivariate sample X of length m and sample Y of length n, test the null hypothesis: |