Resolving the Invalid 'Type' Argument Issue in Weighting Calculation Using R's ddply Function