if(!require(remotes)){
  install.packages('remotes') # install devtools if not installed.
}
remotes::install_github('vqv/ggbiplot')
remotes::install_github('unistbig/cellenrich')
library(CellEnrich)

# download minimal data to working directory

download.file('https://github.com/jhk0530/CellEnrich/blob/master/pbmcData.RData?raw=true','pbmcData.RData', mode = 'wb')
download.file('https://github.com/jhk0530/CellEnrich/blob/master/pbmcClustinfo.RData?raw=true','pbmcClustinfo.RData', mode = 'wb')
download.file('https://github.com/jhk0530/CellEnrich/blob/master/humanKEGG.RData?raw=true', 'humanKEGG.RData', mode = 'wb')

# load library and data

library(CellEnrich)
load("pbmcClustInfo.RData")
load("pbmcData.RData")


CountData <- pbmcData
GroupInfo <- pbmcClustInfo
rm(pbmcData, pbmcClustInfo) # remove .

# Run cellenrich
CellEnrich(CountData, GroupInfo)