library(devtools)
suppressMessages(install_github(repo="stuartgordonreid/emh", 
                                force = TRUE))

suppressMessages(library(emh))

# This may take some time. Use the S3, $ operator to see the datasets.
global_indices <- emh::data_quandl_downloader(data_quandl_indices())

results <- is_random(S = global_indices$'YAHOO/INDEX_SML',
                     a = 0.99, # To get a 99% confident result
                     freqs1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                     freqs2 = c("Mon", "Tue", "Wed", "Thu", "Fri", "Week", "Month"))

head(results, 30)

plot_results(results)