```r
EOQ <- sqrt(2*D*Ce/Ca)
#Media del Lote Económico
mean(EOQ, na.rm=TRUE)
```

```
[1] 16.46535
```

```r
#Varianza del Lote Económico
var(EOQ, na.rm=TRUE)
```

```
[1] 139.6855
```

```r
#Desvio Estandard del Lote Económico
sd(EOQ, na.rm=TRUE)
```

```
[1] 11.81886
```

```r
plot(density(EOQ,na.rm=TRUE))
```

<img src="EOQ-VAN_files/figure-html/unnamed-chunk-3-1.png" width="768" />