Nothing
P <-
function(X,lambda1,lambda2){
p<-dim(X)[2]
return(lambda1*sum(apply(X,2,norm_2))+
lambda2*sum(apply(X[,1:(p-1)]-X[,2:p],2,norm_2)))
}
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.