minor changes: plot latent utility

Author: HWagn

vignettes/Chapter08.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}
@@ -34,7 +34,7 @@ with value of 1.
 
 ```{r, echo = -c(1:2)}
 if (pdfplots) {
-  pdf("8-1_0.pdf", width = 8, height = 5)
+  pdf("8-1_0.pdf", width = 8, height = 4)
 }
 par(mfrow = c(1, 3), mar = c(2.5, 2.5, 2.5, .1), mgp = c(1.5, .5, 0), lwd = 1.5)
 curve(dnorm(x,mean=1), from=-3, to=5, xlab=expression(z[i]),ylab="", col="blue")
@@ -53,7 +53,7 @@ polygon(c(dens$x[dens$x >=0],0), c(dens$y[dens$x>=0],0), col="red",border=NA)
 ```
 ### Example 8.1: Labor market data
 
-We illustrate probit regression analysis for the labor market data.
+We now perform probit regression analysis for the labor market data.
 
 ```{r}
 library("BayesianLearningCode")