Nothing
`eqc` <-
function (ra,d,names=NULL)
{
res=data.frame(ra,d);
row.names(res)=names;
class(res$ra)="time";
class(res$d)="dms";
class(res)=c("eqc","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.