PlotLeftTailAreaZValue.Rmd

---
title: "Plot Left Tail Area Z-Value"
params:
  z: -0.4 
jupyter:
  kernelspec:
    display_name: R
    language: R
    name: ir
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(include=FALSE)
```

```{r params}
if(!exists("params")) {
    params<-list(z=-0.4)
}
z<-params$z
```

```{r plotsetup}
#
source("graphics_utils.R")
```

Here is a graph of the left tail area up to $z=`r z`$:

```{r area, include=TRUE, echo=FALSE, fig.align="center", fig.width=4, fig.height=2.5} 
z_draw_left_tail_area(z)
```