matching_score: Computes a matching score from agreement vectors and weights

In borishejblum/ludic: Linkage Using Diagnosis Codes

Description

Computes a matching score from agreement vectors and weights

Usage

matching_score(agree, m, u)

Examples

estep_vect <- function(ag_score, p, m, u){
  a <-exp(log(p) + ag_score%*%log(m) + (1-ag_score)%*%log(1-m))
  b <- exp(log(1-p) + ag_score%*%log(u) + (1-ag_score)%*%log(1-u))
  return(cbind(a/(a+b), b/(a+b)))
}

borishejblum/ludic documentation built on Aug. 23, 2021, 3:09 p.m.