From 7e8f42b658129ce2286cdd3029b2057a45844965 Mon Sep 17 00:00:00 2001 From: Philipp Boersch-Supan Date: Fri, 19 Jan 2018 16:58:18 -0500 Subject: [PATCH] tidied output names --- R/get_tb.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/get_tb.R b/R/get_tb.R index da62fd5..da26bcd 100644 --- 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