R/weight_fns.R

In amspector100/blipr: A Bayesian Linear Program for resolution-adaptive signal detection

Defines functions inverse_radius log_inverse_size inverse_size

inverse_size <- function(cand_group) {
	return(1 / length(cand_group$group))
}

log_inverse_size <- function(cand_group) {
	return(1 + log(inverse_size(cand_group), 2))
}

inverse_radius <- function(cand_group) {
  return(1 / cand_group$radius)
}