Nothing
lambFun<-function(k,N,lamb0,model){
if (model== 0){f <- lamb0}
else if (model== -1){
if (k>N) {f<-0}
else {
f <- lamb0*(1-k/N)}}
else { f <- lamb0*k^(-model)}
f
}
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.