Ajout modèle

This commit is contained in:
François Pelletier 2015-10-30 23:00:29 -04:00
parent 3ab777f48e
commit 9c902da5fa
2 changed files with 57 additions and 11 deletions

View file

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

View file

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