remove esa talk figures

Aariq · Dec 2, 2020 · 53c5be9 · 53c5be9
1 parent ea5198b
commit 53c5be9
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 56 deletions.
diff --git a/R/6-simulation-figures.Rmd b/R/6-simulation-figures.Rmd
@@ -266,62 +266,6 @@ apparent.pls.p
 ```
 
 # Make figure
-For ESA talk:
-## Apparent
-
-```{r}
-apparent.p <-
-  (apparent.pca.p +
-     labs(title = "PCA",
-          subtitle = NULL,
-          x = "PC 1 (51.4%)",
-          y = "PC 2 (11.2%)")) /
-  (apparent.pls.p +
-     labs(title = "PLS",
-          subtitle = NULL,
-          x = "Predictive Comp. 1 (51.2%)",
-          y = "Predictive Comp. 2 (8.41%)")) &
-  theme(legend.position = "none", text = element_text(size = 14))
-ggsave(here("out", "apparent.png"), apparent.p, height = 8, width = 5)
-```
-
-## Hidden
-
-```{r}
-hidden.p <-
-  (hidden.pca.p +
-     labs(title = "PCA",
-          subtitle = NULL,
-          x = "PC 1 (25.2%)",
-          y = "PC 2 (24%)")) /
-  (hidden.pls.p +
-     labs(title = "PLS",
-          subtitle = NULL,
-          x = "Predictive Comp. 1 (18.8%)",
-          y = "Predictive Comp. 2 (17.5%)")) &
-  theme(legend.position = "none", text = element_text(size = 14))
-ggsave(here("out", "hidden.png"), hidden.p, height = 8, width = 5)
-```
-
-## None
-
-```{r}
-none.p <-
-  (none.pca.p +
-     labs(title = "PCA",
-          subtitle = NULL,
-          x = "PC 1 (14.1%)",
-          y = "PC 2 (11.6%)")) /
-  (none.pls.p +
-     labs(title = "PLS",
-          subtitle = NULL,
-          x = "Predictive Comp. 1 (7.94%)",
-          y = "Predictive Comp. 2 (7.23%)")) &
-  theme(legend.position = "none", text = element_text(size = 14))
-ggsave(here("out", "none.png"), none.p, height = 8, width = 5)
-```
-
-
 ## Three Scenarios
 Put three scenarios together to make a figure.
 

diff --git a/out/apparent.png b/out/apparent.png
diff --git a/out/hidden.png b/out/hidden.png
diff --git a/out/none.png b/out/none.png