(As)simetria das Distribuições

#Simétrica
C1 <- round(rnorm(100,6,1),1)
C1 <- C1[C1>=0 & C1<=10]
C2 <- round(rnorm(1000,6,1),1)
C2 <- C2[C2>=0 & C2<=10]
C4 <- round(rnorm(20000,6,1),1)
C4 <- C4[C4>=0 & C4<=10]
hist(C1, col="orange", xlab="NOTAS", ylab="FREQUÊNCIA", main=("SIMETRIA"), xlim=c(3,9), ylim=c(0,30), nclass=10)

hist(C2, col="yellow", xlab="NOTAS", ylab="FREQUÊNCIA", main=("SIMETRIA"), xlim=c(3,9), ylim=c(0,400), nclass=30)

hist(C4, col="green", xlab="NOTAS", ylab="FREQUÊNCIA", main=("SIMETRIA"), xlim=c(2,10), ylim=c(0,800), nclass=100)

#Assimétrica positiva
AP1 <- 3+round(rlnorm(800),1)
AP1 <- AP1[AP1>=0 & AP1<=10]
AP2 <- 3+round(rlnorm(1000),1)
AP2 <- AP2[AP2>=0 & AP2<=10]
AP3 <- 3+round(rlnorm(20000),1)
AP3 <- AP3[AP3>=0 & AP3<=10]
hist(AP1, col="orange", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA POSITIVA"), xlim=c(3,10), ylim=c(0,250), nclass=10)

hist(AP2, col="yellow", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA POSITIVA"), xlim=c(3,10), ylim=c(0,150), nclass=200)

hist(AP3, col="green", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA POSITIVA"), xlim=c(3,10), ylim=c(0,1300), nclass=100)

#Assimetria Negativa
AN1 <- 10-round(rlnorm(800),1)
AN1 <- AN1[AN1>=0 & AN1<=10]
AN2 <- 10-round(rlnorm(1000),1)
AN2 <- AN2[AN2>=0 & AN2<=10]
AN3 <- 10-round(rlnorm(20000),1)
AN3 <- AN3[AN3>=0 & AN3<=10]
hist(AN1, col="orange", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA NEGATIVA"), xlim=c(0,10), ylim=c(0,250), nclass=30)

hist(AN2, col="yellow", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA NEGATIVA"), xlim=c(0,10), ylim=c(0,150), nclass=50)

hist(AN3, col="green", xlab="NOTAS", ylab="FREQUÊNCIA", main=("ASSIMETRIA NEGATIVA"), xlim=c(0,10), ylim=c(0,1300), nclass=100)