q()
getwd()
setwd('/data/RDCO/replicationPaper/pipe/accessoryFiles/R')
setwd('/data/RDCO/replicationPaper/pipe/accessoryFiles/scripts/R')
## Load custom functions & H3 data
workdir  <- Sys.getenv('KBPIPEWORKDIR')
outdir   <- Sys.getenv('KBPIPEOUTDIR')
slicedir <- paste0(Sys.getenv('KBPIPEOUTDIR'),'/slices/')
oridir   <- paste0(Sys.getenv('KBPIPEOUTDIR'),'/origins/')
#datadir <- paste0(outdir,'/Rtables/')
if (exists('testingKBGLPIPE')){
imgdir = '/home/kevbrick/testImg/'
}else{
#imgdir  <- paste0(outdir,'/figs/')
imgdir  <- './'
}
## Load custom functions & H3 data
source(paste0(workdir,'accessoryFiles/scripts/R/genericFunctions.R'))
source(paste0(workdir,'accessoryFiles/scripts/R/repFunctions.R'))
load(paste0(oridir,'/hiconf_origins.Rdata'))
library(png)
library(ggpubr)
library(plyr)
library(ggplot2)
library(data.table)
theme7point()
q()
