# Rscript for F-test:

F-test

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

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