Computes \(W \propto P \odot LT\) (producto elemento a elemento) y
renormaliza cada fila a la simplex. Útil cuando prior y likelihood deben
reforzarse mutuamente.
T <- 4; K <- 4
P <- matrix(runif(T*K), T); P <- P / rowSums(P)
LT <- matrix(runif(T*K), T); LT <- LT / rowSums(LT)
W <- posterior_multiplicative(P, LT)