R/jensen_shannon.R

'jensen_shannon' <- function(proportion_vals)
{
  return(invisible(compute_entropy(apply(proportion_vals,2,mean))-mean(apply(proportion_vals,1,compute_entropy))))
}
ndbrown6/MSK-GRAIL-TECHVAL documentation built on March 29, 2020, 4:41 p.m.