I would like to obtain a matrix
2010/5/8 Tal Galili <tal.gal...@gmail.com>:
> Here is one way for doing that:
> nombreL <- c("Alvaro Perez", "Sebastian García","Sebastian 2", "Luis Gomez",
> "Jorge Rial", "Ronaldo Apud", "Ana María Bianco")
> nombreC <- c("Alvaro", "Ana","Jorge","Ronaldo", "Sebastian")
> func1 <- function(x)
> {
> list(times = length(grep(x, noquote(nombreL))), where = (grep(x,
> noquote(nombreL))))
> }
> a <- lapply(noquote(nombreC), func1)
> names(a) <- nombreC
> a
>
>
> ----------------Contact
> Details:-------------------------------------------------------
> Contact me: tal.gal...@gmail.com | 972-52-7275845
> Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) |
> www.r-statistics.com (English)
> ----------------------------------------------------------------------------------------------
>
>
>
>
> On Sat, May 8, 2010 at 11:57 AM, Sebastian Kruk <residuo.so...@gmail.com>
> wrote:
>>
>> One last thing, i want to know in which position was founded every name.
>>
>> 2010/5/8 Tal Galili <tal.gal...@gmail.com>:
>> > There you go:
>> >
>> > nombreL <- c("Alvaro Perez", "Sebastian García","Sebastian 2", "Luis
>> > Gomez",
>> > "Jorge Rial", "Ronaldo Apud", "Ana María Bianco")
>> > nombreC <- c("Alvaro", "Ana","Jorge","Ronaldo", "Sebastian")
>> > func1 <- function(x)
>> > {
>> > length(grep(x, noquote(nombreL)))
>> > }
>> > a <- lapply(noquote(nombreC), func1)
>> > names(a) <- nombreC
>> > a
>> >
>> >
>> >
>> >
>> > ----------------Contact
>> > Details:-------------------------------------------------------
>> > Contact me: tal.gal...@gmail.com | 972-52-7275845
>> > Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) |
>> > www.r-statistics.com (English)
>> >
>> > ----------------------------------------------------------------------------------------------
>> >
>> >
>> >
>> >
>> > On Sat, May 8, 2010 at 11:22 AM, Sebastian Kruk
>> > <residuo.so...@gmail.com>
>> > wrote:
>> >>
>> >> 2010/5/8 Tal Galili <tal.gal...@gmail.com>:
>> >> > Hi Sebastian,
>> >> > Please check if this does what you want:
>> >> >
>> >> > nombreL <- c("Alvaro Perez", "Sebastián García", "Luis Gomez", "Jorge
>> >> > Rial",
>> >> > "Ronaldo Apud", "Ana María Bianco")
>> >> > nombreC <- c("Alvaro", "Ana","Jorge","Ronaldo", "Sebastian")
>> >> > func1 <- function(x)
>> >> > {
>> >> > grep(x, noquote(nombreL))
>> >> > }
>> >> > lapply(noquote(nombreC), func1)
>> >>
>> >> Hi Tal, I just want to count how many time appear any element of
>> >> nombreC in nombreL.
>> >>
>> >> Alvaro appear once in nombreL so cuenta = 1
>> >> Ana appear 0 times in nombreL so cuenta = 1
>> >> Jorge appear 0 times in nombreL so cuenta = 1
>> >> Ronaldo appear 0 times in nombreL so cuenta = 1
>> >> Sebastian appear once in nombreL so cuenta = 1+1
>> >>
>> >> Sebastian.
>> >
>> >
>
>
______________________________________________
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.
