Rescale numeric vector to have specified maximum

rescale_max(x, to = c(0, 1), from = range(x, na.rm = TRUE))

Arguments

x	numeric vector of values to manipulate.
to	output range (numeric vector of length two)
from	input range (numeric vector of length two). If not given, is calculated from the range of `x`

Examples

rescale_max(1:100)
#>   [1] 0.01 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.10 0.11 0.12 0.13 0.14 0.15
#>  [16] 0.16 0.17 0.18 0.19 0.20 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.28 0.29 0.30
#>  [31] 0.31 0.32 0.33 0.34 0.35 0.36 0.37 0.38 0.39 0.40 0.41 0.42 0.43 0.44 0.45
#>  [46] 0.46 0.47 0.48 0.49 0.50 0.51 0.52 0.53 0.54 0.55 0.56 0.57 0.58 0.59 0.60
#>  [61] 0.61 0.62 0.63 0.64 0.65 0.66 0.67 0.68 0.69 0.70 0.71 0.72 0.73 0.74 0.75
#>  [76] 0.76 0.77 0.78 0.79 0.80 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.90
#>  [91] 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.00
rescale_max(runif(50))
#>  [1] 0.581568164 0.773277228 0.995468995 0.711218429 0.215017323 0.291859063
#>  [7] 0.722010659 0.866916994 0.238536008 0.004497871 0.943844491 0.438289525
#> [13] 0.750864286 0.668047940 0.408115039 0.351370931 0.738348169 0.664516441
#> [19] 0.085254330 0.856429803 0.077010086 0.853141306 0.106383934 0.484971372
#> [25] 0.247305059 0.686807906 0.163680084 0.953156062 0.321966448 0.361659809
#> [31] 0.888032047 0.828302288 0.100691452 0.906366579 0.772999015 0.383503955
#> [37] 1.000000000 0.349420487 0.947647614 0.216175106 0.032103866 0.145366364
#> [43] 0.854680926 0.213223415 0.210383855 0.039534430 0.945103267 0.245013140
#> [49] 0.781394136 0.288337378
rescale_max(1)
#> [1] 1