R/ireff.R

"ireff" <-
function (nom,p) 
{
if (p != Inf) {
	return(((1+nom/(100*p))^p-1)*100)
	}
	else
	{
	return ((exp(nom/100)-1)*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.