This function computes the gradient of the orthogonality defect measure with respect to the input matrix `A`. The gradient is useful for optimization techniques that require gradient information. The gradient will be zero for matrices where `AtA` equals the diagonal matrix `D`.

gradient_invariant_orthogonality_salad(A)

Arguments

A

A numeric matrix.

Value

A numeric matrix representing the gradient of the orthogonality defect measure.

Examples

# library(salad)
# A <- matrix(runif(20), nrow = 10, ncol = 2)
# gradient_invariant_orthogonality_salad(A)