Change figures from png to jpg

Increase figure quality to 1000 dpi

Author: perej1

README.md

@@ -3,7 +3,7 @@
 Simulated data examples for an article about multivariate extreme quantile
 region estimation. Simulations produce figures of the following form.
 
-![image](figures/fig-n_5000-k_400-p_low-gamma_1.00.png)
+![image](figures/fig-n_5000-k_400-p_medium-gamma_1.00.jpg)
 
 In above figure $Q_p$ denotes the true $(1-p)$-quantile region, $\bar Q_p$
 denotes estimate based on sample quantile and $\hat Q_p$ denotes estimate based

figures/fig-n_5000-k_400-p_high-gamma_1.00.jpg

@@ -71,7 +71,7 @@ plot_ellipse <- function(tsample, q, qbar, qhat) {
 
   # Plotting
   dir.create("figures", showWarnings = FALSE)
-  f <- sprintf("%s/fig-n_%d-k_%d-p_%s-gamma_%.2f.png", "figures", opt$n,
+  f <- sprintf("%s/fig-n_%d-k_%d-p_%s-gamma_%.2f.jpg", "figures", opt$n,
                opt$k, opt$p, opt$gamma)
   ggplot(data) +
     geom_ellipse(aes(x0 = x, y0 = y, a = a, b = b, angle = theta,
@@ -92,7 +92,7 @@ plot_ellipse <- function(tsample, q, qbar, qhat) {
                           labels = c(TeX("$Q_p$"),
                                      TeX("$\\hat{Q}_p$"),
                                      TeX("$\\bar{Q}_p$")))
-  ggsave(f, width = 7, height = 7)
+  ggsave(f, width = 7, height = 7, dpi = 1000)
 }