Nothing
psibi <-
function(u, ccc){
w <- abs(u) <= ccc
v <- w * u * ((1 - (u / ccc)^2)^2)
v <- v * 6 / ccc^2
return(v)
}
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.