Statistical Function In R