matching_score {ludic} | R Documentation |
Computes a matching score from agreement vectors and weights
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)))
}
[Package ludic version 0.2.0 Index]