## Not run: ------------------------------------
# # After obtaining an API key from Enigma's website, pass in your key to
# # the function call or set in your options (see above instructions for the
# # key parameter) If you pass in your key to the function call use the
# # key parameter
#
# # stats on a varchar column
# x <- 'gov.mx.imss.compras.main'
# enigma_stats(x, select='provider_id', limit = 10)
#
# # stats on a numeric column
# enigma_stats(x, select='serialid', limit = 10)
#
# # stats on a date column
# pakistan <- 'gov.pk.secp.business-registry.all-entities'
# enigma_metadata(dataset=pakistan)
# enigma_stats(dataset=pakistan, select='registration_date', limit = 10)
#
# # stats on a date column, by the average of a numeric column
# aust <- 'gov.au.government-spending.federal-contracts'
# enigma_metadata(dataset=aust)
# enigma_stats(dataset=aust, select='contractstart', by='avg', of='value',
# limit = 10)
#
# # Get frequency of distances traveled
# ## get columns for the air carrier dataset
# dset <- 'us.gov.dot.rita.trans-stats.air-carrier-statistics.t100d-market-all-carrier'
# enigma_metadata(dset)$columns$table[,c(1:4)]
# enigma_stats(dset, select='distance', limit = 10)
## ---------------------------------------------
Run the code above in your browser using DataLab