Nothing
`secdifv` <-
function(T1, T2)
{
# T1 and T2 are vectors
return(secdif(T1[1], T1[2], T1[3], T1[4], T2[1], T2[2], T2[3], T2[4] ))
}
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.