Avaliação 1

#Q1
plot(1:10,1:10,ann=FALSE,type='n')
polygon(c(1.5,2.5,2),c(8,8,9))
text(8,3,"FLAMENGO",srt=-45)
text(8,8,expression(hat(y)==hat(beta)[0]+hat(beta)[1]*x),cex=1.5)
symbols(2,2,, circles = 0.8, inches = FALSE, add = TRUE)


#Q2
a <- -4
 b <- -1
 c <- 2
 d <- 4
 a.n <- "-4"
 b.n <- "-1"
 c.n <- "2"
 d.n <- "4"
 plot(dnorm, -4, 4, xlab = "", ylab = "", axes = F, bty = "n")
 polygon(x = c(a, seq(a, b, l = 20), b), y = c(0, dnorm(seq(a,b, l = 20)), 0), col = "gray")
 text(c(a, b), c(-0.011, -0.011), c(a.n, b.n), cex = 0.5)
 polygon(x = c(c, seq(c, d, l = 20), d), y = c(0, dnorm(seq(c,d, l = 20)), 0), col = "gray")
 text(c(c, d), c(-0.011, -0.011), c(c.n, d.n), cex = 0.5)
 segments(-4, -0.004, 4, -0.004)