Nothing
Sd <-
function(S.PLFN){
s2 <-Var(S.PLFN)
s.d = FuzzyNumbers::fapply( s2, function(x) sqrt(x) ) # Standard Deviation
return( s.d )
}
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.