Nothing
comparefilelist<-function(files,files2)
{
w<-unlist(lapply(files,cfl.helper,files2))
return(files[!w])
}
cfl.helper<-function(file, files2)
{
return(any(file==substr(files2,1,str_length(file))))
}
find.mode<-function(x)
{
d<-density(x)
return(d$x[which(d$y==max(d$y))[1]])
}
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.