Nothing
plotGH<-function(h)
{
###### quick time series plot of a seismic trace in RSEIS
plot(stats::ts(h$amp, deltat=h$dt) , ylab='Amplitude', xlab='Time, s')
stachan = paste(h$sta, h$comp)
dstmp = RSEIS::dateStamp(h$DATTIM)
mtext(stachan, side = 3, line = 1 )
mtext(dstmp, side = 3, line = 0, at =0, adj=c(0,0) )
}
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.