“Investigate Customer Buying Patterns”

“Y.S. Kim”

“07-02-2020”

---

This is a header

I’m a paragraph, hi! I can do cool things like:

• Be in italics
• Be Bold
• Or be wrong

Below is a code chunk


```r
# Load the data inside your system
data <- read.csv("Blackwell_Hist_Sample.csv")

# Show the summary of the data
summary(data)

##     in.store           age            items           amount       
##  Min.   :0.0000   Min.   :18.00   Min.   :1.000   Min.   :   5.23  
##  1st Qu.:0.0000   1st Qu.:33.00   1st Qu.:3.000   1st Qu.: 276.75  
##  Median :0.0000   Median :45.00   Median :4.000   Median : 570.66  
##  Mean   :0.4555   Mean   :45.96   Mean   :4.504   Mean   : 835.00  
##  3rd Qu.:1.0000   3rd Qu.:57.00   3rd Qu.:6.000   3rd Qu.:1249.90  
##  Max.   :1.0000   Max.   :85.00   Max.   :8.000   Max.   :2999.20  
##      region    
##  Min.   :1.00  
##  1st Qu.:2.00  
##  Median :3.00  
##  Mean   :2.66  
##  3rd Qu.:4.00  
##  Max.   :4.00

Code inside text

Let’s add this text inside your document:

The blackwell dataset has 10000 observations.

# Creating an histogram of the age
hist(data$age)

Making a scatter plot inside report of age vs salary

Minimum and maximum age:

The minimum age is 20.
The maximum age is 80.