How To Graph A Function In R