Carlos
Fijate con esta función

lookforKones<-function(test)
{
 I1=seq(1,length(test),1)[test==0]
 m=((I1[2:length(I1)]-I1[1:length(I1)])-1)
sum(m*(m>=1))+(test[length(test)]>=1)
}


#EJEMPLO

M=matrix(c(
0, 0, 0, 1, 5, 0,
0, 0, 0, 0, 0, 1,
0, 1, 0, 0, 0, 0,
0, 0, 0, 1, 6, 0,
0, 0, 0, 0, 0, 0,
0, 0, 1, 4, 0, 1,
0, 7, 2, 9, 0, 1),byrow=TRUE,ncol=6)

apply(M,1,lookforKones)


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/3 Carlos Mauricio camelo charry <mauro8824@gmail.com>

> Buen día a todos
> el problema que tengo es el siguiente:
> tengo una matriz
>
> 0 0 0 1 5 0
> 0 0 0 0 0 1
> 0 1 0 0 0 0
> 0 0 0 1 6 0
> 0 0 0 0 0 0
> 0 0 1 4 0 1
> 0 7 2 9 0 1
> necesito hacer el primer conteo de números hasta que encuentre
> el primer cero.
> para la fila 1: tiene 1 y 5 son dos elementos
> fila 2: solo tiene 1 elemento
> fila 3: tiene 1
> fila 4: 1 y 6  dos elementos
> fila 5: no tiene elementos distintos de cero=0
> fila 6: tiene como primera racha 1 y 4 osea dos elementos
> fila 7: tiene 3 elementos en su primera racha
>
>
> me gustaría saber si el R tiene un comando que me haga dichos conteos. Ó
> una
> forma de cómo poder hacer estos conteos.
>
>
> Gracias por su atención
>
> --
> Carlos Mauricio Camelo Charry
>
>        [[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]]

