Introdução ao Bioconductor em R
James Chapman
Curriculum Manager, DataCamp
# Ler a sequência como um conjunto zikaVirus <- readDNAStringSet("data/zika.fa")length(zikaVirus) # o conjunto contém só uma sequência width(zikaVirus) # com largura de 10794 bases
1
10794
# Colar a sequência zikaVirus_seq <- unlist(zikaVirus)length(zikaVirus_seq)width(zikaVirus_seq)
10794Error in (function (classes, fdef, mtable) : unable to find an inherited method for function 'width' for signature '"DNAString"'
# criar um novo conjunto a partir de uma única sequência
zikaSet <- DNAStringSet(zikaVirus_seq, start = c(1, 101, 201), end = c(100, 200, 300))
zikaSet
DNAStringSet object of length 3:
width seq
[1] 100 AGTTGTTGATCTGTGTGAGTCAGACTGCGACAGTTCGAGTCTGAAG...AACAACAGTATCAACAGGTTTAATTTGGATTTGGAAACGAGAGTTT
[2] 100 CTGGTCATGAAAAACCCCAAAGAAGAAATCCGGAGGATCCGGATTG...CTAAAACGCGGAGTAGCCCGTGTAAACCCCTTGGGAGGTTTGAAGA
[3] 100 GGTTGCCAGCCGGACTTCTGCTGGGTCATGGACCCATCAGAATGGT...TACTAGCCTTTTTGAGATTTACAGCAATCAAGCCATCACTGGGCCT
length(zikaSet)
width(zikaSet)
3
100 100 100

a_seq <- DNAString("ATGATCTCGTAA")
a_seq
Objeto DNAString de 12 letras
seq: ATGATCTCGTAA
complement(a_seq)
Objeto DNAString de 12 letras
seq: TACTAGAGCATT
zikaShortSet
Instância de DNAStringSet com comprimento 2
width seq names
[1] 18 AGTTGTTGATCTGTGTGA seq1
[2] 18 CTGGTCATGAAAAACCCC seq2
rev(zikaShortSet)
Uma instância de DNAStringSet com comprimento 2
width seq names
[1] 18 CTGGTCATGAAAAACCCC seq2
[2] 18 AGTTGTTGATCTGTGTGA seq1
zikaShortSet
Uma instância de DNAStringSet com comprimento 2
width seq names
[1] 18 AGTTGTTGATCTGTGTGA seq1
[2] 18 CTGGTCATGAAAAACCCC seq2
reverse(zikaShortSet)
Uma instância de DNAStringSet com comprimento 2
width seq names
[1] 18 AGTGTGTCTAGTTGTTGA seq1
[2] 18 CCCCAAAAAGTACTGGTC seq2
# Sequência original rna_seq
Objeto RNAString de 8 letras
seq: AGUUGUUG
reverseComplement(rna_seq)
Objeto RNAString de 8 letras
seq: CAACAACU
# Usando duas funções juntas
reverse(complement(rna_seq))
Objeto RNAString de 8 letras
seq: CAACAACU

Introdução ao Bioconductor em R