Javascript Average Array Reduce Function In R