---
title: "Titre du billet"
# subtitle: "Sous-titre éventuel"
date: today # date au format "YYYY-MM-DD"
author:
  - name: Albertine Retrouvée
    url: https://www.ofce.sciences-po.fr/ofce/chercheurs1.php # À changer avec le lien vers la page de l'auteur
    affiliation: OFCE 
    affiliation-url: https://www.ofce.sciences-po.fr/
 
# A choisir parmi une liste prédéterminée (ofce::keywords dans la console pour y avoir accès) 
categories: ["keyword1", "keyword2"] 
image: image.jpg

## Texte qui apparaît dans le menu du blog (500 caractères max)
description: "Chapeau du texte qui apparait dans la vignette du billet sur le menu"

format:
  blog-html: default 


# références bibliographiques
bibliography: blogreferences.bib 

---

```{r, include=FALSE, cache=FALSE}

# Routine d'initialisation des options de base / Chargement des librairies usuelles
ofce::init_qmd()

```

# Introduction {#sec-introduction .unnumbered}

"Lorem" "ipsum" dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Dolor morbi non arcu risus quis varius quam quisque.

Voir @sec-ledebut (\nameref{sec-ledebut}). @efron1993i a montré que c'est vrai. Les contours sont matérialisés sur la @fig-cars.

pour le dépôt voir {{< fa brands github >}}

```{r}
#| label: fig-cars
#| fig-cap: Speed versus distance among cars
#| echo : false
#| message : false

# Charge les données depuis fichier source R 
data_plot <- ofce::source_data("data_source.R")

ggplot(data_plot) +
  geom_point(aes(x=speed, y=dist))+
  # Options esthétiques
  theme_ofce() + 
  ofce::ofce_caption(source = "Rstudio",
                     note = "ici pour rajouter une note",
                     ofce = TRUE) # Pour rajouter "Calculs OFCE

```


```{r}
#| label: tab-example
#| tab-cap: Contribution à la variation annuelle de l'IPC
#| echo : false
#| message : false

library(gt)


data_set <- tibble::tibble( name = c(stringr::str_c("name_",1:10)),
                            `2022` = round(c(rnorm(10,.9,.1)),2),
                            `2023` = round(c(rnorm(10,.9,.1)),2),
                            `2024` = round(c(rnorm(10,.9,.1)),2) ,
                            
                            `2022_1` = round(c(rnorm(10,.9,.1)),2),
                            `2023_2` = round(c(rnorm(10,.9,.1)),2),
                            `2024_3` = round(c(rnorm(10,.9,.1)),2)
) |>
  gt::gt(rowname_col = "name") |>
  gt::rm_stubhead() |>
  gt::cols_label(starts_with("2022") ~ "2022",
                 starts_with("2023") ~ "2023",
                 starts_with("2024") ~ "2024") |>
  gt::tab_spanner(
    label = md('**Variation annuelle (en %)**'),
    columns = 2:4
  ) |>
  gt::tab_spanner(
    label = md('**Contribution à la variation annuelle de l\'IPC (en points de %)**'),
    columns = 5:7
  )  |> gt::cols_align(align = "center") |>
  ## Pour mettre une source
  gt::tab_source_note(
    source_note = "INSEE, calcul des auteurs"
  )


theme.gt_ofce(data_set)

```


# Une section de niveau 1 pour commencer {#sec-ledebut}

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Dolor morbi non arcu risus quis varius quam quisque.    

## Section niveau 2 {#sec-cacontinue}

Faucibus turpis in eu mi bibendum. Etiam tempor orci eu lobortis. Sit amet consectetur adipiscing elit pellentesque habitant. Quam viverra orci sagittis eu volutpat odio facilisis mauris sit. 

## Section niveau 2 {#sec-encore}

Scelerisque in dictum non consectetur a erat nam at. Elementum facilisis leo vel fringilla est. Libero enim sed faucibus turpis in eu. Ut lectus arcu bibendum at varius vel pharetra vel.

# Une autre section de niveau 1 {#sec-etencore}

Ultrices neque ornare aenean euismod elementum nisi quis eleifend. Vivamus arcu felis bibendum ut tristique. Non nisi est sit amet facilisis magna. Consectetur libero id faucibus nisl tincidunt eget.

## Section niveau 2 {#sec-ca-continue}

Amet est placerat in egestas erat imperdiet sed. Non enim praesent elementum facilisis leo vel fringilla est. Iaculis eu non diam phasellus vestibulum lorem.

## Section niveau 2 {#sec-encoreetencore}

Eleifend donec pretium vulputate sapien nec sagittis aliquam malesuada bibendum. Auctor elit sed vulputate mi sit amet.

# Bibliographie {.unnumbered}

:::{.refs}
:::
