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.
_______________________________________________
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.