# NOT RUN {
## auth
my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm")
## load data about users by gender
communityDataGender <- vkGetGroupStatGender(
date_from = "2016-01-01",
date_to = "2016-04-01",
group_id = 1,
access_token = my_tok$access_token)
# }
Run the code above in your browser using DataLab