Nothing
`Comp1Dvel` <-
function(v, v2, col=c('blue', 'brown'), ... )
{
plot(c(v$vp,v$vs, v2$vp, v2$vs), c( -v$zp,-v$zs, -v2$zp,-v2$zs), type='n',
xlab="Velocity, km/s", ylab="Depth, km")
u = par('usr')
lines(v$vp, -v$zp, type='s', col=col[1], ...)
lines(v$vs, -v$zs, type='s', col=col[2], ...)
lines(v2$vp, -v2$zp, type='s', col=col[1], ...)
lines(v2$vs, -v2$zs, type='s', col=col[2], ...)
grid()
title(v$name)
}
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.