With simulatePack()
is possible to:
Below the sintax of the function simulatePack()
:
simulatePack(source, composition, declared, plotce = F, main = "Pesi medi", step = 1e+05)
where:
source : a data frame with the weight of the single praline composition : a data frame with the composition of the pack declared : declared weight plotce : boolean, T if you want to plot T1 and T2, otherwise F main : optional main title step : simulation steps, number of pack to be simulated
library(ggplot2) library(tecTools)
In the source
data frame we save the weight of a sample af all the product we want to use in a mixed box:
data(source) # load Thorntons Continental Praline weight knitr::kable(head(source, 5))
In the composition
data frame we save the composition of the mixed box:
data(composition) # composition of Thorntons Continental box knitr::kable(composition)
In the following example we could see the frequency distribution of the weight of a box containing 16 Ferrero Rocher using the weight of the single praline products on line 1 of Alba
library(ggplot2) library(tecTools) data(L1_max) # load Rocher weight a <- data.frame(RO=c(16)) # composition of box of T.16 Rocher simulatePack(L1_max, a, 200.5)
the same plotting the T1 and T2 according to Dir. n. 76/211/CEE
library(ggplot2) library(tecTools) data(L1_max) # load Rocher weight a <- data.frame(RO=c(16)) # composition of box of T.16 Rocher simulatePack(L1_max, a, 200.5, plotce=T)
The calculation of T1 and T2 are based on Dir. n. 76/211/CEE (Legge 25.10.78 n.690 in Italy) "approximation of the laws of the Member States relating to the making-up by weight or by volume of certain prepackaged products " ^[available in internet]:
http://eur-lex.europa.eu/legal-content/it/ALL/?uri=CELEX%3A31976L0211
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.