Function Plot In R