7.1

shadenorm(mu=3400, sig=505, between=c(4410, 6000),col = "blue",dens = 150)

    1. 2.28%, 2. 0.0228
  1. 19.08%, 0.1908

  2. 34.16%, 0.3416