xA=seq(45,75,l=50) xB=seq(50,90,l=50) xC=seq(65,105,l=50) fA=dnorm(xA,60,5) fB=dnorm(xB,70,5) fC=dnorm(xC,80,5) plot(xA,fA,xlim=c(45,95),type='l',xlab='pesos',ylab='f(pesos)',col=2) lines(xB,fB,col=3) lines(xC,fC,col=4) A=rnorm(10,60,5) B=rnorm(10,70,5) C=rnorm(10,80,5) rug(A,col=2,lwd=2) rug(B,col=3,lwd=2) rug(C,col=4,lwd=2) text(80,.04,'Cauc.',col=4) text(70,.04,'Lat.',col=3) text(60,.04,'Asi.',col=2)