Ajout modèle

markdown.css

@@ -1,3 +0,0 @@
-.mes-images {
-    width: 50%;
-}

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)
+```
+
+
+