¿Cómo adaptar la función addpercent en r

Supongamos que usted quiere ser capaz de pegar el signo de porcentaje a los vectores de caracteres con el addPercent función. Un vector personaje dará un error al momento de intentar multiplicarlo, por lo que necesita otra función para la que, como el siguiente:

addPercent.character lt; - la función (x) {pegar (x, "%", septiembre = "")}

Tenga en cuenta que el tipo de objeto no es vector pero el carácter. De la misma manera, también hay que cambiar el nombre del original addPercent función para addPercent.numeric en el script.

Si utiliza el sistema de método de despacho, usted puede mantener todas las funciones en un archivo de comandos si no son demasiado grandes. De esa manera, usted tiene a la fuente de un solo archivo de comandos con el fin de tener todo el trabajo del sistema genérico.

Todo lo que necesitamos ahora es un genérico addPercent () funcionar como esto:

addPercent lt; - la función (x, ...) {UseMethod ("addPercent")}

Utiliza sólo dos argumentos aquí: X y los puntos (...). El uso del argumento puntos asegura que aún puede utilizar todos los argumentos de la addPercent.numeric () función en su llamada a addPercent (). Los argumentos adicionales simplemente se pasan al método apropiado a través de la discusión de puntos.

Después de enviar el archivo de comandos completa a la consola, puede enviar los dos vectores de caracteres y vectores numéricos a addPercent (), Me gusta esto:

> AddPercent (new.numbers, FUN = planta) [1] "82%" "2%" "162%" "40%"> addPercent (letras [1: 6]) [1] "a%" "b% "" c% "" d% "" e% "" f% "



» » » » ¿Cómo adaptar la función addpercent en r