Introduction à Bioconductor en R
James Chapman
Curriculum Manager, DataCamp
# Lire la séquence comme un ensemble zikaVirus <- readDNAStringSet("data/zika.fa")length(zikaVirus) # l'ensemble contient une seule séquence width(zikaVirus) # largeur de 10794 bases
1
10794
# Fusionner la séquence 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"'
# créer un nouvel ensemble depuis une seule séquence
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
Objet DNAString de 12 lettres
seq: ATGATCTCGTAA
complement(a_seq)
Objet DNAString de 12 lettres
seq: TACTAGAGCATT
zikaShortSet
Instance DNAStringSet de longueur 2
width seq names
[1] 18 AGTTGTTGATCTGTGTGA seq1
[2] 18 CTGGTCATGAAAAACCCC seq2
rev(zikaShortSet)
Instance DNAStringSet de longueur 2
width seq names
[1] 18 CTGGTCATGAAAAACCCC seq2
[2] 18 AGTTGTTGATCTGTGTGA seq1
zikaShortSet
Instance DNAStringSet de longueur 2
width seq names
[1] 18 AGTTGTTGATCTGTGTGA seq1
[2] 18 CTGGTCATGAAAAACCCC seq2
reverse(zikaShortSet)
Instance DNAStringSet de longueur 2
width seq names
[1] 18 AGTGTGTCTAGTTGTTGA seq1
[2] 18 CCCCAAAAAGTACTGGTC seq2
# Séquence rna_seq d'origine
Objet RNAString de 8 lettres
seq: AGUUGUUG
reverseComplement(rna_seq)
Objet RNAString de 8 lettres
seq: CAACAACU
# Combiner deux fonctions
reverse(complement(rna_seq))
Objet RNAString de 8 lettres
seq: CAACAACU

Introduction à Bioconductor en R