inst/examples/R/stat/Konfidenzintervall/Konfidenzintervall_varianz_unbekannt2.R

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

x <- c(2415)
y <- c(1:50)
plot(y, col="white", ylim=c(0, 50), xlim=c(0, 2000), axes=F, xlab="Haushaltsnettoeinkommen", ylab="Stichproben-Nr.", sub="Abb. 3: Sch\u00E4tzintervalle von 50 Zufallsstichproben des Stichprobenumfangs n = 100")
axis(side=1, at=c(0, 500, 1000, 1500, 2000), labels=c(1300, 1800, 2300, 2800, 3300))
axis(side=2, at=c(0:50),labels=F)
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(459, 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")
lines(c(674, 1516), c(26,26), col="red") 
points(1095, 26, pch=16, col="blue")
lines(c(905, 1812), c(27,27), col="red") 
points(1359, 27, pch=16, col="blue")
lines(c(511, 1225), c(28,28), col="red") 
points(868, 28, pch=16, col="blue")
lines(c(282, 1338), c(29,29), col="red") 
points(810, 29, pch=16, col="blue")
lines(c(1325, 1995), c(30,30), col="red") 
points(1655, 30, pch=16, col="blue")
lines(c(646, 1583), c(31,31), col="red") 
points(1116, 31, pch=16, col="blue")
lines(c(608, 1525), c(32,32), col="red") 
points(1017, 32, pch=16, col="blue")
lines(c(798, 1736), c(33,33), col="red") 
points(1267, 33, pch=16, col="blue")
lines(c(380, 1141), c(34,34), col="red") 
points(760, 34, pch=16, col="blue")
lines(c(419, 1707), c(35,35), col="red") 
points(1063, 35, pch=16, col="blue")
lines(c(906, 2042), c(36,36), col="red") 
points(1474, 36, pch=16, col="blue")
lines(c(603, 1393), c(37,37), col="red") 
points(1000, 37, pch=16, col="blue")
lines(c(418, 1463), c(38,38), col="red") 
points(941, 38, pch=16, col="blue")
lines(c(94, 1136), c(39,39), col="red") 
points(615, 39, pch=16, col="blue")
lines(c(361, 1162), c(40,40), col="red") 
points(762, 40, pch=16, col="blue")
lines(c(415, 1470), c(41,41), col="red") 
points(943, 41, pch=16, col="blue")
lines(c(515, 1607), c(42,42), col="red") 
points(1061, 42, pch=16, col="blue")
lines(c(910, 1704), c(43,43), col="red") 
points(1307, 43, pch=16, col="blue")
lines(c(579, 1460), c(44,44), col="red") 
points(1019, 44, pch=16, col="blue")
lines(c(447, 1360), c(45,45), col="red") 
points(903, 45, pch=16, col="blue")
lines(c(150, 1019), c(46,46), col="red") 
points(584, 46, pch=16, col="blue")
lines(c(646, 1583), c(46,46), col="red") 
points(1116, 46, pch=16, col="blue")
lines(c(469, 1466), c(47,47), col="red") 
points(967, 47, pch=16, col="blue")
lines(c(375, 1350), c(48,48), col="red") 
points(863, 48, pch=16, col="blue")
lines(c(294, 1375), c(49,49), col="red") 
points(865, 49, pch=16, col="blue")
lines(c(674, 1516), c(50,50), col="red") 
points(1095, 50, pch=16, col="blue")
abline(v=1115, lty=4, lwd=2)
legend(1550, 52, bty="n", legend = "Stichprobenmittelwert", col="blue", pch=16, cex=0.8)
legend(1550, 50, bty="n", legend = "Konfidenzintervall", pch="-", col="red", cex=0.8)