# STAT3530 -- data analysis activity
# Three datasets, three questions. For each one, fit an appropriately
# specified simple linear model, validate the assumptions, check for unusual
# observations, and answer the question. Each section below loads a dataset
# and shows a few rows; everything after that is yours.

site <- 'https://tdruiz-stat3530.share.connect.posit.cloud/_data/'

# ===========================================================================
# 1. FLORIDA 2000
# ===========================================================================
# Votes cast for Pat Buchanan and total votes cast, for each of the 67
# counties in Florida in the 2000 presidential election.

load(url(paste0(site, 'florida.RData')))

head(florida)


# ===========================================================================
# 2. PIPELINE INSPECTIONS
# ===========================================================================
# Depth of 107 defects in the Alaska oil pipeline, each measured twice: once
# in the field with a portable ultrasonic device, once in the laboratory.

load(url(paste0(site, 'pipeline.RData')))

head(pipeline)


# ===========================================================================
# 3. RUBBER SPECIMENS
# ===========================================================================
# Hardness and abrasion loss for 30 rubber specimens tested to destruction.

load(url(paste0(site, 'rubber.RData')))

head(rubber)