R/Diff.2.R

In FAmle: Maximum Likelihood and Bayesian Estimation of Univariate Probability Distributions

Defines functions Diff.2

Documented in Diff.2

Diff.2 <-
function(k,i,model,p,ln=FALSE)
{
	param <- model$par.hat
	param[i] <- k
	if(!ln) return(distr(p,model$dist,param,'q'))
	else return(log(distr(p,model$dist,param,'q')))
}

Try the FAmle package in your browser