---
title: "contrwsim04"
author: "Saburo Higuchi"
date: "2019/6/12"
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}
Sys.setenv(LANG="C")
Sys.setlocale("LC_ALL","C")
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
d<-read.csv("contrwsim06.csv",comment.char='#')
```

# 区間推定

ここにチャンクを設けて区間推定して.

# ヒストグラム

```{r}
hist(d$phi3)
hist(d$phi2,breaks=c(-0.5,0.5,1.5))
```


```{r}
hist(d$X1)
hist(d$X30)
```