# Exploration on data

# Load data from Rdata file
load("crashdata.Rdata")

# Alternative way to load data
#dat <- read.csv("finaldata_201809.csv")

str(dat)