Bonjour,

j'ai un petit problème, voici mon code :

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
comparaison<-function(A,B){
  mydata1<-read.csv(A,sep="\t",header=TRUE)
  mydata2<-read.csv(B,sep="\t",header=TRUE)
liste_champs<-c(5,9,12)
for (i in 1:length(liste_champs)){
  indice<-liste_champs[i];
  new_column2<-mydata1[,indice]
  old_column2<-mydata2[,indice]
  kolgo<-ks.test(new_column2,old_column2)
 
======================================
 
  print(kolgo)
  par("mfrow"=c(2,1))
  hist1<-hist(new_column2,col="red",freq=FALSE,xlab="Valeurs",breaks=50,main=paste("new: ",names_new2[indice]))
  hist2<-hist(old_column2,col="blue",freq=FALSE,xlab="Valeurs",breaks=50,main=paste("old: ",names_old2[indice]))
 
}
J'ai donc 2 fichiers à traiter simultanément. J'aimerais en fonction du résultat du test de kolmogorov smirnov, ne pas réaliser d'histogramme si on ne rejette pas l'hypothèse et réaliser 2 histogrammes afin de comparer la distributivité des variables si on rejette l'hypothèse de départ. Est-ce possible? Et si oui, comment? la portion de code manquante est symbolisée par les "================="
J'espère avoir été clair.