Likelihood for using proportion detectable only

likelihood_detectable(obs_dat, ages, pars, prob_infection)