From 9c902da5facdc3837bead85ced594418c0faa41f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Pelletier?= <francois@francoispelletier.org>
Date: Fri, 30 Oct 2015 23:00:29 -0400
Subject: [PATCH] =?UTF-8?q?Ajout=20mod=C3=A8le?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 markdown.css |  3 ---
 slides.Rmd   | 65 +++++++++++++++++++++++++++++++++++++++++++++-------
 2 files changed, 57 insertions(+), 11 deletions(-)

diff --git a/markdown.css b/markdown.css
index c99e57e..e69de29 100644
--- a/markdown.css
+++ b/markdown.css
@@ -1,3 +0,0 @@
-.mes-images {
-    width: 50%;
-}
diff --git a/slides.Rmd b/slides.Rmd
index dee48ac..d8aac1c 100644
--- a/slides.Rmd
+++ b/slides.Rmd
@@ -56,10 +56,6 @@ library("MASS")
 (z <- y$a)
 ```
 
-
-
-
-
 ## Les objets en R
 
 Les objets dans R ont une classe, un type et une dimension
@@ -69,7 +65,7 @@ class(monVecteur)
 typeof(monVecteur)
 dim(monVecteur)
 ```
-## Les objets en R
+----
 
 ```{r}
 maMatrice <- matrix(nrow = 2,ncol = 2, data = monVecteur)
@@ -88,21 +84,21 @@ Il y a aussi les facteurs, qui permettent d'utiliser des modalités qualitatives
 factor(c("oui","non","non","oui","nsp","oui","non"))
 ```
 
-## Les types en R
+----
 
 les tableaux, une extension multidimensionnelle des matrices:
 ```{r}
 array(1:8,dim=c(2,2,2))
 ```
 
-## Les types en R
+----
 
 les listes, qui sont des collections d'objets de types différents:
 ```{r}
 list("1",TRUE,c(1,2,3),function(x) x^2)
 ```
 
-## Les types en R
+----
 
 et les cadres de données, semblables à des tables SQL:
 
@@ -148,6 +144,59 @@ maFonction(FALSE,1,2,3)
 maFonction(TRUE,1,2,3)
 ```
 
+## Quelques statistiques
+
+```{r}
+set.seed(123)
+mesDonnees <- rnorm(10,mean = 5,sd = 3)
+range(mesDonnees)
+summary(mesDonnees)
+quantile(mesDonnees,c(seq(.25,.75,.25)))
+```
+
+## Un premier graphique
+
+```{r, echo=TRUE}
+library("ggplot2")
+monData <- 
+  data.frame(x=seq_along(mesDonnees),
+                       y=mesDonnees[order(mesDonnees)])
+
+monGraph <- 
+  ggplot(data=monData,aes(x=x,y=y)) + 
+  geom_line() + 
+  theme_classic()
+```
+
+----
+
+```{r, echo=FALSE, dev="CairoSVG"}
+monGraph
+```
+
+
+## Un premier modèle
+```{r}
+(monModele <- lm(y~x,data=monData))
+```
+----
+
+Sommaire du modèle
+
+```{r, echo=FALSE}
+summary(monModele)
+```
+
+----
+
+Analyse de variance du modèle
+
+```{r, echo=FALSE}
+anova(monModele)
+```
+
+
+