Change figures from png to jpg

Increase figure quality to 1000 dpi
perej1 · Sep 12, 2022 · 0cf9810 · 0cf9810
1 parent 19fb28c
commit 0cf9810
Show file tree

Hide file tree

Showing 8 changed files with 3 additions and 3 deletions.
diff --git a/README.md b/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

diff --git a/figures/fig-n_5000-k_400-p_high-gamma_1.00.jpg b/figures/fig-n_5000-k_400-p_high-gamma_1.00.jpg
diff --git a/figures/fig-n_5000-k_400-p_high-gamma_1.00.png b/figures/fig-n_5000-k_400-p_high-gamma_1.00.png
diff --git a/figures/fig-n_5000-k_400-p_low-gamma_1.00.jpg b/figures/fig-n_5000-k_400-p_low-gamma_1.00.jpg
diff --git a/figures/fig-n_5000-k_400-p_low-gamma_1.00.png b/figures/fig-n_5000-k_400-p_low-gamma_1.00.png
diff --git a/figures/fig-n_5000-k_400-p_medium-gamma_1.00.jpg b/figures/fig-n_5000-k_400-p_medium-gamma_1.00.jpg
diff --git a/figures/fig-n_5000-k_400-p_medium-gamma_1.00.png b/figures/fig-n_5000-k_400-p_medium-gamma_1.00.png
diff --git a/plot.R b/plot.R
@@ -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)
 }