rkappa4 <-
function(n,shape1,shape2,scale=1,location=0)
qkappa4(p=runif(n),shape1=shape1,shape2=shape2,scale=scale,location=location)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.