R Function Multiple Inputs Using Splitwise