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 simtricos")
plot(prop,quantis,main="Dados simtricos",type="l")
