GitList
Browse code

script.R - v1

Fred authored on24/05/2015 22:48:29
Showing1 changed files
script.R
History View file @b0260c7
1 1 
new file mode 100755
... ... 
@@ -0,0 +1,74 @@
1 
+#!/usr/bin/R
2 
+#titre :
3 
+#version :
4 
+#auteur : Fédéric CHEVALIER
5 
+#date de création :
6 
+#date de modification :
7 
+
8 
+
9 
+
10 
+#--------------
11 
+# Commentaires
12 
+#--------------
13 
+
14 
+
15 
+
16 
+
17 
+
18 
+#-------------------
19 
+# Paquets à charger
20 
+#-------------------
21 
+
22 
+
23 
+
24 
+
25 
+#-----------
26 
+# Variables
27 
+#-----------
28 
+
29 
+# Effacer de la mémoire toutes les variables présentes
30 
+rm(list = ls())
31 
+
32 
+# Fichier contenant les données
33 
+file <- ""
34 
+
35 
+data <- read.csv(file, header=T, sep=";")
36 
+
37 
+# Objet contenant le nom du fichier traité
38 
+name <- strsplit(file,".csv")
39 
+
40 
+
41 
+
42 
+#-------------------------
43 
+# Traitements des données
44 
+#-------------------------
45 
+
46 
+
47 
+
48 
+# Export des résultats dans un dossier
49 
+if (file.exists("Résultats/") == FALSE) {dir.create("Résultats")}
50 
+write.table(x, file=paste("Résultats/x",file, sep=""), col.names = NA, row.names = TRUE, sep=";") # x = objet à sauver
51 
+
52 
+
53 
+
54 
+#---------
55 
+# Courbes
56 
+#---------
57 
+
58 
+
59 
+
60 
+
61 
+#---------
62 
+# Figures
63 
+#---------
64 
+
65 
+
66 
+
67 
+
68 
+
69 
+# Création du dossier des sorties graphiques s'il n'existe pas encore
70 
+if (file.exists("Graphes/") == FALSE) {dir.create("Graphes")}
71 
+
72 
+# Enregistrement du graphique au format png
73 
+savePlot(paste("Graphes/",name,".png", sep=""))
74 
+