szilard

library(RJSONIO)
library(httr)
library(ggplot2)

api_key <- scan("~/.meetup.apikey", character(), quiet = TRUE)
group_id <- 1414043   ## LA R meetup

req_url <- paste0("http://www.meetup.com/2/events?key=", api_key, 
                  "&group_id=",group_id,"&status=past")
events_data <- fromJSON(rawToChar(GET(req_url)$content))$results

szilard

library(Matrix)

rm(list=ls())

set.seed(123)


## parameters

n <- 1e6

szilard

library(yaml)
library(RJSONIO)
library(httr)

event_id <- 132296372
n_max <- 20

api_key <- yaml.load_file("meetup_api_key.yml")$api_key
  ## get your api key from  http://www.meetup.com/meetup_api/key/  while logged in