solucao "rustica"...suponha que seu arquivo e' "dados.txt"

a <- readLines("dados.txt")
id.a <- which(substr(a,1,2)=='A.')
nch <- nchar(a)
tab <- sapply(0:6, function(j)
as.integer(substring(a[id.a+j], nch[id.a+j])))
dimnames(tab) <- list(a[id.a-1], LETTERS[1:7])
tab

aT+,
Elias.

On 27/08/14 05:26, jose gomes de souza filho Gomes wrote:

Boa Noite,

Tenho o seguinte banco de dados em txt( em anexo):

JOSÉ
A................................. 2
B.....................................0
C...................................0
D.................................... 6
E.......................0
F............................. 1
G................................ 13
MARIA
A................................. 3
B.....................................0
C...................................0
D.................................... 1
E.......................0
F............................. 1
G................................ 6
PEDRO
A.................................0
B.....................................
C...................................0
D...................................0
E.......................0
F.............................0
G................................ 3

Gostaria que ficasse assim:
Nome     A     B     C     D     E     G     F
JOSÉ     2     0     0     6     0     1     13
MARIA     3     0     0     1     0     1     6
PEDRO     0     0     0     0     0     0     3

Como fazer isso?

Att,

Gomes
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.