tidied output names

pboesu · Jan 19, 2018 · 7e8f42b · 7e8f42b
1 parent 28fde0b
commit 7e8f42b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_tb.R b/R/get_tb.R
@@ -79,7 +79,7 @@ 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, lb, info))
+  return(c(tb = unname(tb), lb = unname(lb), info = info))
 }
 
   # subfunction