Sebastian

Esto deberia funcionar.

contar<-function(a,l) {length(grep(a,l))}
nlargo=c('julio','carlos','raul','julio','marta','marta','raul','carmen')
ncorto=c('marta','julio','raul','carmen')
cbind(ncorto,as.vector(lapply(ncorto,contar,nlargo)))


Prof. Julio Di Rienzo
Estadística y Biometría
FCA- U.N. Córdoba
IBS CC Member
http://sites.google.com/site/juliodirienzo
"Biometry, the active pursuit of biological
knowledge by quantitative methods."
(R.A. Fisher, 1948)



2010/5/8 Jorge Ivan Velez <jorgeivanvelez@gmail.com>

> Al parecer aqui hay otra solucion:
>
> http://r.789695.n4.nabble.com/Count-cases-in-a-list-td2135932.html#a2135932
>
> --JIV
>
>
>
> 2010/5/8 Jorge Ivan Velez <>
>
> > Buenos dias Sebastian,
> >
> > Puesto que lo que necesitas es el numero de entradas en las que ambos
> > vectores coinciden, podrias explorar las siguientes dos opciones:
> >
> > set.seed(123)
> >
> > x <- rpois(50, 6)
> >
> > x
> >
> > y <- c(1, 3, 7)
> >
> > y
> >
> >
> > # Opcion 1
> >
> > sum(y %in% x)
> >
> >
> > # Opcion 2
> >
> > length(intersect(x, y))
> >
> > Saludos,
> > Jorge Ivan Velez
> >
> >
> > 2010/5/8 Sebastian Kruk <>
> >
> > Buenas noches, tengo dos vectores con nombres. El primero es largo,
> >> nombreL, y el segundo corto, nombreC. Quiero contar cuantas veces
> >> aparece alguno de los nombres del vector corto en el largo.
> >>
> >> Lo que estoy haciendo es lo siguiente:
> >>
> >> cuenta <- 0
> >> topL <- length(nombreL)
> >> topC <- length(nombreC)
> >> for (i in 1:topL) {
> >>                      for (j in 1:topC) {
> >>                                            k <-
> >> grep(noquote(nombreL[i]),nombreC[j])
> >>                                            if (length(k) > 0){
> >>
> >> cuenta <- cuenta + 1
> >>                                   }
> >>                                             }
> >>
> >> żHay alguna forma de vectorizarlo?
> >>
> >> Saludos,
> >>
> >> Sebastián.
> >>
> >> _______________________________________________
> >> R-help-es mailing list
> >> R-help-es@r-project.org
> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
> >>
> >
> >
>
>        [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

	[[alternative HTML version deleted]]

