try this:
> tags <- c("aaa", "ttt", "ccc", "gcc", "atn")
> key <- c(a=0, c=1, g=2, t=3, n=0)
> x <- t(sapply(strsplit(tags, ''), function(z) key[z]))
> x
a a a
[1,] 0 0 0
[2,] 3 3 3
[3,] 1 1 1
[4,] 2 1 1
[5,] 0 3 0
On Mon, Jan 5, 2009 at 8:26 PM, Gundala Viswanath <gunda...@gmail.com> wrote:
> Dear all,
>
> Given such vector of array.
>
> tags <- c("aaa", "ttt", "ccc", "gcc", "atn")
>
> How can I obtain a matrix corresponding to it
>
> [,1] [,2] [,3]
> [1,] 0 0 0
> [2,] 3 3 3
> [3,] 1 1 1
> [4,] 2 1 1
> [5,] 0 3 0
>
>
> In principle:
>
> 1. Number of Column in matrix = length of string (= 3)
> 2. Number of Row in matrix = length of vector ( =4).
> 3. Character "a" encode as "0",
> "c" -> "1",
> "g" -> "2",
> "t" -> "3"
> "n" -> "0"
>
> Length of strings are assumed to be uniform within the vector,
> and it can be greater than 3 (up to 40 characters).
>
> - Gundala Viswanath
> Jakarta - Indonesia
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem that you are trying to solve?
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
