# Retrieve default pattern functions
patterns <- defaultPatternFunctions()
# Add a custom pattern based on diagonal structure
diagonalPattern <- function(m) {
diagVal <- mean(diag(as.matrix(m)))
matrix(diagVal, nrow = nrow(m), ncol = ncol(m))
}
# Extend the list with your own pattern
patterns$diagonal <- diagonalPattern
Run the code above in your browser using DataLab