Some thoughts and comments to sample_wtatage.R

I probably broke the function, but it should be an easy fix. I'm mainly
thinking of the first three lines with fleets -2, -1, and 0.