Arredonde QUALQUER número para cima / baixo para QUALQUER intervalo
Você pode facilmente arredondar os números para um intervalo específico usando o operador de módulo %% .
A função:
round.choose <- function(x, roundTo, dir = 1) {
if(dir == 1) { ##ROUND UP
x + (roundTo - x %% roundTo)
} else {
if(dir == 0) { ##ROUND DOWN
x - (x %% roundTo)
}
}
}
Exemplos:
> round.choose(17,5,1) #round 17 UP to the next 5th
[1] 20
> round.choose(17,5,0) #round 17 DOWN to the next 5th
[1] 15
> round.choose(17,2,1) #round 17 UP to the next even number
[1] 18
> round.choose(17,2,0) #round 17 DOWN to the next even number
[1] 16
Como funciona:
O operador de módulo %%determina o resto da divisão do primeiro número pelo segundo. Adicionar ou subtrair este intervalo ao seu número de interesse pode essencialmente 'arredondar' o número para um intervalo de sua escolha.
> 7 + (5 - 7 %% 5) #round UP to the nearest 5
[1] 10
> 7 + (10 - 7 %% 10) #round UP to the nearest 10
[1] 10
> 7 + (2 - 7 %% 2) #round UP to the nearest even number
[1] 8
> 7 + (100 - 7 %% 100) #round UP to the nearest 100
[1] 100
> 7 + (4 - 7 %% 4) #round UP to the nearest interval of 4
[1] 8
> 7 + (4.5 - 7 %% 4.5) #round UP to the nearest interval of 4.5
[1] 9
> 7 - (7 %% 5) #round DOWN to the nearest 5
[1] 5
> 7 - (7 %% 10) #round DOWN to the nearest 10
[1] 0
> 7 - (7 %% 2) #round DOWN to the nearest even number
[1] 6
Atualizar:
A versão conveniente de 2 argumentos:
rounder <- function(x,y) {
if(y >= 0) { x + (y - x %% y)}
else { x - (x %% abs(y))}
}
yValores positivos roundUp, enquanto yvalores negativosroundDown :
# rounder(7, -4.5) = 4.5, while rounder(7, 4.5) = 9.
Ou....
Função que arredonda automaticamente PARA CIMA ou PARA BAIXO base nas regras de arredondamento padrão:
Round <- function(x,y) {
if((y - x %% y) <= x %% y) { x + (y - x %% y)}
else { x - (x %% y)}
}
Arredonda automaticamente se o xvalor estiver na >metade do caminho entre as instâncias subsequentes do valor de arredondamento y:
# Round(1.3,1) = 1 while Round(1.6,1) = 2
# Round(1.024,0.05) = 1 while Round(1.03,0.05) = 1.05