Nothing
###############################################################################
## Generating function to generate empirical distribution given some data
###############################################################################
## simple wrapper to DiscreteDistribution
EmpiricalDistribution <- function(data, .withArith = FALSE,
.withSim = FALSE, .lowerExact = TRUE, .logExact = FALSE,
.DistrCollapse =
getdistrOption("DistrCollapse"),
.DistrCollapse.Unique.Warn =
getdistrOption("DistrCollapse.Unique.Warn"),
.DistrResolution = getdistrOption("DistrResolution"),
Symmetry = NoSymmetry()){
DiscreteDistribution(supp = data, .withArith = .withArith, .withSim = .withSim,
.lowerExact = .lowerExact, .logExact = .logExact,
.DistrCollapse = .DistrCollapse,
.DistrCollapse.Unique.Warn = .DistrCollapse.Unique.Warn,
.DistrResolution = .DistrResolution,
Symmetry = Symmetry)
}
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.