R/chi_diag.boot.R

chi_diag.boot <- function(df, d=d){
  q <- df[d] %>% sum((df[2,]-log(d_bar(df))/(df[1,])))
  return(q)
}
tmnaylor/r4lineups documentation built on May 10, 2019, 8:30 a.m.