---
title: "Votre titre"
author: "Votre nom"
date: "La date du jour"
output: html_document
---


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

## Données de capture de papillons

Toutes les captures lors des dernières sortie de terrain.

```{r}
data = read.csv2("./capture.csv")

for (i in 2:10){
  data[,i]=as.factor(data[,i])
}
```

On fait un résumé des données pour avoir une idée de la structure du tableau
```{r}
summary(data)

```
## Effectifs de capture

```{r}
sps = as.factor(paste0(data$genre,"_",data$espece))
plot(sps)

```

## Effectif de chaque espèces


```{r}
summary(sps)
```