---
output:
  pdf_document: default
  html_document: default
---
# テントウ虫の種類



## 母集団の平均も分散も既知の場合の検定

平均体長5mm, 母偏差2mm の正規母集団を仮定し,
標本平均11mmのテントウ虫の珍しさは？



### 標本の作成

```{r}
    
    ## 平均11mm, 標準偏差2mmの母集団からの標本の作成
    
    (sample <- rnorm(n=10, mean=11, sd=2))
    
    c(mean(sample), sqrt(var(sample)))

```


### mean(sample) となる確率 (p値) を求める

```{r}
    
    pnorm(mean(sample), mean=5, sd=2)

```


### かなり確率が低い, 新種では？


# 尿酸値検査と痛風


## 母集団の平均既知, 分散未知の場合の検定

標準血糖値 7.0mg にたいし, 
標本平均11mの場合, 痛風であるか？


### 標本の作成

```{r}
    
    (sample <- c(7, 10, 12, 13, 13))
    c(mean(sample), var(sample), sqrt(var(sample)))

```

### 臨界値を求める

```{r}
    
    qt(0.975,df=length(sample)-1)

```

### 検定量を求める

```{r}
    (t_est <- (mean(sample) - 7)/sqrt(var(sample)/length(sample)))

```


<a id="org6457449"></a>

### p-値を求める

```{r}

   pt(t_est,df=length(sample)-1)

```


### t 検定

```{r}

    t.test(sample, mu=7)

```

### かなり確率が低い, 痛風である確率が高い

