R -将矩阵中的每个值除以其行/列的最大值

I'm trying to transform the values in a matrix by dividing each value by the lesser of the maximum values of its column or row name. I am having trouble because I don't know how to query the row/column for a particular value from inside a larger function.I'm trying to transform the values in a matrix