}. Plot, (value_max_p))),type='o') points(1:length(value_portfolio[1,]),value_min_p,type='o') points(1:length(value_liability[1,]),value_max_l,type='o') points(1:length(value_portfolio[1,]),value_max_p,type='o') for(i in 1:nb_simul){ points(1:length(value_liability[1,]),value_liability[i,],col=2) } for(i in 1:nb_simul){ points(1:length(value_portfolio, pp.3-4

}. Plot, (value_q95_l),max(value_q95_p))),type='o',col=2) points(1:length(value_portfolio[1,]),value_q05_p,type='o',col=3) points(1:length(value_liability[1,]),value_q95_l,type='o',col=2) points(1:length(value_portfolio, value_mean_p,type='o',col=gray, pp.3-4