R/lkComputeTC.R

Defines functions lkComputeTC

lkComputeTC = function(pg, fig){

  lig = fig %*% diag(pg)
  li = log(rowSums(lig))
  lk = sum(li)

  return(out = list(li = li, lig = lig, lk = lk))
}

Try the lqmix package in your browser

Any scripts or data that you put into this service are public.

lqmix documentation built on April 4, 2025, 1:42 a.m.