# Skewed to the left
b1 <- rbeta(10000,5,2)
boxplot(b1)
hist(b1)

# Skewed to the right
b2 <- rbeta(10000,2,5)
boxplot(b2)
hist(b2)

# Symmetric
b3 <- rnorm(10000,0,1)
boxplot(b3)
hist(b3)


JamesTut1 <- read.csv(file="/Users/Xiaonan/Desktop/MSc Stats/Winter 2020/MATH 203/JamesTut1.csv")
plot(JamesTut1$height,JamesTut1$weight,xlab="Height of Patients",ylab = "Weight of Patients",
     main="A plot of Height Versus Weight",col="Red")

JamesTut2 <- read.csv(file="/Users/Xiaonan/Desktop/MSc Stats/Winter 2020/MATH 203/JamesTut2.csv")
barplot(table(JamesTut2$x))
hist(JamesTut2$x)
pie(table(JamesTut2$x))