Nothing
info.seis<-function(GH)
{
A = dateStamp(GH$info)
B = paste(sep=" ", 1:length(GH$STNS), GH$STNS, GH$COMPS, GH$dt, GH$info$n )
B2 = paste(sep=" ",B, A)
cat(B2, sep="\n")
########## info.seis(GH)
}
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.