# install devtools if necessary
install.packages('devtools')
# install the acTFs package
devtools::install_github("FINCHmed/acTFs")
# load
library(acTFs)
# to get the significanly activated TFs in the treated group compared with the control group:
DEGup=read.table("up.txt",sep="\t",header=T,check.names=F)
DEGup=DEGup[,1]
DEGdown=read.table("down.txt",sep="\t",header=T,check.names=F)
DEGdown=DEGdown[,1]
result=GETacTFS(DEGup=DEGup,DEGdown=DEGdown,totalgenenum=20250,FDRcutoff=0.05)
head(result$allTFs)
head(result$sigTFS)
head(result$sigTFsDEGnet)
# To get the inactivated TFs in the treated group, just swap the contents of DEGup and DEGdown and run GETacTFS again.
DEGup=read.table("up.txt",sep="\t",header=T,check.names=F)
DEGup=DEGup[,1]
DEGdown=read.table("down.txt",sep="\t",header=T,check.names=F)
DEGdown=DEGdown[,1]
result=GETacTFS(DEGup=DEGdown,DEGdown=DEGup,totalgenenum=20250,FDRcutoff=0.05)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.