Using Table In R