R function to add a row runs line-by-line but not in a function

Question

I\'m just genuinely confused here. So here is some code that works fine:

 insertion3=county$rpc85_weighted.mean[1]-county$rpc85_weighted.mean
  county$changed