Javascript Reduce Array Function In R