set.seed<-522345767
x<--rf(100,4,3)
prop<-c(0:20)
prop<-prop/20
quantis<-quantile(x,prop)
par(mfrow=c(1,2))
plot(prop,quantis,main="Dados com assimetria negativa")
plot(prop,quantis,main="Dados com assimetria negativa",type="l")