Skip to content

Instantly share code, notes, and snippets.

View seabbs's full-sized avatar
🏠
Working from home

Sam Abbott seabbs

🏠
Working from home
View GitHub Profile
@seabbs
seabbs / set-up-epinow2.sh
Last active August 14, 2020 10:40
Set up an instance of EpiNow2 on a clean server with an interactive Rstudio server at localhost:8787 (username/login: epinow2)
#!bin/bash
sudo apt-get update
sudo apt-get install -y docker.io
sudo docker login docker.pkg.github.com
sudo docker pull docker.pkg.github.com/epiforecasts/epinow2/epinow2:latest
sudo docker tag docker.pkg.github.com/epiforecasts/epinow2/epinow2:latest epinow2
@seabbs
seabbs / deploy_pages.sh
Created July 2, 2020 19:40
Deploy GitHub pages from the docs folder to gh-pages
git subtree split --squash --prefix docs -b gh-pages
git push -f origin gh-pages:gh-pages
git branch -D gh-pages
@seabbs
seabbs / simulate-cases
Created May 29, 2020 13:15
Simulates cases by date of report from input Rt and initial case seed
library(EpiNow)
library(EpiSoon)
library(data.table)
#1. Input a vector of Rt estimates, and vector to initialise cases, and a generation time
initial_cases <- 100
initial_date <- as.Date("2020-03-01")
rts <- c(rep(2, 20), (2 - 1:15 * 0.1), rep(0.5, 10))
## Simulating cases
@seabbs
seabbs / memory-leak
Created May 11, 2020 18:38
Test memory leak
# Packages -----------------------------------------------------------------
require(data.table, quietly = TRUE)
require(future, quietly = TRUE)
## Require for data and nowcasting
# require(EpiNow, quietly = TRUE)
# require(NCoVUtils, quietly = TRUE)
## Required for forecasting
# require(future.apply, quietly = TRUE)
@seabbs
seabbs / clean_git.sh
Last active April 7, 2020 11:31
Clean .rds and .png from git histories using BFG
#!bin/bash
## This requires java and bfg to be installed
## bfg: https://rtyley.github.io/bfg-repo-cleaner/
## Assumes that the repo is in the current directory
## Remove all .rds and .png from the Git history
java -jar bfg.jar --delete-files "*.rds" $1
java -jar bfg.jar --delete-files "*.png" $1
@seabbs
seabbs / rco_on_getTBinR.sh
Created December 16, 2019 10:00
Testing {rco} on {getTBinR}
sudo docker pull jcrodriguez1989/rco
mkdir rco_results
sudo docker run -v /rco_results:/rco_results -e RCO_PKG=getTBinR jcrodriguez1989/rco
cd rco_results
@seabbs
seabbs / data-read-plus-munge
Last active July 24, 2019 08:57
Read in, munge and save a set of csvs + profiling information
# Get required packages - managed using pacman ---------------------------
# This installs packages if they are missing and otherwise loads them.
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load("tidyverse")
p_load("fs")
p_load("data.table")
p_load("lubridate")
p_load("purrr")
p_load("furrr")
## For password management
git config --global user.email "s.e.abbott12@gmail.com"
git config --global user.name "Sam Abbott"
git config --global credential.helper cache
git remote set-url origin https://github.com/USERNAME/REPOSITORY.git
# github settings
# developer settings
# create access token and copy
# git pull/push
@seabbs
seabbs / spending_gap_normalised
Created June 7, 2019 10:37
Looking at normalised spending gap for global Tuberculosis funding
# Install and load the package --------------------------------------------
if(!require(pacman))install.packages("pacman")
pacman::p_load('dplyr', 'ggplot2', 'getTBinR')
pacman::p_load_gh('thomasp85/patchwork')
pacman::p_load_gh('bbc/bbplot')
# Look at available datasets\ ---------------------------------------------
available_datasets
@seabbs
seabbs / spending_gap
Last active June 5, 2019 09:29
Looking at the expenditure and funding gap for TB
# Install and load the package --------------------------------------------
#Use install.packages(c("getTBinR", "dplyr", "getTBinR")) to get required packages
library(getTBinR) #TB data + visualisations
library(dplyr) # For data manipulation
library(ggplot2) # For additional visualisations etc.
#For storyboards - install with commented out code
# install.packages("devtools")
# devtools::install_github("thomasp85/patchwork")