Return the log-likelihood of the data for a given g() prior
calc_loglik(g, data)
g
the fitted g, or an ash object containing g
data
a data object, see set_data