Add working R file for creating plots