Nothing
getAmpDel <-
function(oo,sam.dat){
y<-oo$y0
tmp<-1:dim(sam.dat)[1]
amp.tag<-which(!tmp%in%oo$list&sam.dat[,4]>y)
del.tag<-which(!tmp%in%oo$list&sam.dat[,4]<=y)
amp<-sum(sam.dat[amp.tag,5])/sum(sam.dat[,5])
del<-sum(sam.dat[del.tag,5])/sum(sam.dat[,5])
return(c(amp,del))
}
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.