R/lik.R

Defines functions lik

lik <- function(try, data)
{
  lik <- 0 
  for (m in 1:length(try)) 
  {
    lik <- likeli(try[[m]]$total, try[[m]]$active) + lik
  }
  lik<-likeli(nrow(data), sum(data$y)) - lik 
  return(lik)
}

Try the Harvest.Tree package in your browser

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

Harvest.Tree documentation built on May 2, 2019, 3:31 p.m.