#!/usr/bin/env Rscript
library(sequenza)
setwd('/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/')
data.file <- "/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/Test_binned.seqz.gz"
test <- sequenza.extract(data.file, verbose = FALSE)
CP <- sequenza.fit(test
sequenza.results(sequenza.extract = test,
cp.table = CP, sample.id = "sample1_sample2"
out.dir="/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/Test")
Error:
$head test_N.out
Error in data.frame(chrom, pos, wins.data, stringsAsFactors = FALSE) :
arguments imply differing number of rows: 1, 0
In addition: There were 50 or more warnings (use warnings() to see the first 50)
Error in data.frame(chrom, pos, wins.data, stringsAsFactors = FALSE) :
arguments imply differing number of rows: 302, 0
In addition: Warning messages:
1: In density.default(c(Bf, Af), weight = c(good.reads, good.reads)/(2 * :
Selecting bandwidth *not* using 'weights'
$tail test_N.out
Warning message:
In density.default(c(Bf, Af), weight = c(good.reads, good.reads)/(2 * :
Selecting bandwidth *not* using 'weights'
Error: unexpected symbol in:
"CP <- sequenza.fit(test
sequenza.results"
Execution halted
It would be great if you can help me to understand and troubleshoot this error.
Thanks,
Satish
I performed the following setps:
#!/usr/bin/env Rscript
library(sequenza)
setwd('/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/')
data.file <- "/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/Test_binned.seqz.gz"
data.file
test <- sequenza.extract(data.file, verbose = FALSE)
CP <- sequenza.fit(test
sequenza.results(sequenza.extract = test,
cp.table = CP, sample.id = "Testsample",
out.dir="/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/Test ")
I get the error below:
$ head test_N.out
nohup: ignoring input
[1] "/mnt/nas-ngs-storage-1/scratch/purity/Test/Variants/sequenza/42-06300_42-06424_A021_binned.seqz.gz"
Error in data.frame(chrom, pos, wins.data, stringsAsFactors = FALSE) :
arguments imply differing number of rows: 1, 0
In addition: There were 50 or more warnings (use warnings() to see the first 50)
Error in data.frame(chrom, pos, wins.data, stringsAsFactors = FALSE) :
arguments imply differing number of rows: 302, 0
In addition: Warning messages:
1: In density.default(c(Bf, Af), weight = c(good.reads, good.reads)/(2 * :
Selecting bandwidth *not* using 'weights'
$tail test_N.out
3: In density.default(c(Bf, Af), weight = c(good.reads, good.reads)/(2 * :
Selecting bandwidth *not* using 'weights'
4: In numericChrom(chrom) : NAs introduced by coercion