xxxxxxxxxx
print(r.eval("""
# samples are random, independent,
# from normally distributed statistical population
a<-rnorm(16); b<-rnorm(16)
print(a); print(b)
print(var.test(a,b)); print(qf(.95,15,15))
print(t.test(a,b,var.equal=TRUE,paired=FALSE))
qt(.975,30)
# the null hypothesis H0
# of equality of the means is accepted
"""))
No comments:
Post a Comment