This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it loand pressing Cmd+Shift+Enter.

Problem 1: Installed the ISLR library using the install.packages() command. Call the library to ensure that it was installed properly. Also called ggplot2 library for Problem 5.

library(ISLR)
library(ggplot2)

Problem 2: Created a new R-Notebook for Assignment—Setting up R & then printed summary of Carseats & determined observation in the dataset

summary(Carseats)

##      Sales          CompPrice       Income        Advertising    
##  Min.   : 0.000   Min.   : 77   Min.   : 21.00   Min.   : 0.000  
##  1st Qu.: 5.390   1st Qu.:115   1st Qu.: 42.75   1st Qu.: 0.000  
##  Median : 7.490   Median :125   Median : 69.00   Median : 5.000  
##  Mean   : 7.496   Mean   :125   Mean   : 68.66   Mean   : 6.635  
##  3rd Qu.: 9.320   3rd Qu.:135   3rd Qu.: 91.00   3rd Qu.:12.000  
##  Max.   :16.270   Max.   :175   Max.   :120.00   Max.   :29.000  
##    Population        Price        ShelveLoc        Age          Education   
##  Min.   : 10.0   Min.   : 24.0   Bad   : 96   Min.   :25.00   Min.   :10.0  
##  1st Qu.:139.0   1st Qu.:100.0   Good  : 85   1st Qu.:39.75   1st Qu.:12.0  
##  Median :272.0   Median :117.0   Medium:219   Median :54.50   Median :14.0  
##  Mean   :264.8   Mean   :115.8                Mean   :53.32   Mean   :13.9  
##  3rd Qu.:398.5   3rd Qu.:131.0                3rd Qu.:66.00   3rd Qu.:16.0  
##  Max.   :509.0   Max.   :191.0                Max.   :80.00   Max.   :18.0  
##  Urban       US     
##  No :118   No :142  
##  Yes:282   Yes:258  
##                     
##                     
##                     
##

Problem 2: Used nrow() function to calculate rows in data set. There are 400 rows.

nrow(Carseats)

## [1] 400

Problem 3: Can easily observe the Max.value of the Price element is 29 in above table; or can use the max() function to calculate.

max(Carseats$Advertising)

## [1] 29

Problem 4 Used the IQR function to Calculate the IQR of the Price Attribute.31

IQR(Carseats$Price)

## [1] 31

Problem 5: Plotted Sales against Price using gglot(). I see a correlation as the Price increases, Sales decrease.

ggplot(Carseats, aes(x = Price, y = Sales)) +
  geom_point(color = "steelblue") +
  labs(title = "Sales vs. Price",
       x = "Price",
       y = "Sales") +
theme_minimal()

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).