# NOT RUN {
<!-- %##---- Should be DIRECTLY executable !! ---- -->
# }
# NOT RUN {
<!-- %##-- ==> Define data, use random, -->
# }
# NOT RUN {
<!-- %##-- or do help(data=index) for the standard data sets. -->
# }
# NOT RUN {
<!-- % -->
# }
# NOT RUN {
<!-- %## The function is currently defined as -->
# }
# NOT RUN {
<!-- %function (x) -->
# }
# NOT RUN {
<!-- %{ -->
# }
# NOT RUN {
<!-- % moment(x, 2) - moment(x, 1)^2 -->
# }
# NOT RUN {
<!-- % } -->
# }
# NOT RUN {
<!-- %} -->
# }
# NOT RUN {
x <- c(10,6.4,9,7.9,7.1,9)
ld <- lossDistribution(x)
variance(ld)
var(x)
# }
Run the code above in your browser using DataLab