Browse code
script.R - v2 - Switch to English version
Fred authored on24/05/2015 23:03:28 Showing1 changed files
| ... | ... |
@@ -1,22 +1,22 @@ |
| 1 | 1 |
#!/usr/bin/R |
| 2 |
-#titre : |
|
| 3 |
-#version : |
|
| 4 |
-#auteur : Fédéric CHEVALIER |
|
| 5 |
-#date de création : |
|
| 6 |
-#date de modification : |
|
| 2 |
+# title : |
|
| 3 |
+# version : |
|
| 4 |
+# author : Fédéric CHEVALIER |
|
| 5 |
+# created in: |
|
| 6 |
+# modified in: |
|
| 7 | 7 |
|
| 8 | 8 |
|
| 9 | 9 |
|
| 10 |
-#--------------# |
|
| 11 |
-# Commentaires # |
|
| 12 |
-#--------------# |
|
| 10 |
+#----------# |
|
| 11 |
+# Comments # |
|
| 12 |
+#----------# |
|
| 13 | 13 |
|
| 14 | 14 |
|
| 15 | 15 |
|
| 16 | 16 |
|
| 17 | 17 |
|
| 18 | 18 |
#-------------------# |
| 19 |
-# Paquets à charger # |
|
| 19 |
+# Packages required # |
|
| 20 | 20 |
#-------------------# |
| 21 | 21 |
|
| 22 | 22 |
|
| ... | ... |
@@ -26,34 +26,34 @@ |
| 26 | 26 |
# Variables # |
| 27 | 27 |
#-----------# |
| 28 | 28 |
|
| 29 |
-# Effacer de la mémoire toutes les variables présentes |
|
| 29 |
+# Removing of all existing variables from the memory |
|
| 30 | 30 |
rm(list = ls()) |
| 31 | 31 |
|
| 32 |
-# Fichier contenant les données |
|
| 32 |
+# Data file |
|
| 33 | 33 |
file <- "" |
| 34 | 34 |
|
| 35 | 35 |
data <- read.csv(file, header=T, sep=";") |
| 36 | 36 |
|
| 37 |
-# Objet contenant le nom du fichier traité |
|
| 37 |
+# Object contaning the input file name |
|
| 38 | 38 |
name <- strsplit(file,".csv") |
| 39 | 39 |
|
| 40 | 40 |
|
| 41 | 41 |
|
| 42 |
-#-------------------------# |
|
| 43 |
-# Traitements des données # |
|
| 44 |
-#-------------------------# |
|
| 42 |
+#-----------------# |
|
| 43 |
+# Data processing # |
|
| 44 |
+#-----------------# |
|
| 45 | 45 |
|
| 46 | 46 |
|
| 47 | 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
|
|
| 48 |
+# Result export in folder |
|
| 49 |
+if (file.exists("Results/") == FALSE) {dir.create("Results")}
|
|
| 50 |
+write.table(x, file=paste("Rsults/x",file, sep=""), col.names = NA, row.names = TRUE, sep=";") # x = object to sauve
|
|
| 51 | 51 |
|
| 52 | 52 |
|
| 53 | 53 |
|
| 54 |
-#---------# |
|
| 55 |
-# Courbes # |
|
| 56 |
-#---------# |
|
| 54 |
+#--------# |
|
| 55 |
+# Curves # |
|
| 56 |
+#--------# |
|
| 57 | 57 |
|
| 58 | 58 |
|
| 59 | 59 |
|
| ... | ... |
@@ -66,9 +66,9 @@ write.table(x, file=paste("Résultats/x",file, sep=""), col.names = NA, row.name
|
| 66 | 66 |
|
| 67 | 67 |
|
| 68 | 68 |
|
| 69 |
-# Création du dossier des sorties graphiques s'il n'existe pas encore |
|
| 70 |
-if (file.exists("Graphes/") == FALSE) {dir.create("Graphes")}
|
|
| 69 |
+# Folder creation for graphic output (if does not exist) |
|
| 70 |
+if (file.exists("Graphs/") == FALSE) {dir.create("Graphs")}
|
|
| 71 | 71 |
|
| 72 |
-# Enregistrement du graphique au format png |
|
| 73 |
-savePlot(paste("Graphes/",name,".png", sep=""))
|
|
| 72 |
+# Graphic saving (png format) |
|
| 73 |
+savePlot(paste("Graphs/",name,".png", sep=""))
|
|
| 74 | 74 |
|