1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
| setwd("C://TEST_POOL")
cat("traitement des données des csv :")
table1 <- database
#pour toutes les colonnes de la table
#pour toutes les colonnes de la table
for(x in names(table1))
{
#recupere le type de la colonne
tmp<-class(table[[x]])
#donnees utiles seulement dans les champes commençant par K2002 qui sont 'numeric'
if((length(grep("K2002",x))>0) && (tmp=='numeric'))
{
#affiche le nom de la colonne et son type
cat(x)
cat(" ")
cat(tmp)
cat(" ")
#demandé des croisement et la fonction de correlation
table(table1[,1],table1[,x])
cor(table1)
print(table1)
coef()
# calculs des sommes moyenne , min/max
cat(mean(table1[[x]]))
cat(" ")
cat(sum(table1[[x]]))
cat(" ")
cat(min(table1[[x]]))
cat(" ")
cat(max(table1[[x]]))
cat("\n")
}
}
##write.csv(data_1,"test.csv") |
