GT apple samsung applications

#----------- daywsie patterns ---------

applesam$dateH <- as.numeric(substr

(as.character(applesam

$datetimeStr),12,13) )

applesam_h$dateH

applesam_h <- sqldf("select dateH, avg

(apple) as avg_app, 

avg(samsung) as avg_sams,

count(*) as cnt

from applesam

group by dateH" )

plot(applesam_h$avg_app,ylim=yrange,  

type="b", col=2)

lines(applesam_h$avg_sams,type="b", 

col=3)

applesam_hs1 <- applesam_h[order(- 

applesam_h$avg_app),]

# ---- sorted by apple time -------

plot(applesam_hs1$avg_app,ylim=yrange,  

type="b", col=2)

lines(applesam_hs1$avg_sams,type="b", 

col=3)

#-------------- kernel density ------

require(gplots)

ci2d(applesam$apple, applesam$samsung, 

xlab='GT_apple', ylab='GT_samsung')