STA 354 Assignment

##QUESTION 1

ZTEST = function(xbar,mu,sd,n) { numerator=xbar-mu denominator=sd/sqrt(n) Z=numerator/denominator twotailpvalue=2*(1-pnorm(abs(Z))) righttailpvalue=1-pnorm(Z) lefttailpvalue=pnorm(Z) return(c(Z,twotailpvalue,righttailpvalue,lefttailpvalue))

} ZTEST(20,10,17,15)

##QUESTION 2

ZTEST2= function(X1bar,X2bar,sd1,sd2,n1,n2) { numerator=X1bar-X2bar d1=sd1^2/n1 d2=sd2^2/n2 d=d1+d2 denominator=sqrt(d) Z2=numerator/denominator twotailpvalue=2*(1-pnorm(abs(Z2))) righttailpvalue=1-pnorm(Z2) lefttailpvalue=pnorm(Z2) return(c(Z2,twotailpvalue,righttailpvalue,lefttailpvalue)) } ZTEST2(27,43,37,54,27,16)