# NOT RUN {
G_delta(0)
W_delta(0)
# W_delta is the inverse of G_delta
u.v <- -2:2
W_delta(G_delta(u.v, delta = 0.3), delta = 0.3)
# with alpha too
G_delta_alpha(u.v, delta = 1, alpha = 0.33)
W_delta_alpha(G_delta_alpha(u.v, delta = 1, alpha = 0.33),
delta = 1, alpha = 0.33) # the inverse
# }
Run the code above in your browser using DataLab