Subsetting a matrix by row names and column names in R

Question

I have a symmetric matrix that looks like this (this is a relationship matrix between 6 animals):

     AN1   AN2   AN3   AN4   AN5   AN6
AN1   1    0.5    0   0.2