Nothing
`hoc` <-
function (az,alt,names=NULL)
{
res=data.frame(az,alt);
row.names(res)=names;
class(res$az)="dms";
class(res$alt)="dms";
class(res)=c("hoc","apos","data.frame");
return(res);
}
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.