Error with hicdcdiff function in HiCDCPlus package
0
0
Entering edit mode
8 months ago
koushik.vf09 ▴ 30

I am trying to find differential interactions from my allvalidpairs data. I was able to create an index file with the union of significant interactions but when proceeding to the next step to perform differential analysis with hicdcdiff function I am getting the following error.

Error in gi_list_read(path.expand(prefix)) : 
  Some of columns 'chrI','startI','chrJ','startJ','D' do not
            exist in file

Below is the code I am trying to execute

library(HiCDCPlus)
library(BSgenome.Hsapiens.UCSC.hg19)
library(DESeq2)

#Generate features
outdir <- "/mnt/Hi-ChIP_Demo/"
construct_features(output_path=paste0(outdir,"hg19_5kb_GATC"),
                   gen="Hsapiens",gen_ver="hg19",
                   sig="GATC",bin_type="Bins-uniform",
                   binsize=5000,
                   wg_file=NULL,
                   chrs=c("chr15"))

#Adding allValidPairs
hicfile_paths <- c("HiChIP_KURA_chr15_allValidPairs.txt",
                   "HiChIP_FT246_chr15_allValidPairs.txt")
indexfile <- data.frame()
for(hicfile_path in hicfile_paths){
  output_path <- outdir
  #generate gi_list instance
  gi_list<- generate_bintolen_gi_list(
    bintolen_path=paste0(outdir,"hg19_5kb_GATC_bintolen.txt.gz"),
    gen="Hsapiens",gen_ver="hg19")
  #add .hic counts
  #gi_list<-add_hic_counts(gi_list,hic_path = hicfile_path)
  gi_list <- add_hicpro_allvalidpairs_counts(gi_list, hicfile_paths[2])
  #expand features for modeling
  gi_list<-expand_1D_features(gi_list)
  #run HiC-DC+ on 2 cores
  set.seed(1010) #HiC-DC downsamples rows for modeling
  gi_list<-HiCDCPlus(gi_list,ssize=0.1)
  for (i in seq(length(gi_list))){
    indexfile<-unique(rbind(indexfile,
                            as.data.frame(gi_list[[i]][gi_list[[i]]$qvalue<=0.05])[c('seqnames1',
                                                                                     'start1','start2')]))
  }
  #write results to a text file
  gi_list_write(gi_list,fname=paste0(output_path, 'kura_chr15_int.txt'))
}
#save index file---union of significants b/w FT246 & Kuramochi in Chr15
colnames(indexfile)<-c('chr','startI','startJ')
data.table::fwrite(indexfile,
                   paste0(outdir,'/FT246&Kuramochi_chr15_interactions_analysis_indices.txt.gz'),
                   sep='\t',row.names=FALSE,quote=FALSE)
#Differential analysis using modified DESeq2 (hicdcdiff)
hicdcdiff(input_paths=list(FT246=paste0(outdir,'/HiChIP-FT246_merged_editF_allValidPairs.txt'),
                           Kuramochi=paste0(outdir,'/HiChIP-Kuramochi-merged_editF_allValidPairs.txt')),
          filter_file=paste0(outdir,'/FT246&Kuramochi_chr15_interactions_analysis_indices.txt'),
          output_path=paste0(outdir,'/diff_analysis_FT246&Kuramochi/'),
          bin_type = "Bins-uniform",
          fitType = 'local',
          binsize=5000,
          chrs = 'chr15',
          diagnostics = TRUE)
hi-chip R hicdcplus deseq2 differential interactions • 257 views
ADD COMMENT

Login before adding your answer.

Traffic: 736 users visited in the last hour
Help About
FAQ
Access RSS
API
Stats

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.

Powered by the version 2.3.6