R/likeli.R

Defines functions likeli

likeli <- function(n, m){ 
  if (m < n & m != 0)
    Like <- m*log(m/n) + (n-m)*log(1-m/n)
  else Like <- 0
  return(Like)
}

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.