Estimation of VAR Using Copula and Extreme Value Theory