R/min.weib.R

min.weib <-
function(p, Fn, n, x, delta){
	theta <- p[1]
	k <- p[2]
	LL <- Fn*log(k) + k*Fn*log(theta) - sum((x*theta)^k) + (k-1)*sum(delta*log(x))
	return(-LL)
	}

Try the iteRates package in your browser

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

iteRates documentation built on May 2, 2019, 9:12 a.m.