This is a header

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

• Be in italics
• Be Bold
• Or be wrong

# 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

The blackwell dataset has 10000 observations. 

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

library ("ggplot2")

## Registered S3 methods overwritten by 'ggplot2':
##   method         from 
##   [.quosures     rlang
##   c.quosures     rlang
##   print.quosures rlang

ggplot(data, aes(x = amount, y = age, 
                    )) + geom_point()

#Min age
min(data$age)

## [1] 18

#Max age
max(data$age)

## [1] 85