Merde 2
This commit is contained in:
31
merde_2.R
Normal file
31
merde_2.R
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
n=36
|
||||||
|
x_init=0.46 #<proportion - p - parameter
|
||||||
|
x_finit=0.38
|
||||||
|
#---Step 1 - define the hypothesis
|
||||||
|
#H0: p = 0.46
|
||||||
|
#H1: p!= 0.46
|
||||||
|
#---Step 2 - define the assumptions and distribution shape
|
||||||
|
#1. Assume normal distribution
|
||||||
|
#2. Assume random, unbiased sampling
|
||||||
|
#3. p`= p = 0.46 - H0 is assumed true
|
||||||
|
#4. stderr of p` = sqrt((q*p)/n)
|
||||||
|
|
||||||
|
#---Step 3 - determine where a (alpha) is, define criterion
|
||||||
|
a=0.02 #0.04/2 Assumption: H1 (double tail)
|
||||||
|
Zc=2.05 #<given
|
||||||
|
#stderr=sqrt(((0.46-0.38)^2)/35) #<what is this misery?
|
||||||
|
#^this is nonsense
|
||||||
|
|
||||||
|
#---Step 4 - ???
|
||||||
|
#stderr=sqrt(((0.46-0.38)^2)/35) #<Is it this thing? it it this bastard?
|
||||||
|
#Zp`^
|
||||||
|
Zptag=(0.38-0.46)#/@p`
|
||||||
|
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
a=0.05
|
||||||
|
x=5
|
||||||
|
s=1.5
|
||||||
|
n=15
|
||||||
|
s2<s
|
||||||
|
#Is s` the same as s in this case?
|
||||||
|
#s` pushes upwards - this is a rear tail - possibly different result! (?)
|
||||||
|
#What on earth is a t test?
|
||||||
Reference in New Issue
Block a user