#Biostatistics 180

#READING DATA IN R FORMAT:

ZAR=read.table("ZarEX8.2R.txt")
ZAR
attach(ZAR)
X1=data[group=="fer"]
X1
X2=data[group=="nofer"]
X2

#PERFORMING TWO-SAMPLE ONE SIDED LOWER TAIL t-TEST
#FOR UNEQUAL VARIANCES:

t.test(X1,X2,alternative="two.sided",var.equal=FALSE, conf.level=0.95)