[R-br] Fwd: Ajuda com vetores

Prezados, tenho a seguinte matriz de estrutura Id a1 p1 p2 p3 p4 p5 p6 p7 1 2 3 4 0 0 0 0 0 1 6 3 0 0 0 0 0 0 2 7 5 3 2 0 0 0 0 2 3 6 0 0 0 0 0 0 Preciso de uma matriz a partir desta da seguinte forma: Id a1 p 1 2 3 1 2 4 1 6 3 2 7 5 2 7 3 2 7 2 2 3 6 Ou seja, preciso gerar quantas linhas forem diferentes de 0 os p1 - p7. É possível fazendo via um apply, sem loop? Abs e obrigado -- Fernando A.B. Colugnati -- Fernando A.B. Colugnati