R Create Function With Two