When encountering a non-positive definite (NPD) correlation matrix, I'm often tempted to use "Matrix::nearPD(NPD, corr=TRUE)$mat" to convert my NPD correlation matrix to a nearly positive definite correlation matrix (see below).
Question 1: Is there a way to measure how much change will this introduce to the original NPD correlation matrix and hence determine the extent to which this strategy is justified?
```
NPD_MATRIX <- structure(c(0.58, 0.55, 0.52, 0.34, 0.56, 0.45, 0.52, 0.42, 0.55,
0.64, 0.36, 0.2, 0.4, 0.29, 0.35, 0.29, 0.52, 0.36, 0.58, 0.53,
0.58, 0.36, 0.55, 0.57, 0.34, 0.2, 0.53, 0.77, 0.52, 0.33, 0.63,
0.57, 0.56, 0.4, 0.58, 0.52, 0.32, 0.42, 0.52, 0.5, 0.45, 0.29,
0.36, 0.33, 0.42, 1, 0.4, 0.33, 0.52, 0.35, 0.55, 0.63, 0.52,
0.4, 0.62, 0.52, 0.42, 0.29, 0.57, 0.57, 0.5, 0.33, 0.52, 0.73
), dim = c(8L, 8L), dimnames = list(c("L2DA", "L2DF", "L2G",
"L2L", "L2M", "L2P", "L2R", "L2V"), c("L2DA", "L2DF", "L2G",
"L2L", "L2M", "L2P", "L2R", "L2V")))