line width changed in Fig.6-2_2

Author: HWagn

vignettes/Chapter06.Rmd

@@ -17,7 +17,7 @@ knitr::opts_chunk$set(
   fig.height = 6
 )
 knitr::opts_knit$set(global.par = TRUE)
-pdfplots <- FALSE # default: FALSE; set this to TRUE only if you like pdf figures
+pdfplots <- TRUE # default: FALSE; set this to TRUE only if you like pdf figures
 ```
 
 ```{r, include = FALSE}
@@ -146,7 +146,7 @@ We plot the marginal posteriors (in blue) together with those under the improper
 ```{r}
 if (pdfplots) {
   pdf("6-4_2.pdf", width = 8, height = 3)
-  par(mar = c(2.5, 1.5, .1, .1), mgp = c(1.6, .6, 0))
+  par(mar = c(2.5, 1.5, 1.5, .1), mgp = c(1.6, .6, 0))
 }
 par(mfrow = c(1, 3))
 for (i in seq_len(nrow(beta.hat))) {
@@ -156,13 +156,13 @@ for (i in seq_len(nrow(beta.hat))) {
     curve(dt((x- res_conj1$bN[i])/post.sd.conj1[i], df=2* res_conj1$cN), 
         from= res_conj1$bN[i]- 4*post.sd.conj1[i], 
         to= res_conj1$bN[i]+ 4*post.sd.conj1[i], 
-        add=TRUE, col=2,lty=2)
+        add=TRUE, col=2,lty=2,lwd=2)
     curve(dt((x- res_conj2$bN[i])/post.sd.conj2[i], df=2* res_conj2$cN), 
         from= res_conj2$bN[i]- 4*post.sd.conj2[i], 
         to= res_conj2$bN[i]+ 4*post.sd.conj2[i], 
-        add=TRUE, col=3,lty=3)
+        add=TRUE, col=3,lty=3,lwd=2)
     legend("topright", c("improper", "B0=10", "B0=1"),
-         col = 1:3, lty = 1:3)
+         col = 1:3, lty = 1:3,lwd=c(1,2,2))
 }
 ```
 There is little difference to the improper prior for  $B_0=10\textbf{I}$, however