Create weighted.r

All this is is a slight massaging of the tapply function to give the "index" and "weights" as separate values. No need to conform them in any fancy way as with tapply or aggregate, since 1) they need to be readily available for manipulation in all the methods and 2) print/head/summary methods are what useRs SHOULD be using to inspect their data.