Hi , thanks in advance I have the follow code:

       normal<-sort(rnorm(1000))	cauchy<-sort(rcauchy(1000))	t3<-sort(rt(1000,3))	t10<-sort(rt(1000, 10))
	col<-c("green","blue","orange","purple")	v<-list(normal,cauchy,t3,t10)	names(v)<-c("Normal", "Cauchy", "T-stud 3 df", "T-stud 10 df")
	par(mfrow=c(1,2))		plot(density(normal),col=col[[1]],main="Funciones de densidad")	for ( i in 2:4)	{	lines(density(v[[i]]),col=col[[i]],lty=i+2)	}
	legend(x=-4,y=0.3,names(v),col=col,cex=0.6)

The problem is that in the legend doesn't appear colours so I can not identify which curve is each one, please could you tell me what do I neet to change in order to solve it??
Thanks a lot, Tere 		 	   		  
	[[alternative HTML version deleted]]

