Nothing
REFSTD_6_SP <-
function (refstd, N.refstd, A.Sp2, B.Sp2)
{
if (refstd == TRUE) {
sp = 1
}
else {
sp = rbeta(n = N.refstd, shape1 = A.Sp2, shape2 = B.Sp2)
}
results = list(sp)
names(results) = list("SP")
return(results)
}
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.