Nothing
km.GB2 <-
function(b,a,p,q,k){ #k-th moment function - from Kleiber p.188
km<- b^k*gamma(p+k/a)*gamma(q-k/a)/(gamma(p)*gamma(q))
return(km)
}
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.