R/LL.R

Defines functions LL

Documented in LL

#' Compute the Log Likelihood of the Weibull Distribution
#' 
#' @param beta An estimate of beta.
#' @param x The data
#' 
#' @author Tyler Hunt \email{[email protected]@psychoanalytix.com}
#' @export

LL <- function(beta, x){
	n<-length(x)
	theta<-(sum(x^beta/n)^(1/beta))
	n * log(beta/theta) + (beta-1) * sum( log(x/theta) ) - sum( (x/theta)^beta )
}
JackStat/WeibFit documentation built on May 7, 2019, 10:17 a.m.