From 3ab777f48e60966f41d42f04ecfcbd34ee7e83fb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Pelletier?= <francois@francoispelletier.org>
Date: Fri, 30 Oct 2015 22:16:39 -0400
Subject: [PATCH] =?UTF-8?q?Premi=C3=A8re=20version=20pr=C3=A9sentation?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .gitignore                                    |   3 +
 markdown.css                                  |   3 +
 ...octobre2015-r-donnees-ouvertes-linuq.Rproj |  16 ++
 slides.Rmd                                    | 162 ++++++++++++++++++
 style.R                                       |   6 +
 5 files changed, 190 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 markdown.css
 create mode 100644 slides-31octobre2015-r-donnees-ouvertes-linuq.Rproj
 create mode 100644 slides.Rmd
 create mode 100644 style.R

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..807ea25
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+.Rproj.user
+.Rhistory
+.RData
diff --git a/markdown.css b/markdown.css
new file mode 100644
index 0000000..c99e57e
--- /dev/null
+++ b/markdown.css
@@ -0,0 +1,3 @@
+.mes-images {
+    width: 50%;
+}
diff --git a/slides-31octobre2015-r-donnees-ouvertes-linuq.Rproj b/slides-31octobre2015-r-donnees-ouvertes-linuq.Rproj
new file mode 100644
index 0000000..e83436a
--- /dev/null
+++ b/slides-31octobre2015-r-donnees-ouvertes-linuq.Rproj
@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
diff --git a/slides.Rmd b/slides.Rmd
new file mode 100644
index 0000000..dee48ac
--- /dev/null
+++ b/slides.Rmd
@@ -0,0 +1,162 @@
+---
+title: "Exploration de données ouvertes avec R"
+author: "François Pelletier"
+date: "30 octobre 2015"
+output: 
+  ioslides_presentation
+---
+
+```{r echo=FALSE}
+source("style.R")
+```
+
+## Exploration de données ouvertes avec R
+
+* François Pelletier
+* francois@francoispelletier.org
+* LinuQ
+* 31 octobre 2015
+
+## Contenu de la présentation
+
+* Présentation du logiciel statistique R
+* Présentation des données ouvertes
+* Exemple
+* Ressources
+
+## Présentation du logiciel statistique R
+
+* Logiciel libre
+* Langage de programmation S
+* Multi-paradigme: objet, impératif et fonctionnel
+
+## Environnement
+
+* Ensemble de fonctions de base
+* Extension avec des paquets
+* Extenstion écrites souvent en C, C++ et FORTRAN
+
+```{r}
+library("MASS")
+```
+## Développer en R
+
+* RStudio
+* Emacs + ESS
+* Eclipse + StatET
+
+## Opérateurs de base
+
+```{r}
+# Assignation
+(x <- c(1,2,3))
+# Extraction
+(y <- data.frame(a=x[1],b=x[2]))
+# Objets
+(z <- y$a)
+```
+
+
+
+
+
+## Les objets en R
+
+Les objets dans R ont une classe, un type et une dimension
+```{r}
+monVecteur <- c(1,2,3,4)
+class(monVecteur)
+typeof(monVecteur)
+dim(monVecteur)
+```
+## Les objets en R
+
+```{r}
+maMatrice <- matrix(nrow = 2,ncol = 2, data = monVecteur)
+class(maMatrice)
+typeof(maMatrice)
+dim(maMatrice)
+```
+
+## Les types en R
+
+Nous avons vu le vecteur et la matrice.
+
+Il y a aussi les facteurs, qui permettent d'utiliser des modalités qualitatives:
+
+```{r}
+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:
+
+```{r}
+data.frame(numero_membre=c(1,2,3,4),
+           nom_membre=c("François","Jean","Marie","Stéphanie"),
+           age_membre=c(26,53,41,32),
+           stringsAsFactors = TRUE)
+```
+
+## Structures de contrôle
+```{r}
+# option
+if(TRUE) "vrai" else "faux"
+# sélection
+1:5<3
+(1:10)[-3:-5]
+```
+
+## Boucles
+Explicites (à éviter)
+```{r}
+for (i in 1:2)
+  print(i)
+```
+Implicites
+```{r}
+y <- sapply(3:4,print)
+```
+
+## Les fonctions
+
+Déclaration:
+```{r}
+maFonction <- function(x, ...)
+{
+  if (x)
+    sum(...)
+  else
+    0
+}
+maFonction(FALSE,1,2,3)
+maFonction(TRUE,1,2,3)
+```
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/style.R b/style.R
new file mode 100644
index 0000000..733c803
--- /dev/null
+++ b/style.R
@@ -0,0 +1,6 @@
+options(rstudio.markdownToHTML =
+          function(inputFile, outputFile) {
+            require(markdown)
+            markdownToHTML(inputFile, outputFile, stylesheet = 'markdown.css')
+          }
+)