Nothing
"plot.tvm" <-
function (x,row=1,...)
{
row = x[row,];
cf = c(row[3],rep(row[5],row[2]),row[4]);
cf[2]=cf[2]*(1+row[7]);
names(cf)=NULL;
pl = barplot(cf,ylim=1.1*range(c(cf,cumsum(cf))),...);
lines(pl,cumsum(cf),type="b");
}
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.