View source: R/wrapperFunctions_ctk.R
ctk_tag2collapse | R Documentation |
Wrapper function for ctk's tag2collapse
ctk_tag2collapse( filesToRun, outFile = file.path(dirname(filesToRun), paste0("TC_", basename(filesToRun))), sb = "tag2collapse.pl", perl = "perl", PATHTOPERLLIB = NULL, keepMaxScore = TRUE, keepTagName = TRUE, weight = TRUE, bigFile = FALSE, weightInName = TRUE, randomBarcode = TRUE, seqErrorModel = "em-local", outputSeqError = NULL, em = NULL, stderr = file.path(dirname(fileToRun), paste0(basename(fileToRun), "_ctk_tag2collapse_stderr.txt")), stdout = file.path(dirname(fileToRun), paste0(basename(fileToRun), "_ctk_tag2collapse_stdout.txt")), useClipRConda = ifelse(is.null(getOption("CLIPflexR.condaEnv")), FALSE, TRUE), additional_Args = NULL, verbose = FALSE, writelog = T )
filesToRun |
path to file to process (BED). |
outFile |
path to output file |
sb |
path to tag2collapse.pl from CTK. |
perl |
path to PERL. |
PATHTOPERLLIB |
path to PERL5LIB. |
keepMaxScore |
keep the tag with the most weight (instead of the longest one) as representative. |
keepTagName |
do not change tag name (no extra information). |
weight |
consider the weight of each tag. |
bigFile |
Set to TRUE when files are big. |
weightInName |
find weight in name. |
randomBarcode |
random barcode exists, no collapse for different barcodes. |
seqErrorModel |
sequencing error model to use, "alignment" or "em-local" (default) or "em-global" or "fix=0.01". |
outputSeqError |
output sequencing errors estimated by the EM algorithm. |
em |
EM threshold to infer reliability of each collapsed read (when have random linker, -1=no EM). |
stderr |
path to stdout file. |
stdout |
path to stdout file. |
useClipRConda |
use conda environment installed by Herper, TRUE (default) or FALSE. |
additional_Args |
Additional arguments to be passed to system call. |
verbose |
print messages, TRUE or FALSE (default). |
writelog |
write stderr/stdout logs, TRUE (default) or FALSE |
path to collapsed BED file.
Kathryn Rozen-Gagnon
testFasta <- system.file("extdata/hg19Small.fa",package="CLIPflexR") myIndex <-suppressWarnings(bowtie2_index(testFasta, overwrite = TRUE)) testFQ <- system.file("extdata/Fox3_Std_small.fq.gz",package="CLIPflexR") FqFile_FF <- ctk_fastqFilter(testFQ,qsFilter="mean:0-29:20",verbose=TRUE) FqFile <- decompress(FqFile_FF,overwrite=TRUE) FqFile_clipped <- fastx_clipper(FqFile,length=20) FqFile_QF <- fastq_quality_trimmer(FqFile_clipped) FqFile_Col <- ctk_fastq2collapse(FqFile_QF,verbose=TRUE) FqFile_QFColStripped <- ctk_stripBarcode(FqFile_Col,linkerlength=5,inputFormat="fastq") bam <- suppressWarnings(bowtie_align(FqFile_QFColStripped,myIndex, overwrite=TRUE, inputFormat="fastq")) parsedAlignment <- ctk_parseAlignment(bam) ctk_tag2collapse(parsedAlignment,weight=FALSE,randomBarcode=FALSE, weightInName = FALSE,verbose = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.