Sarah:

You may not agree, but the following avoids the IMHO ugly rbind() and
separate conversion to numeric by using scan():

## first, as before..

x <- c("qwer$$12$$qwre", "ewrtr$7789$ewwe")
x <- strsplit(x, "\\$+")

## Then, instead ...

x.convert <- data.frame(scan(textConnection(unlist(x)),wh=list("a",0,"a")))

## You'll need to replace with suitable column names, of course

Cheers,
Bert


On Mon, Nov 26, 2012 at 9:00 AM, Sarah Goslee <sarah.goslee@gmail.com>wrote:

> You state that you want "$$$" as the separator, but your example has
> "$$" and "$" so  I'm assuming an indeterminate number of consecutive
> $.
>
> x <- c("qwer$$12$$qwre", "ewrtr$7789$ewwe")
> x <- strsplit(x, "\\$+")
> x <- do.call(rbind, x)
> x <- data.frame(x, stringsAsFactors = FALSE)
> x$X2 <- as.numeric(x$X2)
>
> I've also made some assumptions about what you want the output to be
> like, since you didn't specify, and broken it into as many steps as
> possible so that you can look at what functions I used and read the
> help files.
>
> Sarah
>
> On Mon, Nov 26, 2012 at 5:51 AM, arunkumar1111 <akpbond007@gmail.com>
> wrote:
> > Hi
> >
> > I have set of records seperated by a separator say "$$$" i want to get
> the
> > values in a dataframe.
> >
> > eq
> >
> > qwer$$12$$qwre
> > ewrtr$7789$ewwe
> >
> > I want the output as\
> >
> > V1       V2    V3
> > qwer 12 qwre
> > ewrtr  7789 ewwwe
> >
> >
> >
> > Please help me
> >
> >
>
>
> --
> Sarah Goslee
> http://www.functionaldiversity.org
>
> ______________________________________________
> 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.
>



-- 

Bert Gunter
Genentech Nonclinical Biostatistics

Internal Contact Info:
Phone: 467-7374
Website:
http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm

	[[alternative HTML version deleted]]


