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]]