R Create Function With Multiple Arguments