Internal function, logsum
Function directly taken from coloc
This function calculates the log of the sum of the exponentiated
logs taking out the max, i.e. insuring that the sum is not Inf

## Arguments

- x
numeric vector

## Value

max(x) + log(sum(exp(x - max(x))))