Added log.likelihood function in R/utils