#Q1
curve(exp(x),from=10, to=15)

#Q2

set.seed(123)
x3<-rnorm(50)
boxplot(x3, boxwex = 0.15, ylab = "Resposta")
rug(x3, side = 2)