Mercurial > repos > kpbioteam > chipeakanno_annopeaks
comparison chipeakanno_annopeaks.R @ 4:b5bc7e70b949 draft
planemo upload for repository https://github.com/kpbioteam/chipeakanno_annopeaks commit e4ccaafda5f770219ab999f48574a3bfed84c311
author | kpbioteam |
---|---|
date | Tue, 12 Jun 2018 08:46:36 -0400 |
parents | 9ec5e9e2e7b2 |
children | 17b814d78ac6 |
comparison
equal
deleted
inserted
replaced
3:9ec5e9e2e7b2 | 4:b5bc7e70b949 |
---|---|
26 annoData <- toGRanges(EnsDb.Hsapiens.v75) | 26 annoData <- toGRanges(EnsDb.Hsapiens.v75) |
27 seqlevelsStyle(peaks) <- seqlevelsStyle(annoData) | 27 seqlevelsStyle(peaks) <- seqlevelsStyle(annoData) |
28 | 28 |
29 anno <- annoPeaks(peaks, annoData=annoData, bindingType =c(input2), bindingRegion=c(input3, input4)) | 29 anno <- annoPeaks(peaks, annoData=annoData, bindingType =c(input2), bindingRegion=c(input3, input4)) |
30 | 30 |
31 write.table(anno, file= output1, quote = FALSE, row.names = FALSE, sep = "/t") | 31 write.table(anno, file= output1, quote = FALSE, row.names = FALSE, sep = "\t") |