inst/examples/R/stat/Standardnormalverteilung/Dichtefunktion_min_115.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")
axis( side=1, at=c(60, 115.6), labels=c("60", "115,6"), tick=FALSE)

par(new=TRUE)

xx <-c(115.6:140.6, 140.6:115.6)
yy <-c(c(dnorm(c(115.6:140.6), mean=100, sd=10)),c(rep(0,26)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=115.6, col="black", lwd=2)