R/Sd.R

Sd <-
function(S.PLFN){
s2 <-Var(S.PLFN)
s.d = FuzzyNumbers::fapply( s2, function(x) sqrt(x) )  #  Standard Deviation
return( s.d )
}

Try the Sim.PLFN package in your browser

Any scripts or data that you put into this service are public.

Sim.PLFN documentation built on May 2, 2019, 5:51 a.m.