unreliable naming of output when names provided

[stephens999]

If x is a column vector with a column name "x" then $posterior$mean does not exist;
instead it is named $posterior$x

x = cbind(c(1,2,3))
colnames(x) = "x"
x
x
[1,] 1
[2,] 2
[3,] 3
ebnm_point_exponential(x,1)$posterior$mean
NULL
ebnm_point_exponential(x,1)$posterior$x
[1] 0.9579041 1.5564219 2.4143795