ass7q2

getwd()
setwd("D:/Thapar courses/Probability and Statistics (UCS 410) Aug _ Dec 2021 (Regular)/New lab Assignments")
getwd()
auto <- read.csv("auto.csv")
cor(auto$MPG, auto$Price)
auto_num <- Filter(is.numeric, auto)
cor(auto_num)

require(corrgram)
corrgram(auto)

auto_subset <- auto[, c('Price', 'MPG', 'Rseat', 'Hroom')]
corrgram(auto_subset, lower.panel = panel.cor, upper.panel = panel.pts)