drv <- JDBC("com.heavyai.jdbc.HeavyAIDriver",
"/home/heavyai/bin/heavyai-utility-6.0.jar",
"jdbc:heavyai:colossus.heavyai.com:6274:heavyai",
paste("SELECT date_trunc(month, taxi_weather_tracts_factual.pickup_datetime)",
"AVG(CASE WHEN 'Hyatt' = ANY",
" taxi_weather_tracts_factual.dropoff_store_chains THEN 1 ELSE 0 END)",
"FROM taxi_weather_tracts_factual",
"WHERE (taxi_weather_tracts_factual.dropoff_merc_x >= -8254165.98668337",
" AND taxi_weather_tracts_factual.dropoff_merc_x < -8218688.304677745)",
"AND (taxi_weather_tracts_factual.dropoff_merc_y >= 4966267.65475399",
" AND taxi_weather_tracts_factual.dropoff_merc_y < 4989291.122013792)",
" taxi_weather_tracts_factual.pickup_datetime",
" >= TIMESTAMP(0) '2009-12-20 08:13:47'",
" AND taxi_weather_tracts_factual.pickup_datetime",
" < TIMESTAMP(0) '2015-12-31 23:59:59')",
"GROUP BY key0 ORDER BY key0", sep=" "))