?sub --------------------------------------------------------------------------- Jeff Newmiller The ..... ..... Go Live... DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go... Live: OO#.. Dead: OO#.. Playing Research Engineer (Solar/Batteries O.O#. #.O#. with /Software/Embedded Controllers) .OO#. .OO#. rocks...1k --------------------------------------------------------------------------- Sent from my phone. Please excuse my brevity.
CompBiol ATL <along...@gmail.com> wrote: >#I want to remove '_alpha' in a vector of strings >myInput = c( "afg3_alpha", "alg12_alpha", "dbp3_alpha", "elp4_alpha", > "fob1_alpha", "gpr1_alpha") > >#my current solution >tmpsplit = strsplit(myInput, '_') >tmp = NA >for (item in tmpsplit){ > tmp = c(tmp, item[1]) >} >results1 = tmp[-1]; >#this is what I need, but I want a better solution. > >#Here is what I come up with, but it is pretty awkward >tmp3 = lapply(myInput, FUN=function(x){strsplit(x, '_')[[1]][1]}) >results2 = unlist(tmp3) > >#Please help me revise the above loop. Thanks, -- Hong > > [[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. ______________________________________________ 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.