# NOT RUN {
data(riskcor)
# first define an ordered vector of names
row_names <- rownames(riskcor)
row_names_new <- row_names[c(1,2,3,4,6,5)]
reorder_mat(riskcor,row_names_new)
# The fifth and sixth row and column have been switched
print(riskcor)
# }
Run the code above in your browser using DataLab