R/irnom.R

"irnom" <-
function (eff,p) 
{
if (p != Inf) {
	return(10^(2*(p-1)/p)*p*(eff+100)^(1/p)-100*p)
	}
	else
	{
	return (100*log((eff+100)/100))
	}

}

Try the financial package in your browser

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

financial documentation built on May 30, 2017, 2:35 a.m.