Nothing
'cleanpickfile'<-
function(P)
{
############ clean up a pick file that has
############ old or non-conforming phase picks
######## if the pick has no station name it must be bpgus. SEE EMPTYPickfile
YPX=P$STAS
w = which(YPX$name == "" | is.na(YPX$name) )
if(length(w)<1) return(P)
Y = deleteWPX(YPX, w)
P$STAS = as.list(Y)
return(P)
}
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.