{


# You can see the p-value that comes out of theses
# to reject or accept the null hypothesis.

test=scan("hel55")


x=test[1:13]		#with fracturing..
y=test[14:25]		#without fracturing..

# you can change the confidence level and/or the alternate hypothesis
#two sample T-test
#unequal variance
print(c(t.test(x,y,paired=FALSE,var.equal=FALSE)))

#two sample Variance test
print(c(var.test(x,y)))


# To test the correlation between x and y
# rho = correlation(x,y)
# Ho rho = 0; H1: rho not equal to 0

print(c(cor.test(x,y)))

}