Nothing
top <-
function(vect, thresh){
sorted_vect <- sort(abs(vect),decreasing=TRUE)
v=sorted_vect[thresh]
ifelse(abs(vect)>=v,vect,0)
}
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.