Nothing
mkPYM <- function(PY,nyears) {
PYM=.Call('mkPYM', PACKAGE = 'SEERaBomb', PY[,1], PY[,2], PY[,3],nyears)
# print(nyears)
dim(PYM)=c(126,nyears)
colnames(PYM)=1973:(1973+nyears-1)
rownames(PYM)=0.5:125.5
PYM
}
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.