diff --git a/R/get_tb.R b/R/get_tb.R index 07c9467..09c12e8 100644 --- a/R/get_tb.R +++ b/R/get_tb.R @@ -79,7 +79,9 @@ get_tb <- function(p, eb = 1, lb=NA){ #library(pracma) abxb=c(ab,xb) tb = 3 * quad(dget_tb, xa= 1e-15, xb=xb, tol = 1.0e-12, trace = FALSE, abxb) + return(c(tb = unname(tb), lb = unname(lb), info = unname(info))) + } # subfunction