---
title: "例題5.6"
author: "agribio"
date: '2022-07-02'
output: 
  html_document:
    toc: TRUE
    toc_float: TRUE
---
# (a) 黒色の対数正規分布を対数化前後で独立に出力
```{r}
curve(dlnorm(x, meanlog=1, sdlog=0.3), xlim=c(0.0, 10), col="black", lty=1)
curve(dlnorm(x, meanlog=1, sdlog=0.3), xlim=c(0.5, 10), col="black", lty=2, log="x", xlab="log(x)")
```

# (b) 赤色の対数正規分布を対数化前後で独立に出力
```{r}
curve(dlnorm(x, meanlog=1, sdlog=0.7), xlim=c(0.0, 10), col="red", lty=1)
curve(dlnorm(x, meanlog=1, sdlog=0.7), xlim=c(0.2, 10), col="red", lty=2, log="x", xlab="log(x)")
```

# (c) 青色の対数正規分布を対数化前後で独立に出力
```{r}
curve(dlnorm(x, meanlog=1, sdlog=1.0), xlim=c(0.0, 10), col="blue", lty=1)
curve(dlnorm(x, meanlog=1, sdlog=1.0), xlim=c(0.1, 10), col="blue", lty=2, log="x", xlab="log(x)")
```

# (d) 緑色の対数正規分布を対数化前後で独立に出力
```{r}
curve(dlnorm(x, meanlog=1, sdlog=2.0), xlim=c(0.0, 10), col="green", lty=1)
curve(dlnorm(x, meanlog=1, sdlog=2.0), xlim=c(0.0001, 10), col="green", lty=2, log="x", xlab="log(x)")
```



