# Rscript for Two Sample t-Test:

***Two Sample t-Test with equal variances:-
R Script using a txt file called (Pizza.txt)

# X=read.table("Pizza.txt",header=T)
# attach(X)
# X1=Time[Company=="A"]
# X2=Time[Company=="B"]

# Two Tail Case
   t.test(X1,X2,alternative="two.sided",var.equal=T,conf.level=0.95)
# One Sided Case Lower Tail
   t.test(X1,X2,alternative="less",var.equal=T,conf.level=0.95)
# One Sided Case Upper Tail
   t.test(X1,X2,alternative="greater",var.equal=T,conf.level=0.95)

***Two Sample t-Test with unequal variances:-

general form for Two Sample t-Test with unequal variances:-
# t.test(X1,X1,alternative=c("two.sided","less","greater"),var.equal=F,conf.level=0.95)