Tooth Growth Data Analysis

This a basic analysis of ToothGrowth data.

library(datasets)
tooth_data <- ToothGrowth

tooth_data_summary <- summary(tooth_data)

library(lattice)

bwplot(dose ~ len | supp, data = tooth_data, layout = c(2, 1),
       main = "Dose vs. Tooth Length in Guinea Pig Test \n for OJ and VC",
       xlab = "Tooth Length (mm)",
       ylab = "Dose (mg)")