Differences

This shows you the differences between two versions of the page.

--- t-test_summary [2026/04/16 01:27] – hkimscil
+++ t-test_summary [2026/04/16 01:27] (current) – hkimscil
@@ Line 1: / Line 1: @@
-m.p <- 100
-sigma <- 10
-se.4 <- sigma / sqrt(4)
-se.16 <- sigma / sqrt(16)
-se.25 <- sigma / sqrt(25)
-se.100 <- sigma / sqrt(100)
-se.400 <- sigma / sqrt(400)
-se.900 <- sigma / sqrt(900)
-se.1600 <- sigma / sqrt(1600)
-se.2500 <- sigma / sqrt(2500)
-se.3600 <- sigma / sqrt(3600)
-se.8100 <- sigma / sqrt(8100)
-se.10000 <- sigma /sqrt(10000)
-curve(dnorm(x, m.p, se.1600), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2)
-curve(dnorm(x, m.p, se.900), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2, add=T)
-curve(dnorm(x, m.p, se.400), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2, add=T)
-curve(dnorm(x, m.p, se.100), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2, add=T)
-curve(dnorm(x, m.p, se.25), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2, add=T)
-curve(dnorm(x, m.p, se.16), from = 90, to = 110,
-      main = "normalized distribution of sample means",
-      ylab = "Density", xlab = "z-value", col = "black", lwd = 2, add=T)
-abline(v=m.p, col="red", lwd=2)
-se.10000
-se.8100
-se.3600
-se.2500
-se.1600
-se.900
-se.400
-se.100
-se.25
-se.16
-c(m.p-se.10000*2, m.p+se.10000*2)
-c(m.p-se.8100*2, m.p+se.8100*2)
-c(m.p-se.3600*2, m.p+se.3600*2)
-c(m.p-se.2500*2, m.p+se.2500*2)
-c(m.p-se.1600*2, m.p+se.1600*2)
-c(m.p-se.900*2, m.p+se.900*2)
-c(m.p-se.400*2, m.p+se.400*2)
-c(m.p-se.100*2, m.p+se.100*2)
-c(m.p-se.25*2, m.p+se.25*2)
-c(m.p-se.16*2, m.p+se.16*2)
 ====== t-test sum up ======
 <tabbox rs.hypothesis.testing>