# MinutePlot validation -- t-tests, independent (ToothGrowth at dose 2.0)
# Install once: nothing -- this script uses base R only

# Versions (compare against those stated on this page):
cat(R.version.string, "\n")

# Load data:
tg <- subset(ToothGrowth, dose == 2.0)   # built-in; or: tg <- read.csv("toothgrowth_dose2_r.csv")  (columns len, supp, dose)

# Analysis (one print per table shown on the page, in page order):
print(t.test(len ~ supp, data = tg, var.equal = TRUE))   # Student
print(t.test(len ~ supp, data = tg))                     # Welch (R's default)