Code box 13.1 (and accompanying text): mean instead of median?

[skeydan]

Hi Richard,

in code box 13.1, in a comment, it says "compute median" while the code computes the mean:

# compute median intercept for each tank
# also transform to probability with logistic
d$propsurv.est <- logistic( apply( post$a , 2 , mean ) 

The text too talks about

varying intercept medians

and

estimated median survival proportion

Am I overlooking something? Thanks!