inst/examples/R/stat/Konfidenzintervall/Konfidenzintervall_varianz_bekannt.R

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

x <- c(2415)
y <- c(1:25)
plot(y, col="white", ylim=c(0, 25), xlim=c(0, 2000), axes=FALSE, xlab="Haushaltsnettoeinkommen", ylab="Stichproben-Nr.",sub="Abb. 1: Punktsch\u00E4tzwerte und Sch\u00E4tzintervalle von 25 Zufallsstichproben des Stichprobenumfangs n = 20")
axis(side=1, at=c(0, 500, 1000, 1500, 2000), labels=c(1300, 1800, 2300, 2800, 3300))
axis(side=2, at=c(25:0), las=1)
lines(c(670, 1550), c(1,1), col="red") 
points(1113, 1, pch=16, col="blue")
lines(c(573, 1461), c(2,2), col="red") 
points(1017, 2, pch=16, col="blue")
lines(c(823, 1711), c(3,3), col="red") 
points(1267, 3, pch=16, col="blue")
lines(c(317, 1204), c(4,4), col="red") 
points(760, 4, pch=16, col="blue")
lines(c(619, 1507), c(5,5), col="red") 
points(1063, 5, pch=16, col="blue")
lines(c(1030, 1918), c(6,6), col="red") 
points(1474, 6, pch=16, col="blue")
lines(c(554, 1442), c(7,7), col="red") 
points(1000, 7, pch=16, col="blue")
lines(c(497, 1385), c(8,8), col="red") 
points(941, 8, pch=16, col="blue")
lines(c(171, 1059), c(9,9), col="red") 
points(615, 9, pch=16, col="blue")
lines(c(318, 1206), c(10,10), col="red") 
points(762, 10, pch=16, col="blue")
lines(c(523, 1419), c(11,11), col="red") 
points(967, 11, pch=16, col="blue")
lines(c(419, 1306), c(12,12), col="red") 
points(863, 12, pch=16, col="blue")
lines(c(891, 1778), c(13,13), col="red") 
points(1365, 13, pch=16, col="blue")
lines(c(382, 1270), c(14,14), col="red") 
points(826, 14, pch=16, col="blue")
lines(c(499, 1387), c(15,15), col="red") 
points(943, 15, pch=16, col="blue")
lines(c(617, 1505), c(16,16), col="red") 
points(1061, 16, pch=16, col="blue")
lines(c(863, 1751), c(17,17), col="red") 
points(1307, 17, pch=16, col="blue")
lines(c(459, 1347), c(18,18), col="red") 
points(1019, 18, pch=16, col="blue")
lines(c(1459, 1347), c(19,19), col="red") 
points(903, 19, pch=16, col="blue")
lines(c(651, 1539), c(20,20), col="red") 
points(1095, 20, pch=16, col="blue")
lines(c(915, 1802), c(21,21), col="red") 
points(1359, 21, pch=16, col="blue")
lines(c(424, 1312), c(22,22), col="red") 
points(868, 22, pch=16, col="blue")
lines(c(366, 1254), c(23,23), col="red") 
points(810, 23, pch=16, col="blue")
lines(c(141, 1028), c(24,24), col="red") 
points(584, 24, pch=16, col="blue")
lines(c(671, 1558), c(25,25), col="red") 
points(1116, 25, pch=16, col="blue")
abline(v=1115, lty=4, lwd=2) 
legend(1550, 25, bty="n", legend = "Stichprobenmittelwert", col="blue", pch=16, cex=0.8)
legend(1550, 24, bty="n", legend = "Konfidenzintervall", pch="-", col="red", cex=0.8)