Description Usage Arguments Value Author(s) Examples
The program removes the sequences with a quality lower the 'minq' threshold
| 1 | qmean_filter(input, minq, q_format = NULL, check.encod = TRUE)
 | 
| input | 
 | 
| minq | Quality threshold | 
| q_format | Quality format used for the file, as returned by check.encoding | 
| check.encod | Check the encoding of the sequence? This argument is incompatible with q_format | 
Filtered ShortReadQ 
object
Leandro Roser learoser@gmail.com
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | require(ShortRead)
set.seed(10)
# create 30 sequences of width 20
input <- random_seq(30, 20)
# create qualities of width 20 
## high quality (15 sequences)
set.seed(10)
my_qual <- random_qual(c(30,40), slength = 15, swidth = 20,
                       encod = 'Sanger')
## low quality (15 sequences)
set.seed(10)
my_qual_2 <-   random_qual(c(5,30), slength = 15, swidth = 20,
                           encod = 'Sanger')
# concatenate vectors
input_q<- c(my_qual, my_qual_2)
# create names
input_names <- seq_names(30)
# create ShortReadQ object
my_read <- ShortReadQ(sread = input, quality = input_q, id = input_names)
# watch the average qualities
alphabetScore(my_read) / width(my_read)
# apply the filter
filtered <- qmean_filter(my_read, minq = 30)
# watch the average qualities
alphabetScore(my_read) / width(my_read)
# watch the filtered sequences
sread(filtered)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.