R/min.vrat.R

min.vrat <-
function(p, x, delta){
	alpha <- p[1]
	beta <- p[2]
	LL <- sum(delta*(log(alpha*beta)-(1+alpha)*log(1+beta*x))) + sum((1-delta)*log((1+beta*x)^(-alpha)))
	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.