str(Tensile)
attach(Tensile)
boxplot(Run.1,Run.2,names=c("Run 1","Run 2"),col=c("red","Blue"))
boxplot(Tensile~Run,names=c("Run 1","Run 2"),col=c("red","Blue"))
t.test(Tensile~Run)
t.test(Run.1,Run.2)
detach(Tensile)
Run the code above in your browser using DataLab