Added Range Slider and R logic