Sinc Function Plot In R