Gostaria de criar uma área hachurada, em cinza, tal como a da imagem abaixo.
Plotei a curva, com os dados como segue:
dados <- c(149.3355, 140.3779, 145.7254, 149.8931, 139.6168, 149.1934, 129.6147, 134.7523, 167.8030, 171.7407, 157.5422, 160.2664, 155.4553, 142.5989, 134.9844, 148.5172, 163.1447, 131.0138, 130.2423, 167.2239, 149.4015, 145.6802, 160.3472, 121.1775, 136.7295, 162.2381, 150.7192, 117.8144, 137.3630, 158.6373, 168.0833, 133.9263, 150.9102, 149.4811, 167.4367, 178.0970, 138.4903, 148.6764, 181.0990, 167.3345, 147.0679, 156.1410, 148.8734, 140.9484, 147.6408, 134.5726, 184.6812, 134.6648, 146.8130, 167.4161)
x <- seq(min(dados), max(dados), length=1000)
curve(dnorm(x, mean=mean(dados), sd=sd(dados)), col="red", lwd=2, yaxt="n", xlim=c(100,200), main = "Tempo de Transmissão via Satélite", xlab="Tempo", ylab = "Freq")
O gráfico acima, que eu criei, é esse:
O intervalo de valores para a área hachurada, no eixo x, é P(125 < x < 150) = 45,22%. Sei que essa área deve ser obtida com a função polygon(), mas não estou sabendo completar os argumentos.
Agradeço desde já.