Try this also:
colSums(sapply(nombreC, grepl, nombreL))
On Sat, May 8, 2010 at 5: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.
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
[[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.
