set.seed<-522345767
x<-rnorm(1000)
prop<-c(0:20)
prop<-prop/20
quantis<-quantile(x,prop)
par(mfrow=c(1,2))
plot(prop,quantis,main="Dados simétricos")
plot(prop,quantis,main="Dados simétricos",type="l")