Nothing
p_minus <-
function(p1, p2){
k = length(p1)
p2_rev = rev(p2[-1])
p2_sum = rev(cumsum(p2_rev))
p1_short = p1[-k]
res = sum(p1_short*p2_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.