n <- 5 ; p <- 3
X <- matrix(rnorm(n * p), ncol = p)
euclsq(X)
as.matrix(stats::dist(X)^2)
euclsq(X, X)
Y <- X[c(1, 3), ]
euclsq(X, Y)
euclsq_mu(X, Y[2, ])
i <- 3
euclsq(X, X[i, , drop = FALSE])
euclsq_mu(X, X[i, ])
S <- cov(X) * (n - 1) / n
i <- 3
mahsq(X)[i, , drop = FALSE]
stats::mahalanobis(X, X[i, ], S)
mahsq(X)
Y <- X[c(1, 3), ]
mahsq(X, Y)
Run the code above in your browser using DataLab