Kabocha’s Puke

date<-c(-48:14)
puke<-c(1,0,0,0,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0,0,0,0,0,0,1)
cdate<-ifelse(date<0,"before","after")

kabochadata<-data.frame(date,puke,cdate)

cor(date,puke)

## [1] -0.05562173

boxplot(puke~cdate)