R source:

set.seed(674228)

N <- 100
n <- 30
mu <- 5
C <- replicate(N,t.test(rnorm(n,mu))$conf.int)

print(sum(C[1,] < mu & C[2,] > mu))

svg(height=14)
plot(c(4,6),c(1,N), type="n", xlab=expression(mu), ylab="", yaxt="n")
segments(C[1,],1:N,C[2,],1:N, col="blue", lwd=2)
abline(v=mu,col="red",lwd=1)
dev.off()

Já, držitel autorských práv k tomuto dílu, ho tímto zveřejňuji za podmínek následujících licencí:

Tento dokument smí být kopírován, šířen nebo upravován podle podmínek Svobodné licence GNU pro dokumenty verze 1.2 nebo libovolné vyšší verze publikované nadací Free Software Foundation. Dokument nemá neměnné části ani texty na předním či zadním přebalu. Kopie textu licence je k dispozici v oddíle nazvaném GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Tento soubor podléhá licenci Creative Commons Uveďte autora-Zachovejte licenci 3.0 Unported.

Dílo smíte:

• šířit – kopírovat, distribuovat a sdělovat veřejnosti
• upravovat – pozměňovat, doplňovat, využívat celé nebo částečně v jiných dílech

Za těchto podmínek:

• uveďte autora – Máte povinnost uvést autorství, poskytnout odkaz na licenci a uvést, pokud jste provedli změny. Toho můžete docílit jakýmkoli rozumným způsobem, avšak ne způsobem naznačujícím, že by poskytovatel licence schvaloval nebo podporoval vás nebo vaše užití díla.
• zachovejte licenci – Pokud tento materiál jakkoliv upravíte, přepracujete nebo použijete ve svém díle, musíte své příspěvky šířit pod stejnou nebo slučitelnou licencí jako originál.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

Můžete si zvolit libovolnou z těchto licencí.