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
| > getwd()
[1] "C:/Users/Sarah/Documents"
> read.table("sequence.txt")
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1 A C C U G U C A A A
2 C A A A U C U G G U
3 C A A C C U G U G U
4 C C A A U U C A G G
5 U C U G A A C C U C
6 A A A C C G U G U A
7 C A G U A G C A U C
8 A C A U G G U G A A
9 C C U U G U C A C A
10 U G C A C A U C A A
11 U A A C G G U A C U
12 A G G U C U A A U G
> seq<-scan(file="sequence.txt",what="character")
Read 120 items
> seq
[1] "A" "C" "C" "U" "G" "U" "C" "A" "A" "A" "C" "A" "A" "A"
[15] "U" "C" "U" "G" "G" "U" "C" "A" "A" "C" "C" "U" "G" "U"
[29] "G" "U" "C" "C" "A" "A" "U" "U" "C" "A" "G" "G" "U" "C"
[43] "U" "G" "A" "A" "C" "C" "U" "C" "A" "A" "A" "C" "C" "G"
[57] "U" "G" "U" "A" "C" "A" "G" "U" "A" "G" "C" "A" "U" "C"
[71] "A" "C" "A" "U" "G" "G" "U" "G" "A" "A" "C" "C" "U" "U"
[85] "G" "U" "C" "A" "C" "A" "U" "G" "C" "A" "C" "A" "U" "C"
[99] "A" "A" "U" "A" "A" "C" "G" "G" "U" "A" "C" "U" "A" "G"
[113] "G" "U" "C" "U" "A" "A" "U" "G" |
Partager