title: How to drop columns based on the max value in each row
body: <pre><code>Col1&lt;-c(3,8,2,4,2)
  Col2&lt;-c(3,7,3,9,2)
  Col3&lt;-c(5,7,5,7,5)
  Col4&lt;-c(1,9,2,3,4)
  Col5&lt;-c(1,2,6,7,5)
  Toy&lt;-data.frame(Col1,Col2,Col3,Col4,Col5)
  
  &gt; Toy
    Col1 Col2 Col3 Col4 Col5
  1    3    3    5    1    1
  2    8    7    7    9    2
  3    2    3    5    2    6
  4    4    9    7    3    7
  5    2    2    5    4    5
  </code></pre>
  
  <p>Given the above data frame, I would like to remove values in each row that are equal to the max value per row, as well as occur to the right (or increasing column #) of the max value.</p>
  
  <p>Logically, the statement would be:</p>
  
  <pre><code>1. Find max value per row 
  2. Make max value for each row = NA
  3. Make all columns to the right of column with max value =NA
  </code></pre>
  
  <p>so the new data frame would look like</p>
  
  <pre><code>  Col1 Col2 Col3 Col4 Col5
  1    3    3    NA   NA  NA
  2    8    7    7    NA  NA
  3    2    3    5    2   NA
  4    4    NA   NA   NA  NA
  5    2    2    NA   NA  NA
  </code></pre>
  
  <p>Steps </p>