matching_score | R Documentation |
Computes a matching score from agreement vectors and weights
matching_score(agree, m, u)
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)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.