{\rtf1\ansi\ansicpg1252\cocoartf1504\cocoasubrtf830
{\fonttbl\f0\fswiss\fcharset0 Helvetica;}
{\colortbl;\red255\green255\blue255;}
{\*\expandedcolortbl;;}
\paperw11900\paperh16840\margl1440\margr1440\vieww10800\viewh8400\viewkind0
\pard\tx566\tx1133\tx1700\tx2267\tx2834\tx3401\tx3968\tx4535\tx5102\tx5669\tx6236\tx6803\pardirnatural\partightenfactor0

\f0\fs24 \cf0 ---\
title: "Novel research that will disrupt the industry"\
author: \'93Mr scientist\'93\
date: "`r format(Sys.time(), '%d %B, %Y')`"\
output:\
  github_document:\
    toc: true\
    toc_depth: 2\
---\
\
```\{r setup, include=FALSE\}\
knitr::opts_chunk$set(echo = T, warning = F, message = F, cache = T)\
set.seed(1)\
options(scipen = 999)\
\
packages <- c(\
  "tidyverse", # best thing that happend to me\
  "dbplyr", # dplyr syntax for DB query\
  "data.table", # working with a large number of groups requires this\
  "glmnet", # cv.glmnet\
  "glmnetUtils" # formula interface to glmnet!\
)\
\
sapply(\
  packages,\
  function(x) if (!require(x, character.only = TRUE, quietly = T)) \{\
      install.packages(x, quiet = T, verbose = F)\
      library(x, character.only = T, quietly = T, verbose = F)\
    \}\
)\
```\
\
# Load data\
\
```\{r be sure to label chunks in an informative way\}\
source("../passwords.R") # never post your passwords to Github again!\
\
\
```\
\
# Don't be afraid to add headers along the report  \
## They'll all show up in the table of contents!  \
\
\
}