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.Galili at 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.solow at gmail.com>
wrote:
2010/5/8 Tal Galili <tal.galili at 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.