function(x, y, operador)

2 + 3 == `+`(2,3)
2 - 3 == `-`(2,3)
2 / 2 == `/`(2,2)
2 * 2 == `*`(2,2)

aplicar <- function(x, y, operador) {
  operador(x,y)
}

aplicar(2, 3, `+`)
aplicar(2, 3, `-`)
aplicar(2, 2, `/`)
aplicar(2, 2, `*`)

+   Suma
–   Resta
*   Multiplicación
/   División
^   Exponente
%%  Módulo
%/% División entera

<   Menor a
>   Mayor a
<=  Menor igual a
>=  Mayor igual a
==  Igual
!=  Distinto

&   Y lógico
&&  Y lógico (no vectorizado)
|   O lógico
||  O lógico (no vectorizado)

`!`(TRUE)
FALSE

<-, <<-, =  Asignación izquierda
->, ->>     Asignación derecha