Skip to content
Snippets Groups Projects
Commit 2c0d9ac2 authored by Brandi Cantarel's avatar Brandi Cantarel
Browse files

update somaticvc.pl

parent f29af901
Branches
Tags
No related merge requests found
...@@ -8,23 +8,25 @@ usage(){ ...@@ -8,23 +8,25 @@ usage(){
echo "-r --Path to Reference Genome with the file genome.fa" echo "-r --Path to Reference Genome with the file genome.fa"
echo "-n --Normal" echo "-n --Normal"
echo "-t --Tumor" echo "-t --Tumor"
echo "-p -- PairID"
echo "-x --NormalID" echo "-x --NormalID"
echo "-y --TumorID" echo "-y --TumorID"
echo "-i --NormalBAM used for Mantra in the case of UMI consensus" echo "-i --NormalBAM used for Mantra in the case of UMI consensus"
echo "-j --TumorBAM used for Mantra in the case of UMI consensus" echo "-j --TumorBAM used for Mantra in the case of UMI consensus"
echo "-b --TargetBed" echo "-b --TargetBed"
echo "Example: bash somatic_vc.sh -a strelka2 -y ORD1_N_panel1385 -y ORD1_T_panel138 -n ORD1_N_panel1385.final.bam -t ORD1_T_panel1385.final.bam" echo "Example: bash somatic_vc.sh -a strelka2 -p subj1 -y ORD1_N_panel1385 -y ORD1_T_panel138 -n ORD1_N_panel1385.final.bam -t ORD1_T_panel1385.final.bam"
exit 1 exit 1
} }
OPTIND=1 # Reset OPTIND OPTIND=1 # Reset OPTIND
while getopts :n:t:r:x:y:i:j:a:b:h opt while getopts :n:t:p:r:x:y:i:j:a:b:h opt
do do
case $opt in case $opt in
r) index_path=$OPTARG;; r) index_path=$OPTARG;;
x) tid=$OPTARG;; x) tid=$OPTARG;;
y) nid=$OPTARG;; y) nid=$OPTARG;;
p) pair_id=$OPTARG;;
n) normal=$OPTARG;; n) normal=$OPTARG;;
t) tumor=$OPTARG;; t) tumor=$OPTARG;;
i) mnormal=$OPTARG;; i) mnormal=$OPTARG;;
...@@ -46,7 +48,7 @@ if [[ -z $SLURM_CPUS_ON_NODE ]] ...@@ -46,7 +48,7 @@ if [[ -z $SLURM_CPUS_ON_NODE ]]
then then
SLURM_CPUS_ON_NODE=1 SLURM_CPUS_ON_NODE=1
fi fi
pair_id=${tid}_${nid} #pair_id=${tid}_${nid}
if [[ -z $mtumor ]] if [[ -z $mtumor ]]
then then
mtumor=tumor mtumor=tumor
......
...@@ -110,7 +110,7 @@ foreach $vcf (@vcffiles) { ...@@ -110,7 +110,7 @@ foreach $vcf (@vcffiles) {
} }
my @callers = ('ssvar','sam','gatk','strelka2','platypus','hotspot'); my @callers = ('ssvar','sam','gatk','strelka2','platypus','hotspot');
if (grep(/mutect/,@vcffiles)) { if (grep(/mutect/,@vcffiles)) {
@callers = ('sssom','pmutect','shimmer','strelka2','varscan','virmid'); @callers = ('sssom','mutect','shimmer','strelka2','varscan','virmid');
} }
F1:foreach $chr (sort {$a cmp $b} keys %lines) { F1:foreach $chr (sort {$a cmp $b} keys %lines) {
F2:foreach $pos (sort {$a <=> $b} keys %{$lines{$chr}}) { F2:foreach $pos (sort {$a <=> $b} keys %{$lines{$chr}}) {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment