```r
#creo una variable auxiliar

VAN_S <- c(0,0,0,0,0,0,0,0,0,0,0,0)

# cargo en esa variable los valores de flujos aleatorios 
for (i in 1:12) { (VAN_S[i] <-
# calculo para cada uno de los 12 fondos un VAN
                     FinCal::npv(18,FFN_S[i,] ))}
# imprimo el histograma
hist(VAN_S, breaks = 20)
```

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