# TireWear Example -- tirewear.R

# Read input dataset.
tirewear <- read.table("tirewear.txt", header=T)

# Print dataset.
print(tirewear)

# Compute covariance and correlation.
print("covariance:")
print(cor(tirewear))
print("correlation:")
print(cov(tirewear))