Gathering data script (R)

gathering_data.R

#-------------------------------------------------------------------------------
#                          Gathering the data
#-------------------------------------------------------------------------------

# Loading the entire mtcars dataset
data(mtcars)

# Subsetting the dataset for our use
dat <- subset(mtcars,select=c(mpg,disp,hp,drat,wt))
dat

# Take a peek at the data plotting each feature against the other
plot(dat)

# Attach for rapid calls
attach(dat)

# Plot data to use
plot(disp,wt,type='p',xlab='Disp',ylab='Wt',main='Regression polynomials')

# Add a legend
legend("topleft",c("n=1","n=2","n=3"), col=c("red","green","blue"), lwd=3)