Les posteurs les plus actifs de la semaine


Graphe d'influence des points aberrantes sur les résidus.

Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Dim 7 Juil 2013 - 12:22

Bonjour ,

Je voudrais obtenir le graphe des résidus suivant (fichier ci joint) j'essayé avec cet code mais ça marche pas et j'arrive pas a comprendre l'erreur malgré que R n'affiche aucun message d'erreur !  si quelqu'un parmi vous a une idée merci de me signaler .

Code:
X11()
op <- par(fg='white', bg='black',col='white', col.axis='white', col.lab='white',col.main='white',col.sub='white')
cd <- cooks.distance(Modfinj1)
m <- max(cd)
plot(GLM.1$res ~ GLM.1$fitted.values,cex=1+5*cd/m,col=heat.colors(100)[ceiling(100*cd/m)],pch=16)
abline(h=0,lty=3)
abline(h=c(-2,0,2),lty=c(2,1,2),col="green")
par(op)

Merci beaucoup d'avance.
Fichiers joints
Graphe d'influence des points aberrantes sur les résidus. Attachment
1.PNG Vous n'avez pas la permission de télécharger les fichiers joints.(88 Ko) Téléchargé 4 fois

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par HDKalit le Lun 8 Juil 2013 - 7:55

Bonjour,

Peut être qu'une idée de tes données "Modfinj1" et de ce que tu obtiens serait un plus pour t'aider.

Cordialement,

Khalid

HDKalit

Nombre de messages : 85
Date d'inscription : 10/01/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Lun 8 Juil 2013 - 8:13

Voilà le Modfinj1 juste un nom pour mon modèle :
Code:
Modfinj1<-lm(DV_max~X1+X2+X3+X4+X5,data=MergeTestP)
.

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par HDKalit le Lun 8 Juil 2013 - 8:18

Ok ... donc je voulais dire peux tu faire un head() ou quelque chose comme ça pour qu'on puisse tester et voir ce que ton code fait?

Idem as tu un png de ce que tu obtiens?


HDKalit

Nombre de messages : 85
Date d'inscription : 10/01/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Lun 8 Juil 2013 - 9:29

Désolé j'ai pa compris l'utilité de head() , et voilà ce
que j'obtient ci joint.
Fichiers joints
Graphe d'influence des points aberrantes sur les résidus. Attachment
2.jpeg Vous n'avez pas la permission de télécharger les fichiers joints.(16 Ko) Téléchargé 2 fois

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Lun 8 Juil 2013 - 9:34

Le problème est au niveau de cette option " cex=1+5*cd/m,col=heat.colors(100)[ceiling(100*cd/m)]" car quand je le supprime ça marche mais c'est pas ce que cherche comme j'ai déjà montrer au début (l'influence de point):


Code:
X11()
op <- par(fg='white', bg='black',col='white', col.axis='white', col.lab='white',col.main='white',col.sub='white')
cd <- cooks.distance(Modfinj1)
m <- max(cd)
plot(Modfinj1$res ~ Modfinj1$fitted.values,pch=16,ylim=c(-2.5,2.5))
abline(h=0,lty=3)
abline(h=c(-2,0,2),lty=c(2,1,2),col="green")
par(op)

!
Fichiers joints
Graphe d'influence des points aberrantes sur les résidus. Attachment
2.jpeg Vous n'avez pas la permission de télécharger les fichiers joints.(33 Ko) Téléchargé 1 fois

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par Nik le Lun 8 Juil 2013 - 11:41

Ce code marche très bien chez moi :
Code:
mydata <- data.frame(x=rchisq(100,5),y=rnorm(100))
glm1 <- glm(y~x,data=mydata)
par(fg='white', bg='black',col='white', col.axis='white', col.lab='white',col.main='white',col.sub='white')
cd <- cooks.distance(glm1)
m <- max(cd)
plot(glm1$res ~ glm1$fitted.values,cex=1+5*cd/m,col=heat.colors(100)[ceiling(100*cd/m)],pch=16,ylim=c(-2.5,2.5))
abline(h=0,lty=3)
abline(h=c(-2,0,2),lty=c(2,1,2),col="green")

Essaye d'enlever le ylim ou d'étendre les limites.

Nik



Nik

Nombre de messages : 1605
Date d'inscription : 23/05/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Lun 8 Juil 2013 - 12:25

Bon merci beaucoup , enfin ça marche mais j'ai changé le logiciel avec Rstudio !

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par FMarwen le Lun 8 Juil 2013 - 12:26

problème de package peut être .

FMarwen

Nombre de messages : 226
Date d'inscription : 17/04/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Graphe d'influence des points aberrantes sur les résidus. Empty Re: Graphe d'influence des points aberrantes sur les résidus.

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum