part way to arbitrary scales via R