GG_denhist and SMD_matrix, error/bad output with groups without data

[Deleetdk]

Error occurs when some groups have no data, and the coloring thus cannot be applied. These cause NAs in the central_tendency vector. This gets passed on to:

g = g + geom_vline(xintercept = central_tendency, linetype = "dashed", 
  size = 1, color = colors)

Which causes the error:

Error: Aesthetics must be either length 1 or the same as the data (6): colour, size, linetype

Solution is to exclude such groups before trying to plot.

This problem also occurs with SMD_matrix. It does not error, but gives bad output:

> SMD_matrix(d$g_noage, group = d$sex)
             missing inapplicable refused don't know male female
missing           NA          NaN     NaN        NaN  NaN    NaN
inapplicable     NaN           NA     NaN        NaN  NaN    NaN
refused          NaN          NaN      NA        NaN  NaN    NaN
don't know       NaN          NaN     NaN         NA  NaN    NaN
male             NaN          NaN     NaN        NaN   NA   0.22
female           NaN          NaN     NaN        NaN 0.22     NA

[Deleetdk]

On second thought. SMD_matrix should return NaN output. It's possible that there are holes in group comparisons in complex ways and we want it to work in that case too.