Bonjour, j'ai un petit problème, je ne comprends pas pourquoi R ne m'affiche rien pourtant je pense avoir aucune erreur sur mon programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
 
 
      #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 
          table1 <-  table(tabletest[,1],tabletest[,x])
          cor(table1)
          print(table1)
          # 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")
     }
 }
Merci de votre attention.