I have a file with a data in columnar format like below: probeID rc_AI104113_at rc_AI178259_f_at rc_AI179134_i_at rc_AI179134_f_at rc_AI104113_at rc_AA819429_f_at How can I rewrite it in the format below: 'rc_AI104113_at', 'rc_AI178259_f_at', 'rc_AI179134_i_at', 'rc_AI179134_f_at', 'rc_AI104113_at', 'rc_AA819429_f_at' Is there any function to do this. I can do it by using iterative paste but I just want to avoid it for efficiency reason as number of probes is very high. Thanks --Fahim [[alternative HTML version deleted]]
Hi, On Wed, Mar 9, 2011 at 3:35 PM, Fahim Mohammad <fahim.md at gmail.com> wrote:> I have a file with a data in columnar format like below: > > probeID > rc_AI104113_at > rc_AI178259_f_at > rc_AI179134_i_at > rc_AI179134_f_at > rc_AI104113_at > rc_AA819429_f_at > > How can I rewrite it in the ?format below: > 'rc_AI104113_at', 'rc_AI178259_f_at', 'rc_AI179134_i_at', > 'rc_AI179134_f_at', 'rc_AI104113_at', 'rc_AA819429_f_at'It's not clear to me what exactly this format is or what you want to do with it (but see below)> > > Is there any function to do this. I can do it by using iterative paste but > I just want to avoid it for efficiency reason as number of probes is very > high.paste() doesn't care how many probes you have: dat <- read.table(textConnection("probeID rc_AI104113_at rc_AI178259_f_at rc_AI179134_i_at rc_AI179134_f_at rc_AI104113_at rc_AA819429_f_at"), header=TRUE) closeAllConnections() cat(paste("'", dat$probeID, "'", sep="")) Best, Ista> > Thanks > > --Fahim > > ? ? ? ?[[alternative HTML version deleted]] > > ______________________________________________ > R-help at 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. >-- Ista Zahn Graduate student University of Rochester Department of Clinical and Social Psychology http://yourpsyche.org
Hi:
I'm not quite sure what you have in mind, but...
Input data strdat.txt:
probeID
rc_AI104113_at
rc_AI178259_f_at
rc_AI179134_i_at
rc_AI179134_f_at
rc_AI104113_at
rc_AA819429_f_at
strg <- paste(scan('strdat.txt', what = '', skip = 1),
collapse = ',')
strg
[1]
"rc_AI104113_at,rc_AI178259_f_at,rc_AI179134_i_at,rc_AI179134_f_at,rc_AI104113_at,rc_AA819429_f_at"
# Try to get single quotes surrounding each string
strsep <- paste(scan('strdat.txt', what = '', skip = 1))
Read 6 items> strsep
[1] "rc_AI104113_at" "rc_AI178259_f_at"
"rc_AI179134_i_at"
"rc_AI179134_f_at"
[5] "rc_AI104113_at" "rc_AA819429_f_at"
strsep2 <- sapply(strsep, function(x) paste("'", x,
"'", sep = ""))
paste(strsep2, collapse = ',')
[1]
"'rc_AI104113_at','rc_AI178259_f_at','rc_AI179134_i_at','rc_AI179134_f_at','rc_AI104113_at','rc_AA819429_f_at'"
HTH,
Dennis
On Wed, Mar 9, 2011 at 12:35 PM, Fahim Mohammad <fahim.md@gmail.com>
wrote:
> I have a file with a data in columnar format like below:
>
> probeID
> rc_AI104113_at
> rc_AI178259_f_at
> rc_AI179134_i_at
> rc_AI179134_f_at
> rc_AI104113_at
> rc_AA819429_f_at
>
> How can I rewrite it in the format below:
> 'rc_AI104113_at', 'rc_AI178259_f_at',
'rc_AI179134_i_at',
> 'rc_AI179134_f_at', 'rc_AI104113_at',
'rc_AA819429_f_at'
>
>
> Is there any function to do this. I can do it by using iterative paste but
> I just want to avoid it for efficiency reason as number of probes is very
> high.
>
> Thanks
>
> --Fahim
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
>
[[alternative HTML version deleted]]