
Oi Mauro, O problema e' que o codigo contempla apenas um digito... corrigindo contemplar tres digitos. Saliento que o co'digo e' rustico, talvez nao funcione para outras situacoes... a <- readLines("dados.txt") id.a <- which(substr(a,1,2)=='A.') nch <- nchar(a) tab <- sapply(0:6, function(j) as.integer(gsub('.', '', substring(a[id.a+j], nch[id.a+j]-2), fix=T))) dimnames(tab) <- list(a[id.a-1], LETTERS[1:7]) tab aT+, Elias. On 27/08/14 14:24, Mauro Sznelwar wrote:
Eu rodei este código, deu certo quanto ao formato pedido, mas não colocou o número 13, apareceu 3 no seu lugar. Qual o motivo? 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.
_______________________________________________ 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.