27 lines
659 B
R
27 lines
659 B
R
#Question 4
|
|
mean_1 = 50
|
|
n_1 = 36
|
|
std_1 = 42
|
|
#a_1 = 0.05 NOPE
|
|
a_1 = 1.96
|
|
lower_1 = mean_1 - (std_1/sqrt(n_1))*a_1
|
|
upper_1 = mean_1 + (std_1/sqrt(n_1))*a_1
|
|
|
|
cat(lower_1,"-",mean_1,"",upper_1)
|
|
#Question 5
|
|
## Higher confidence -> lower accuracy -> less accurate estimate -> greater range
|
|
## ~~Bigger n -> greater range -> greater standard deviation -> ?~~ NOPE
|
|
## Bigger n -> smaller standard error (std_1/sqrt(n_1)) -> smaller confidence range
|
|
|
|
#Question 6
|
|
|
|
std_2 = 15
|
|
e_2 = 10 #?
|
|
# 10 = 15/sqrt(n) -> sqrt(n) = 15/10 -> n_2 = 1.5 #nope
|
|
#1.96*stderr_2 = e_2 (10)
|
|
#stderr_2 = 5.102041
|
|
#n_2: 5.102041 = 15/sqrt(n)
|
|
#15/5.102041 = sqrt(n)
|
|
# 10 = 1.96*(15/sqrt(n))
|
|
|