Reduce a vector of ratios to a given period
Examples
test_scale <- cents2ratio(seq(2400, 3500, by = 100))
print(scale <- period_reduce(test_scale, 2))
#> [1] 1.000000 1.059463 1.122462 1.189207 1.259921 1.334840 1.414214 1.498307
#> [9] 1.587401 1.681793 1.781797 1.887749