install.packages("doRedis")

library(rredis)

# What is redis?
# What is the idea behind redis?
# What can I do with redis?

# Get a message from Mike's Mac
host <- "<PUT IP ADDRESS HERE>"
redisConnect(host)
redisBLPop("example1")
# What is returned?

# Now send a message to Mike's Mac
redisRPush("example1", <YOUR MESSAGE HERE>)


# Now let's do a parallel computation, pushing an R data structure.
redisRPush("colmeans", apply(matrix(rnorm(100), ncol=2), 2, mean))

# What does this have to do with parallel/distributed computing?

# How do we set up a clinic cluster?

library(doRedis)
redisWroker(queue="ClinicCluster", host=host)