correct names for returned values

pboesu · Jan 17, 2018 · 28fde0b · 28fde0b
1 parent 37772f9
commit 28fde0b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/get_lb.R b/R/get_lb.R
@@ -137,6 +137,6 @@ get_lb = function(p, eb = 1, lb0 = NA){
     warning('get_lb: no convergence of l_b')
   }
 
-  return(c(lb, info))
+  return(c(lb = unname(lb), info = info))
 
 }
diff --git a/R/get_ue0.R b/R/get_ue0.R
@@ -76,5 +76,5 @@ get_ue0=function(p, eb = 1, lb0 = NA){
 
   #print(paste("uE0", uE0))
 
-  return(c(uE0, lb, info))
+  return(c(uE0 = unname(uE0), lb = unname(lb), info = info))
 }