R/get_log_scale_constant.R

Defines functions get_log_scale_constant

get_log_scale_constant <-
function(x){
  return(Reduce(function(sumx, n){
    sumx - (log(n+1))
    },x,0))
}
benmarwick/signatselect documentation built on Dec. 4, 2019, 4:22 p.m.