remove use of par and put into plot

greta-dev · Sep 5, 2022 · 6aadc86 · 6aadc86
1 parent 8f70c20
commit 6aadc86
Show file tree

Hide file tree

Showing 4 changed files with 35 additions and 14 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -46,10 +46,6 @@ remotes::install_github("greta-dev/greta.gp")
 
 ## Example usage
 
-```{r par, echo = FALSE}
-par(las = 1, fg = grey(0.7), mar = c(2, 2, 1, 1))
-```
-
 ```{r simulate, message = FALSE}
 # simulate data
 x <- runif(20, 0, 10)
@@ -85,7 +81,16 @@ draws <- mcmc(m, n_samples = 250)
 
 ```{r plotting, fig.width = 10, fig.height = 6, dpi = 200}
 # plot 200 posterior samples
-plot(y ~ x, pch = 16, col = grey(0.4), xlim = c(0, 10), ylim = c(-2.5, 2.5))
+# plot 200 posterior samples
+plot(
+  y ~ x,
+  pch = 16,
+  col = grey(0.4),
+  xlim = c(0, 10),
+  ylim = c(-2.5, 2.5),
+  las = 1,
+  fg = grey(0.7),
+)
 for (i in 1:200) {
   lines(draws[[1]][i, ] ~ x_plot,
         lwd = 2,

diff --git a/README.md b/README.md
@@ -72,7 +72,16 @@ draws <- mcmc(m, n_samples = 250)
 
 ``` r
 # plot 200 posterior samples
-plot(y ~ x, pch = 16, col = grey(0.4), xlim = c(0, 10), ylim = c(-2.5, 2.5))
+# plot 200 posterior samples
+plot(
+  y ~ x,
+  pch = 16,
+  col = grey(0.4),
+  xlim = c(0, 10),
+  ylim = c(-2.5, 2.5),
+  las = 1,
+  fg = grey(0.7),
+)
 for (i in 1:200) {
   lines(draws[[1]][i, ] ~ x_plot,
         lwd = 2,

diff --git a/man/figures/README-plotting-1.png b/man/figures/README-plotting-1.png
diff --git a/vignettes/getting-started.Rmd b/vignettes/getting-started.Rmd
@@ -28,10 +28,6 @@ library(greta.gp)
 
 #### Example
 
-```{r par, echo = FALSE}
-par(las = 1, fg = grey(0.7), mar = c(2, 2, 1, 1))
-```
-
 ```{r simulate, message = FALSE}
 # simulate data
 x <- runif(20, 0, 10)
@@ -67,10 +63,21 @@ draws <- mcmc(m)
 
 ```{r plotting, fig.width = 10, fig.height = 6, dpi = 200}
 # plot 200 posterior samples
-plot(y ~ x, pch = 16, col = grey(0.4), xlim = c(0, 10), ylim = c(-2.5, 2.5))
+plot(
+  y ~ x,
+  pch = 16,
+  col = grey(0.4),
+  xlim = c(0, 10),
+  ylim = c(-2.5, 2.5),
+  las = 1,
+  fg = grey(0.7),
+)
+
 for (i in 1:200) {
-  lines(draws[[1]][i, ] ~ x_plot,
-        lwd = 2,
-        col = rgb(0.7, 0.1, 0.4, 0.1))  
+  lines(
+    draws[[1]][i, ] ~ x_plot,
+    lwd = 2,
+    col = rgb(0.7, 0.1, 0.4, 0.1)
+  )
 }
 ```