useless::    AggdCounts.AsAndBs_All
useless::    AggdCounts.AsAndBs_UnProm
These aggregate {A, B, AorB}.
  What information does that give me? 
  What can I do with that info? 
  What do I compare it to. 

eg, have a look at: 
  AggdCounts.AsAndBs_UnProm[user_country=="US" & genre=="Punk" & month=="Oct"][order(store, measuring)]
  ByMkt.AggdCounts.all[!is.na(mkt_priority) & user_country=="US" & genre=="Punk" & month=="Oct"][order(store, measuring)]

================================================  

AggdCounts.all
AggdCounts.Spotify

ByMkt.AggdCounts.all
ByMkt.AggdCounts.AsAndBs_All
ByMkt.AggdCounts.AsAndBs_UnProm
ByMkt.AggdCounts.Spotify


AggTbls <- c("AggdCounts.all", "AggdCounts.AsAndBs_All", "AggdCounts.AsAndBs_UnProm", "AggdCounts.Spotify")
MktTbls <- c("ByMkt.AggdCounts.all", "ByMkt.AggdCounts.AsAndBs_All", "ByMkt.AggdCounts.AsAndBs_UnProm", "ByMkt.AggdCounts.Spotify")

areEqual(gapply(AggTbls, names))
areEqual(gapply(MktTbls, names))

AggdCounts.all[user_country=="US" & month=="Oct" & store=="Spotify"][order(measuring, user_country, genre, month)]
AggdCounts.Spotify[user_country=="US" & month=="Oct" & store=="Spotify"][order(measuring, user_country, genre, month)]


AggdCounts.all[user_country=="US" & month=="Oct" & store=="Spotify"][order(measuring, user_country, genre, month)]
AggdCounts.Spotify[!is.na(mkt_priority) & user_country=="US" & genre=="Punk" & month=="Oct"][order(store, measuring)]



c("mkt_priority", "measuring", "month", "user_country", "genre", 
"store", "Min.", "1st Qu.", "Median", "Mean", "3rd Qu.", "Max.", 
"SD", "MAD")