# Generate example data
set.seed(123)
n <- 50
x <- matrix(rnorm(n * 5), nrow = n) # multivariate explanatory variables
y_vec <- rbinom(n, 1, 0.5) # univariate response
y_mat <- matrix(rnorm(n * 2), nrow = n) # multivariate response
# Compute MDD with vector Y and U-centering
mdd(x, y_vec, center = "U")
# Compute MDD with matrix Y and double-centering
mdd(x, y_mat, center = "D")
Run the code above in your browser using DataLab