Delta Method Function In R