Discussion :

[mikm44]

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.

[A. D.]

Bonjour,

Difficile de répondre comme ça vu que sans les données, on ne peut pas faire tourner le code.

Votre problème est qu'aucun affichage écran ne s'affiche au sein de la boucle ?
> Si c'est bien cela, il faudrait peut-être que vous regardiez si la condition "if" est bien vérifiée à un moment donné ?
> Egalement, peut-être qu'il manque quelque chose dans ce que vous avez posté, mais j'ai l'impression que l'élément "tmp" utilisé dans la condition "if" n'est défini nul part ?

Enfin, il semble que vous redéfinissiez "table1" au sein de la boucle alors que c'est sensé être le dataset de base (il me semble), attention donc.

HTH !


Cordialement,


A.D.

[mikm44]

Merci pour ta réponse,
j'ai changé ce que tu m'as dit mais il ne m'affiche rien sur rstudio, sans me dire que j'ai une erreur, en gros je ne sais pas si j'ai une erreur ou pas...

Pour la condition If, j'ai bien des colonnes qui commencent par "K2002".
En gros, je ne vois pas où est mon erreur (le but de mon programme est de croiser la première colonne avec toutes les autres, ensuite de faire la corrélation des données, et sortir la moyenne et somme de chaque variable indépendamment).

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
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")

@ M.E

[A. D.]

Bonjour,

Il y a encore des coquilles dans votre code :

> ligne 11 : cela ne devrait-il pas être "table1" plutôt que "table" ?
> ligne 27 : que vient faire l'appel à "coef()" ici, avec rien entre parenthèses ?

Conseil : débugguez votre code ligne à ligne pour repérer les points de blocage.
Egalement, bien vérifier que la condition "if" passe à TRUE.

Bonne continuation !


Cordialement,


A.D.

[mikm44]

ligne 27 : c'est une erreur de ma part, je sais même plus pourquoi je l'ai mis

Oui j'ai fait ligne par ligne, aucune erreur, je vais encore voir ce que je peux faire...

Bonne continuation à vous aussi, merci.

@M.E