n22dig(cor(matrix(rnorm(100),10)),TRUE)
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
# [1,] " I" " " " " " " " " " " " " " " " " " "
# [2,] "10" " I" " " " " " " " " " " " " " " " "
# [3,] " 8" "26" " I" " " " " " " " " " " " " " "
# [4,] " 8" "49" " 2" " I" " " " " " " " " " " " "
# [5,] " 8" "22" " 9" "46" " I" " " " " " " " " " "
# [6,] "40" "26" " 5" "27" "14" " I" " " " " " " " "
# [7,] " 8" "15" "21" "58" "13" "26" " I" " " " " " "
# [8,] "13" "30" " 2" "58" "21" "41" "61" " I" " " " "
# [9,] "46" "22" " 7" "63" "15" "25" "43" "36" " I" " "
# [10,] "66" "51" "48" "16" "20" "27" "28" "20" "16" " I"
Run the code above in your browser using DataLab