Theta <- c(-0.5,5,2.5)
maxDens <- dgig(gigMode(Theta), Theta)
gigRange <- gigCalcRange(Theta, tol = 10^(-3)*maxDens)
gigRange
curve(dgig(x, Theta), gigRange[1], gigRange[2])
if (FALSE) gigCalcRange(Theta, tol = 10^(-3), density = FALSE)
Run the code above in your browser using DataLab