Review of UseR 2016 conferenceread more
I recently saw a plot purporting to show the Rotten Tomatoes' 'freshness' rating of Robert De Niro movies over the years, with some chart fluff suggesting 'Bobby' has essentially been phoning it in since 2002, at age 59. Somehow I wrote and maintain a mirror of IMDb which would be well suited to explore questions of this kind. Since I am inherently a skeptical person, I decided to look for myself.
First, we grab the 'acts in' table from the MariaDB via
dplyr. I found
that working with
dplyr allowed me to very quickly switch between in-database
processing and 'real' analysis in R, and I highly recommend it. Then we get
information about De Niro, and join with information about his movies,
and the votes for the same:
library(RMySQL) library(dplyr) library(knitr) # get the connection and set to UTF-8 (probably not necessary here) dbcon <- src_mysql(host='0.0.0.0',user='moe',password='movies4me',dbname='IMDB',port=23306) capt <- dbGetQuery(dbcon$con,'SET NAMES utf8') # acts in relation acts_in <- tbl(dbcon,'cast_info') %>% inner_join(tbl(dbcon,'role_type') %>% filter(role %regexp% 'actor|actress'), by='role_id') # Robert De Niro, as a person: bobby <- tbl(dbcon,'name') %>% filter(name %regexp% 'De Niro, Robert$') %>% select(name,gender,dob,person_id) # all movies: titles <- tbl(dbcon,'title') # his movies: all_bobby_movies <- acts_in %>% inner_join(bobby,by='person_id') %>% left_join(titles,by='movie_id') # genre information movie_genres <- tbl(dbcon,'movie_info') %>% inner_join(tbl(dbcon,'info_type') %>% filter(info %regexp% 'genres') %>% select(info_type_id), by='info_type_id') # get rid of _documentaries_ : bobby_movies <- all_bobby_movies %>% anti_join(movie_genres %>% filter(info %regexp% 'Documentary'),by='movie_id') # get votes for all movies: vote_info <- tbl(dbcon,'movie_votes') %>% select(movie_id,votes,vote_mean,vote_sd,vote_se) # votes for De Niro movies: bobby_votes <- bobby_movies %>% inner_join(vote_info,by='movie_id') # now collect them: bv <- bobby_votes %>% collect() # sort it bv <- bv %>% distinct(movie_id,.keep_all=TRUE …
I recently released a
docker-compose-based 'solution' to creating
an IMDb mirror. This was one
by-product of my ill-fated foray into Hollywood. The ETL process:
removes TV shows, straight-to-video, porn, and most hobby projects from
the larger IMDb FTP dump; uses
imdb2sql.py to stuff the data into a database;
then converts some of the text-based data into numeric data.
For sanity checking, and to illustrate basic usage, I look here
at seasonality of gross box office receipts.
Seasonality is a good test case because it is not subtle: you should not need a fancy statistical test to detect its existence. Seasonality was one of the features of the industry that the crusty old industry folk (and I say that with true admiration) could discuss in great detail, with its many subtleties. At a first order approximation, though, we expect to see a flurry of big budget blockbusters in the early summer, right as college lets out, higher sales throughout the summer, then peaks in November and December (again, tied to college breaks).
If you want to play along, you will have to go get the
IMDb mirror, and run it.
This can take upwards of an hour to download (and I suspect that the
bottleneck is not your local internet connection, but rather the
FTP server), and perhaps another hour for the ETL process. When
this was my bread and butter, I worked hard to cut down processing
time. It will not get much faster without a replacement of
imdb2sql.py, or a switch to a non-insane upstream format initiated
by the people at IMDb. (Good luck with that.)
Now, how many movies report opening weekend numbers in the USA, in dollars?
#d8f5b3ee-a64a-4a7d-8dee-64f19325cfdb library(RMySQL) library(dbplyr) library(dplyr) library(knitr) dbcon <- src_mysql(host='0.0.0 …
Earlier this year, I participated in the Winton Stock Market Challenge on Kaggle. I wanted to explore the freely available tools in R for performing what I had routinely done in Matlab in my previous career, I was curious how a large investment management firm (and Kagglers) approached this problem, and I wanted to be eyewitness to a potential overfitting disaster, should one occur.
The setup should be familiar: for selected date, stock pairs you are given 25 state variables, the two previous days of returns, and the first 120 minutes of returns. You are to predict the remaining 60 minutes of returns of that day and the following two days of returns for the stock. The metric used to score your predictions is a weighted mean absolute error, where presumably higher volatility names are downweighted in the final error metric. The training data consist of 40K observations, while the test data consist of 120K rows, for which one had to produce 744K predictions. First prize was a cool $20K. In addition to the prizes, Winton was explicitly looking for resumes.
I suspected that this competition would provide valuable data
in my study of human overfitting of trading strategies. Towards
that end, let us gather the public and private
Recall that the public leaderboard is what participants see of
their submissions during the competition period, based on around
one quarter of the test set data, while the private leaderboard
is the score of predictions on the remaining part of the test data,
and is published in a big reveal at the close of the competition.
Let's gather the leaderboard data.
(Those of you who want to play along at home can download my cut of the data.)
library(dplyr) library(rvest) # a function to load and process a leaderboard …