seabbs

library(xgboost)
# load data
data(agaricus.train, package = 'xgboost')
data(agaricus.test, package = 'xgboost')
train <- agaricus.train
test <- agaricus.test
# fit model
bst <- xgboost(data = train$data, label = train$label, max_depth = 5, eta = 0.001, nrounds = 1000,
               nthread = 2, objective = "binary:logistic", tree_method = "gpu_hist")
# predict

seabbs

library(xgboost)
# load data
data(agaricus.train, package = 'xgboost')
data(agaricus.test, package = 'xgboost')
train <- agaricus.train
test <- agaricus.test
# fit model
bst <- xgboost(data = train$data, label = train$label, max_depth = 5, eta = 0.001, nrounds = 1000,
               nthread = 2, objective = "binary:logistic", tree_method = "gpu_hist")
# predict

seabbs

## Get required packages - managed using pacman
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load("getTBinR")
p_load("ggplot2")
p_load("ggrepel")
p_load("scales")
p_load("viridis")
p_load("dplyr")
p_load("tidyr")
p_load("forcats")

seabbs

if (!require("pacman")) install.packages("pacman")
p_load("getTBinR")
p_load("tidyverse")
p_load("mgcv")
p_load("zoo")

tb <- get_tb_burden()

tb_features <- tb %>% 
  filter(e_inc_100k >= 200, e_inc_num > 100) %>% 

seabbs

# If we receive X-Forwarded-Proto, pass it through; otherwise, pass along the
# scheme used to connect to this server
map $http_x_forwarded_proto $proxy_x_forwarded_proto {
  default $http_x_forwarded_proto;
  ''      $scheme;
}
# If we receive X-Forwarded-Port, pass it through; otherwise, pass along the
# server port the client connected to
map $http_x_forwarded_port $proxy_x_forwarded_port {
  default $http_x_forwarded_port;

seabbs

#!/bin/bash

cd $repo

git reflog expire --expire=now --all && git gc --prune=now --aggressive

cd .. 

java -jar bfg-$(version).jar --strip-blobs-bigger-than 100M $repo

seabbs

Keybase proof

I hereby claim:

• I am seabbs on github.
• I am seabbs (https://keybase.io/seabbs) on keybase.
• I have a public key ASDWcflm0qRi8bGzqTjCLreVJSfzjC9UKr0UnsWBtQzM4wo

To claim this, I am signing this object:

seabbs

## Get required packages - managed using pacman
if (!require(pacman)) install.packages("pacman"); library(pacman)
p_load("getTBinR")
p_load("ggplot2")
p_load("viridis")
p_load("dplyr")
p_load("forcats")
p_load("ggridges")
p_load_gh("thomasp85/patchwork")

seabbs

FROM seabbs/showmeperseus:latest

MAINTAINER "Sam Abbott" contact@samabbott.co.uk

WORKDIR /home/rstudio/ShowMePerseus

EXPOSE 3838

CMD R -e 'shiny::runApp(port = 3838)'

seabbs

#' Load the package
library(Thresher)

#'  Generate random data
set.seed(3928270)
ranData <- matrix(rnorm(100*12), ncol=12)
colnames(ranData) <- paste("G", 1:12, sep='')


#' Perform dim reduction