You need to read in the line with read.table to parse the string. The
solution assumes a dataframe .
Sent from my iPhone
On Aug 5, 2008, at 7:16, "Henrique Dallazuanna" <[EMAIL PROTECTED]>
wrote:
I think that you need:
p <- scan(textConnection(p), what = "")
On Tue, Aug 5, 2008 at 7:41 AM, Gundala Viswanath
<[EMAIL PROTECTED]> wrote:
Thanks Jim,
But how can I modify this line of yours
y <- lapply(split(x, x$V3), "[[", 8)
to suit my 'comp.ll'
I tried this but fail:
p <- "\tGene 11340 211952_at RANBP5 k= 1 LL= -970.692 "
y <- lapply(split(p, p[3]), "[[", 8)
y
list()
- Gundala Viswanath
Jakarta - Indonesia
On Tue, Aug 5, 2008 at 7:14 PM, jim holtman <[EMAIL PROTECTED]>
wrote:
Does this get you close to what you want:
x <- read.table(textConnection("Gene 11340 211952_at RANBP5 k=
1 LL= -970.692
+ Gene 11340 211952_at RANBP5 k= 2 LL= -965.35
+ Gene 11340 211952_at RANBP5 k= 3 LL= -963.669
+ Gene 12682 213301_x_at TRIM24 k= 1 LL= -948.527
+ Gene 12682 213301_x_at TRIM24 k= 2 LL= -947.275
+ Gene 12682 213301_x_at TRIM24 k= 3 LL= -947.379
+ Gene 13764 214385_s_at AI521646 k= 1 LL= -827.86
+ Gene 13764 214385_s_at AI521646 k= 2 LL= -777.756
+ Gene 13764 214385_s_at AI521646 k= 3 LL= -812.083 "))
y <- lapply(split(x, x$V3), "[[", 8)
y
$`211952_at`
[1] -970.692 -965.350 -963.669
$`213301_x_at`
[1] -948.527 -947.275 -947.379
$`214385_s_at`
[1] -827.860 -777.756 -812.083
On Tue, Aug 5, 2008 at 3:09 AM, Gundala Viswanath <[EMAIL PROTECTED]
> wrote:
Hi all,
I have the following data in which I want to parse and
store them in a list
__DATA__
print(comp.ll)
[1] "\tGene 11340 211952_at RANBP5 k= 1 LL= -970.692 "
[2] "\tGene 11340 211952_at RANBP5 k= 2 LL= -965.35 "
[3] "\tGene 11340 211952_at RANBP5 k= 3 LL= -963.669 "
[4] "\tGene 12682 213301_x_at TRIM24 k= 1 LL= -948.527 "
[5] "\tGene 12682 213301_x_at TRIM24 k= 2 LL= -947.275 "
[6] "\tGene 12682 213301_x_at TRIM24 k= 3 LL= -947.379 "
[7] "\tGene 13764 214385_s_at AI521646 k= 1 LL= -827.86 "
[8] "\tGene 13764 214385_s_at AI521646 k= 2 LL= -777.756 "
[9] "\tGene 13764 214385_s_at AI521646 k= 3 LL= -812.083 "
__END__
I expect to get this kind of data structure:
wanted_output
[['211952_at']]
$ll.list
[1] -970.692 -965.35 -963.669
[['213301_x_at']]
$ll.list
[1] -948.527 -947.275 -947.379
etc.
How can I achieve that?
I am stuck with the following construct
__BEGIN__
comp.ll <- model_all[grep("Gene .* k=.*", model_all)]
print(comp.ll)
patt <- "Gene \\d+ ([\\w-/]+) [\\w-]+ k= (\\d) LL= ([-]\\d+\.\
\d+)"
nresk <- unlist(strsplit(sub(patt, "\\1 \\2 \
\3",comp.ll,perl=TRUE)," "))
__END__
- 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.
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
______________________________________________
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.
