slidewalk_example_01.R

# Sidewalk Cafe Data Script
# Created by Kristen Sosulski & Michael Sweetman
# May 15, 2015

#modfiy the path
sidewalk <- read.csv("~/Dropbox/R_Stat_Workshop/data/Sidewalk_Cafes.csv")

#Check class
class(sidewalk)

## [1] "data.frame"

#mean of square footage
mean(sidewalk$Lic.Area.Sq.Ft, na.rm='TRUE')

## [1] 258.6475

#boxplot of the NYC slidewalk cafe size
boxplot(sidewalk$Lic.Area.Sq.Ft, main="NYC Sidewalk Cafe Size")