Nothing
`addPT` <-
function(MEC, pch=5)
{
focpoint(MEC$P$az, MEC$P$dip, pch=5, lab="P", UP=MEC$UP)
focpoint(MEC$T$az, MEC$T$dip, pch=5, lab="T", UP=MEC$UP)
}
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.