Analytics Function In R