---
title: "Exercice 1 Solution"
date: '`r Sys.Date()`'
output:
  html_document:
    df_print: paged
    toc: yes
    toc_float: yes
    highlight: tango
    theme: sandstone
    rows.print: 6
---

- Create a Rmarkdown with the following information:

  - Title: "Exercice 1"
  - Date: Date when the Rmarkdown was generate (automatically change if it is runned another day)
  - report as a html document
  - Create necessary title and subtitle

- Create a simple chunck of code with a simple addition

- Load iris dataset using the following function: **data(iris)**

- Display your iris data.frame, writing **iris** in a chunk.
  - Add **df_print: paged** in your YAML header in the html document option and display the iris data.frame again. 
  - Show rows 6 by 6 by using the **rows.print** options in chunk option

- Show the boxplot of the iris dataset using **boxplot(iris)**

- Write the mean Sepal length, embedded in a text

- Show Sepal length, width and Petal length, width using tabs and the function **plot()**, e.g. **plot(iris$Sepal.Width)**

- Add **sessionInfo()** at the end of the document

# Show some code:

```{r}
1 + 1
```


# Load some package

```{r}
data(iris)
```


# See the data.frame

As paged

```{r cols.print=6, rows.print=6}
iris
```


# Boxplot of iris data

```{r}
boxplot(iris)
```

# Insert R code in the text

The Sepal length is `r mean(iris$Sepal.Length)`

# Hide some code

The code below is not showed in the html report. Only the result:

Mean Sepal Width:

```{r, echo=F}
mean(iris$Sepal.Width)
```


# Data displayed in tab {.tabset}

## Sepal Length

```{r}
plot(iris$Sepal.Length)
```


## Sepal Width

```{r}
plot(iris$Sepal.Width)
```

## Petal Length

```{r}
plot(iris$Petal.Length)
```

# Session

```{r}
sessionInfo()
```

