Magistère.Rmd

---
title: |
  | Projet Magistère
  | Implémentation du bootstrap pour l'estimation des paramètres d'un modèle linéaire en présence d'hétérosédasticité
subtitle: 'Un titre bien trop long !'
author: "Pierre LEPAGNOL"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  pdf_document:
    toc: true
    toc_depth: 2
    includes:
      in_header: params.sty
---
```{r setup, include=FALSE}
library(tidyverse)
library(boot)
library(lmtest)
#import du dataset
donnee=read_delim('./data_set.csv',delim=';')
donnee=donnee %>% filter(appartement==1)
donnee=donnee %>% select(-c(appartement,studio,chambre,maison,arrondissement))
library(parallel)

if (file.exists('everything.RData'))load('everything.RData')
knitr::opts_chunk$set(echo=T,include=T,eval=!file.exists('everything.RData'))
```

```{r}
relocate=function(string,X){
  col_idx <- grep(string, names(X))
  res <- X[, c(col_idx, (1:ncol(X))[-col_idx])]
  return(res)
}
```

```{r child='Parts/Theorie.Rmd'}
```

```{r child='Parts/Application.Rmd'}
```