Alpha Function In R