lungCap_data <- read.csv("LungCapacity.csv",header = TRUE)
attach(lungCap_data)

boxplot(LungCap.cc. ~ Smoke, horizontal = TRUE)

Range of Lung Cap is higher in Non Smokers than in Smokers