Spring Scale Function In R