Superposition des graphes sous R
Bonsoir à tous, j'essaie de tracer 3 courbes d'une fonction sur le même graphe en changeant les paramètres mais je n'arrive pas à le faire. Quelqu'un peut m'aider ou me suggérer une solution ? Je vous mets le code ci-dessous
Merci d'avance et bonne soirée
Merci d'avance et bonne soirée
y=runif(10,0,1) a=0.5 d=0.5 b=1.5 x=(-log(1-exp(log(y)/a*b)))/d F<- exp(-a*(-log(1-exp(-d*x)))^b) S<- 1-exp(-a*(-log(1-exp(-d*x)))^b) f<- (a*b*d*exp(-d*x)*((-log(1-exp(-d*x)))^(b-1))*exp(-a*(-log(1-exp(-d*x)))^b))/(1-exp(-d*x)) vv<-(-log(1-exp(-d*x))) h<- (a*d*b*exp(-d*x)*(vv^(b-1))*exp(-a*(-log(1-exp(-d*x)))^b))/1-exp(-d*x)*(1-exp(-a*(-log(1-exp(-d*x)))^b)) m=matrix(1:4,nrow=2,ncol=2,byrow=TRUE) layout(m) plot(x,F,main="modèle Weibull expo",sub = "fonction de répartition",col="red") legend("right",legend=c("a=2","b=2","d=2"),col=c("blue", "blue", "blue"),lwd=c(1,1,1),lty=c(1,1,1),cex=0.62) plot(x,S,main="modèle Weibull expo",sub = "fonction de survie",col="red") legend("right",legend=c("a=2","b=2","d=2"),col=c("blue", "blue", "blue"),lwd=c(1,1,1),lty=c(1,1,1),cex=0.62) plot(x,f,main="modèle Weibull expo",sub = "fonction de densité",col="red") legend("topright",legend=c("a=2","b=2","d=2"),col=c("blue", "blue", "blue"),lwd=c(1,1,1),lty=c(1,1,1),cex=0.62) plot(x,h,main="modèle Weibull expo",sub = "fonction du taux de hasard",col="red") legend("bottomright",legend=c("a=2","b=2","d=2"),col=c("blue", "blue", "blue"),lwd=c(1,1,1),lty=c(1,1,1),cex=0.62)
Connectez-vous ou Inscrivez-vous pour répondre.
Réponses
Bruno
j'aurais bien aimé avoir une réponse utile, merci.
Bruno
P.S.Soit le bienvenu sur le phorum.