<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Olá Benilton.<div><br></div><div>Por favor, gostaria de tirar uma dúvida a respeito de um código que você me passou há uns dias. É esse código abaixo.</div><div><br></div><div>grupos <- unique(gsub("(.*)<a href="smb://.//d{1}$">\\.\\d{1}$</a>", "<a href="smb://1">\\1</a>", names(Pop)))<br>tabelaPorGrupo <- function(grp, dat){<br> cols <- grep(grp, names(dat))<br> Nomes <- levels(factor(c(dat[,cols[1]], dat[,cols[2]])))<br> table(factor(Pop[,cols[1]], levels=Nomes), factor(Pop[,cols[2]],<br>levels=Nomes))<br>}<br>tabelas <- lapply(grupos, tabelaPorGrupo, Pop)<br>names(tabelas) <- grupos<br>tabelas<br>
<br></div><div>post: <a href="http://r-br.2285057.n4.nabble.com/R-br-problema-com-for-loop-td4465197.html">http://r-br.2285057.n4.nabble.com/R-br-problema-com-for-loop-td4465197.html</a></div><div><br></div><div>Tenho que fazer muitos cálculos com os valores gerados por esse código e, algumas vezes, quando estou trabalhando com valores altos, há warning messages dizendo "NAs produced by integer overflow". </div><div>Um outro programador me disse que eu poderia resolver isso estocando meus valores como doubles e não como integers, e que eu teria que fazer alguma modificação nesse código para esse fim.</div><div>Você concorda e poderia me ajudar com isso?</div><div><br></div><div>obrigado,</div><div>Vitor Aguiar</div><div><br></div><div><br></div></body></html>