Nothing
"plot.cf" <-
function (x,type=c("bar","npv"),...)
{
cfnpv = function (x,i)
{
npv = c()
for (k in 1:length(i))
{
n = length(x)
j = 0:(n-1)
pvs = x * sppv(i[k],j)
npv = c(npv,sum(pvs))
}
return(npv);
}
cfnfv = function (x,i)
{
return(cfnpv(x,i)*spfv(i,length(x)-1))
}
cfnus = function (x,i)
{
cfnpv(x,i)/uspv(i,length(x)-1);
}
s <- match.arg(type)
pt <- switch(s, bar =0, npv =1)
if (pt==0) {
if (is.null(x$tab)) r = 1.1*range(c(x$cf,cumsum(x$cf)))
else r = 1.1*range(c(x$cf,cumsum(x$cf),as.vector(x$tab[,2])))
p = barplot(x$cf,ylim=r,...);
lines(p,cumsum(x$cf),type="b");
if (!is.null(x$tab)) {
abline(h=as.vector(x$tab[,2]),lty=1:nrow(x$tab));
axis(4,x$tab[,2],x$tab[,1]);
}
}
else if (pt==1)
{cf = x$cf;
curve(cfnpv(cf,x),1,100,xlab="i%",ylab="NPV");
abline(h=0);
abline(v=x$irr,lty=2);
axis(3,x$irr,round(x$irr,2));
abline(v=x$ext,lty=3);
axis(3,x$ext,round(x$ext,2));
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.