Nothing
local.min <-
function(x)
{
xl=length(x)
local_opt=which(sign(x[2:(xl-1)]-x[1:(xl-2)])==sign(x[2:(xl-1)]-x[3:xl]))+1
local_min=intersect(local_opt,which(x[2:(xl-1)]-x[1:(xl-2)]<0)+1)
return(local_min)
}
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.