# NOT RUN {
distrExOptions("ElowerTruncQuantile" = 1e-15) # problem with
# non-finite function value
(G1 <- GumbelLocationFamily())
plot(G1)
Map(L2deriv(G1)[[1]])
checkL2deriv(G1)
distrExOptions("ElowerTruncQuantile" = 0) # default
# }
Run the code above in your browser using DataLab