b6<-read.table("hot.txt",header=T)

attach(b6)

?t.test

?wilcox.test

lukewarm[1:6]

ylim=c(0,5)