str(Chipavg)
attach(Chipavg)
EDA(thickness)
t.test(thickness,mu=1000)
boxplot(wafer1,wafer2,name=c("Wafer 1","Wafer 2"))
shapiro.test(wafer1)
shapiro.test(wafer2)
t.test(wafer1,wafer2,var.equal=TRUE)
detach(Chipavg)
Run the code above in your browser using DataLab