Hypothesis testing using R Experiment :1 Large-Sample Single mean Experiment :2 Large-Sample Single proportion.

 #LAB 9

#Program 1

n = 30

xbar = 788

mu = 800

sigma = 40  

z = (xbar-mu)/(sigma/sqrt(n))

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha/2)

cat("Z- Table value :",-z.alpha)

#Program 2

n = 100

xbar = 71.8

mu = 70

sigma = 8.9

z = (xbar-mu)/(sigma/sqrt(n))

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",z.alpha)

#Program 3

n = 36

xbar = 28.5

mu = 30

sigma = 3.5

z = (xbar-mu)/(sigma/sqrt(n))

cat("Test statistic =",z)

alpha = .01

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",-z.alpha)

#Single Propotion

#Program 1

p = 85/148

P = .6

n = 148

z = (p-P)/sqrt(P*(1-P)/n)

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",z.alpha)

#Program 2

p = 30/214

P = .12

n = 214

z = (p-P)/sqrt(P*(1-P)/n)

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",z.alpha)

#Program 3

p = 12/20

P = .5

n = 20

z = (p-P)/sqrt(P*(1-P)/n)

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha/2)

cat("Z- Table value :",z.alpha)

#Student Task

#Single Mean

n = 36

xbar = 11

mu = 10

sigma = 4

z = (xbar-mu)/(sigma/sqrt(n))

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",z.alpha)

#Single Propotion

p = 0.85

P = .9

n = 20

z = (p-P)/sqrt(P*(1-P)/n)

cat("Test statistic =",z)

alpha = .05

z.alpha = qnorm(1-alpha)

cat("Z- Table value :",z.alpha)