x=c(10,15,15,20,20,20,20,25,25,30) library(ineq) png("2015_estat1_1_lorenz.png") plot(Lc(x),col=c("red"),main="Lorenz kurba",xlab="Pi",ylab="Qi") axis(1,at=seq(0,1,by=0.1)) axis(2,at=seq(0,1,by=0.1),las=1) grid(nx=10,ny=10) dev.off()