Como adaptar a função addpercent em r

Suponha que você queira ser capaz de colar o sinal de porcentagem de vetores personagem com o addPercent

função. Um vector personagem vai dar um erro no momento em que tentar multiplicá-lo, então você precisa uma outra função para isso, como o seguinte:

Video: Forma Função

addPercent.character lt; - função (x) {pasta (x,"%", Setembro =")}

Note-se que o tipo do objeto não é vector mas o caráter. Da mesma forma, você também tem que renomear o original addPercent função para addPercent.numeric em seu script.

Video: Tutorial: Domesticando e montando no Parasaur - Ark: Survival Evolved

Se você usar o sistema de envio método, você pode manter todas as funções em um arquivo de script, se eles não são muito grandes. Dessa forma, você tem a fonte apenas um arquivo de script para ter todo o funcionamento do sistema genérico.

Tudo que você precisa agora é um genérico addPercent () funcionar como este:

addPercent lt; - função (x, ...) {UseMethod ("addPercent")}

Você usa apenas dois argumentos aqui: X e os pontos (...). O uso do argumento pontos garante ainda pode usar todos os argumentos da addPercent.numeric () função em sua chamada para addPercent (). Os argumentos extras são simplesmente passado para o método apropriado via o argumento pontos.

Após o envio do arquivo de script completo para o console, você pode enviar ambos os vetores de caracteres e vetores numéricos para addPercent (), como isso:

gt; addPercent (new.numbers, FUN = andar) [1] "82%" "2%" "162%" "40%"gt; addPercent (letras [1: 6]) [1] "uma%" "b%" "c%" "d%" "e%" "f%"