summary_statistics_A <- function(matrix){
vec = sort(as.vector(matrix))
len = length(vec)

if(isSymmetric(matrix) && is.numeric(matrix)){
min = vec[1]
Continue reading →