this is a header

I’m a paragraph, hi I can do cool things like * Be in Italics Be bold * Or be wrong

# Load the data inside the 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

chunk in text 10000 observations.

the minimum age is

min(data$age)

## [1] 18

the maximum age is

max(data$age)

## [1] 85