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

updating cnv and union code for umi

parent d43a024e
Branches
Tags
No related merge requests found
...@@ -29,7 +29,7 @@ if [[ -z $SLURM_CPUS_ON_NODE ]] ...@@ -29,7 +29,7 @@ if [[ -z $SLURM_CPUS_ON_NODE ]]
then then
SLURM_CPUS_ON_NODE=1 SLURM_CPUS_ON_NODE=1
fi fi
baseDir="`dirname \"$0\"`"
module load cnvkit/0.9.0 module load cnvkit/0.9.0
cnvkit.py coverage ${sbam} /project/shared/bicf_workflow_ref/GRCh38/UTSWV2.cnvkit_targets.bed -o ${pair_id}.targetcoverage.cnn cnvkit.py coverage ${sbam} /project/shared/bicf_workflow_ref/GRCh38/UTSWV2.cnvkit_targets.bed -o ${pair_id}.targetcoverage.cnn
cnvkit.py coverage ${sbam} /project/shared/bicf_workflow_ref/GRCh38/UTSWV2.cnvkit_antitargets.bed -o ${pair_id}.antitargetcoverage.cnn cnvkit.py coverage ${sbam} /project/shared/bicf_workflow_ref/GRCh38/UTSWV2.cnvkit_antitargets.bed -o ${pair_id}.antitargetcoverage.cnn
......
...@@ -35,7 +35,7 @@ for i in *.vcf.gz; do ...@@ -35,7 +35,7 @@ for i in *.vcf.gz; do
list2="$list2 nooverlap.hotspot.vcf.gz" list2="$list2 nooverlap.hotspot.vcf.gz"
fi fi
done done
#echo "$baseDir/unionvcf.pl ${index_path}/union.header.vcf $list2"
perl $baseDir/unionvcf.pl ${index_path}/union.header.vcf $list2 perl $baseDir/unionvcf.pl ${index_path}/union.header.vcf $list2
perl $baseDir/vcfsorter.pl ${index_path}/genome.dict int.vcf |bgzip > ${pair_id}.union.vcf.gz perl $baseDir/vcfsorter.pl ${index_path}/genome.dict int.vcf |bgzip > ${pair_id}.union.vcf.gz
...@@ -25,11 +25,12 @@ foreach $vcf (@vcffiles) { ...@@ -25,11 +25,12 @@ foreach $vcf (@vcffiles) {
($chromhd, $posd,$idhd,$refhd,$althd,$scorehd, ($chromhd, $posd,$idhd,$refhd,$althd,$scorehd,
$filterhd,$annothd,$formathd,@sampleids) = split(/\t/, $line); $filterhd,$annothd,$formathd,@sampleids) = split(/\t/, $line);
foreach $j (0..$#sampleids) { foreach $j (0..$#sampleids) {
$sampleids[$j] =~ s/\.final//g; $sampleids[$j] = (split(/\./,$sampleids[$j]))[0];
} }
unless (@sampleorder) { unless (@sampleorder) {
@sampleorder = @sampleids; @sampleorder = @sampleids;
print OUT $line,"\n"; print OUT join("\t",$chromhd, $posd,$idhd,$refhd,$althd,$scorehd,
$filterhd,$annothd,$formathd,@sampleids),"\n";
} }
next; next;
} }
...@@ -37,9 +38,6 @@ foreach $vcf (@vcffiles) { ...@@ -37,9 +38,6 @@ foreach $vcf (@vcffiles) {
} }
my ($chrom, $pos,$id,$ref,$alt,$score, my ($chrom, $pos,$id,$ref,$alt,$score,
$filter,$annot,$format,@gts) = split(/\t/, $line); $filter,$annot,$format,@gts) = split(/\t/, $line);
if ($pos == 48303944) {
warn "Debugging\n";
}
my %hash = (); my %hash = ();
foreach $a (split(/;/,$annot)) { foreach $a (split(/;/,$annot)) {
my ($key,$val) = split(/=/,$a); my ($key,$val) = split(/=/,$a);
......
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