Nothing
p_plus <-
function(p1, p2){
k = length(p1)
p1_rev = rev(p1[-1])
p1_sum = rev(cumsum(p1_rev))
p2_short = p2[-k]
res = sum(p2_short*p1_sum)
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.