- R-br - DINF UFPR

amostragem 3D dados espaciais
by Samuel Carvalho 21 Fev '13

21 Fev '13

Boa noite caros membros da r-br Por gentileza, alguém saberia me dizer como amostrar um grid espacial em 3D? Tentei usar a função spsample do pacote sp, porém a mesma me parece que amostra apenas grid's em duas dimensoes. Obg, Samuel ==================================== Samuel P. C. Carvalho Mestre em Ciências Florestais [UFLA] Doutorando em Recursos Florestais [ESALQ/USP] =============================================

3 2

função summary das clinicas
by alanarocha＠sapo.pt 21 Fev '13

21 Fev '13

Bom dia, O exemplo do Rodrigo é optimo mas o problema é que ao todo são 37 clinicas... outra duvida eu preciso que as estatisticas do meu banco de dados sejam feitas não clinica a clinica mas sim de ano a ano para todas. o que tenho de modificar na função summary() para aparecer por exemplo mindoismiloito mindoismilnove etc por baixo os valores minimos dos minimos de cada ano. ou então summary normal e depois imprimir na primeira linha os cabeçalhos (nomes) e por coluna o nome da estatistica e a frente os resultados das estatisticas de cada ano. exemplo: doismiloito doismilnove doismildez doismilonze doismildoze min val val val val val max val val val val val eu não me tinha esplicado bem. Cumprimentos Ana Rocha

2 1

PerformanceAnalytics
by Marcos Vagner Macedo 20 Fev '13

20 Fev '13

Boa noite, Alguém com experiencia no pacote PerformanceAnalytics que pode me ajudar com algumas dúvidas? Um abraço, Marcos Macedo

2 1

função summary quase resolvido
by alanarocha＠sapo.pt 20 Fev '13

20 Fev '13

Olá, agora já me aparecem as estatísticas. Mas as clinicas não estão na mesma ordem das que estão no ficheiro. há alguma forma de as coloccar por ordem e em cada linha o nome da clinica e os valores dos 5 anos? setwd("G:/SIN/Users/Ana Rua/indicadores_ano") dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") head(dados) Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. setwd("G:/SIN/Users/Ana Rua/indicadores_ano") dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") head(dados) summary(dados) > setwd("G:/SIN/Users/Ana Rua/indicadores_ano") > > dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") Warning message: In read.table("indicadores_08to12.csv", header = TRUE, sep = ";") : incomplete final line found by readTableHeader on 'indicadores_08to12.csv' > head(dados) [1] Clinica..2008..2009..2010..2011..2012..PBarca.0.70.0.72.0.72.0.76.0.77.Braga.0.74.0.75.0.78.0.76.0.73.Fafe.0.74.0.75.0.74.0.72.0.76.Maia.0.70.0.75.0.71.0.76.0.80.VNGaia.0.80.0.83.0.84.0.84.0.81.SMFeira.0.73.0.75.0.74.0.78.0.75.Viseu.0.71.0.68.0.78.0.76.0.76.Guarda.0.69.0.64.0.69.0.74.0.81.Covilhã.0.70.0.71.0.77.0.78.0.79.Coimbra.0.80.0.77.0.77.0.77.0.77.Abrantes.0.81.0.83.0.82.0.80.0.81.Entroncamento.0.68.0.74.0.73.0.75.0.75.Santarém.0.76.0.75.0.73.0.82.0.83.TVedras.0.77.0.69.0.75.0.78.0.81.VFXira.0.74.0.71.0.76.0.79.0.79.Alverca.0.79.0.76.0.80.0.84.0.80.Amadora.0.69.0.70.0.73.0.75.0.75.Lumiar.0.69.0.71.0.72.0.75.0.76.DAD.....0.80.Restelo.0.72.0.71.0.70.0.75.0.74.CUF.0.64.0.66.0.68.0.73.0.71.SAMS.0.82.0.80.0.83.0.85.0.81.APDP.....0.57.Montijo.0.74.0.76.0.71.0.74.0.85.Barreiro.0.77.0.78.0.79.0.77.0.78.Almada.0.75.0.75.0.72.0.76.0.79.Seixal.0.76.0.75.0.77.0.81.0.81.Setúbal.0.71.0.76.0.79.0.79.0.77.Portalegre.0.74.0.78.0.81.0.81.0.76.Évora.0.82.0.81.0.81.0.78.0.81.Grãndola.0.76.0.76.0.7 8.0.78.0.80.Beja.0.71.0.76.0.74.0.73.0.69.Tavira.0.63.0.70.0.70.0.65.0.71.Faro.0.61.0.74.0.79.0.77.0.78.Portimão.0.63.0.75.0.79.0.78.0.82.Funchal..0.68.0.74.0.72.0.74.Machico.....0.73..Clinica..2008....2009 [2] X2010.2011 [3] X2012.PBarca.0.70.0.72.0.72.0.76.0.77.Braga.0.74.0.75.0.78.0.76.0.73.Fafe.0.74.0.75.0.74.0.72.0.76.Maia.0.70.0.75.0.71.0.76.0.80.VNGaia.0.80.0.83.0.84.0.84.0.81.SMFeira.0.73.0.75.0.74.0.78.0.75.Viseu.0.71.0.68.0.78.0.76.0.76.Guarda.0.69.0.64.0.69.0.74.0.81.Covilhã.0.70.0.71.0.77.0.78.0.79.Coimbra.0.80.0.77.0.77.0.77.0.77.Abrantes.0.81.0.83.0.82.0.80.0.81.Entroncamento.0.68.0.74.0.73.0.75.0.75.Santarém.0.76.0.75.0.73.0.82.0.83.TVedras.0.77.0.69.0.75.0.78.0.81.VFXira.0.74.0.71.0.76.0.79.0.79.Alverca.0.79.0.76.0.80.0.84.0.80.Amadora.0.69.0.70.0.73.0.75.0.75.Lumiar.0.69.0.71.0.72.0.75.0.76.DAD.....0.80.Restelo.0.72.0.71.0.70.0.75.0.74.CUF.0.64.0.66.0.68.0.73.0.71.SAMS.0.82.0.80.0.83.0.85.0.81.APDP.....0.57.Montijo.0.74.0.76.0.71.0.74.0.85.Barreiro.0.77.0.78.0.79.0.77.0.78.Almada.0.75.0.75.0.72.0.76.0.79.Seixal.0.76.0.75.0.77.0.81.0.81.Setúbal.0.71.0.76.0.79.0.79.0.77.Portalegre.0.74.0.78.0.81.0.81.0.76.Évora.0.82.0.81.0.81.0.78.0.81.Grãndola.0.76.0.76.0.78.0.78.0.80.Beja.0.71.0.76.0.74.0 .73.0.69.Tavira.0.63.0.70.0.70.0.65.0.71.Faro.0.61.0.74.0.79.0.77.0.78.Portimão.0.63.0.75.0.79.0.78.0.82.Funchal..0.68.0.74.0.72.0.74.Machico.....0.73.. <0 rows> (or 0-length row.names) > > Type 'contributors()' for more information and Error: unexpected string constant in "Type 'contributors()'" > 'citation()' on how to cite R or R packages in publications. Error: unexpected symbol in "'citation()' on" > > Type 'demo()' for some demos, 'help()' for on-line help, or Error: unexpected string constant in "Type 'demo()'" > 'help.start()' for an HTML browser interface to help. Error: unexpected 'for' in "'help.start()' for" > Type 'q()' to quit R. Error: unexpected string constant in "Type 'q()'" > setwd("G:/SIN/Users/Ana Rua/indicadores_ano") dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") head(dados) summary(dados) > setwd("G:/SIN/Users/Ana Rua/indicadores_ano") > > dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") > head(dados) clinica doismiloito doismilnove doismildez doismilonze doismildoze 1 PBarca 0.70 0.72 0.72 0.76 0.77 2 Braga 0.74 0.75 0.78 0.76 0.73 3 Fafe 0.74 0.75 0.74 0.72 0.76 4 Maia 0.70 0.75 0.71 0.76 0.80 5 VNGaia 0.80 0.83 0.84 0.84 0.81 6 SMFeira 0.73 0.75 0.74 0.78 0.75 > > Type 'contributors()' for more information and Error: unexpected string constant in "Type 'contributors()'" > 'citation()' on how to cite R or R packages in publications. Error: unexpected symbol in "'citation()' on" > > Type 'demo()' for some demos, 'help()' for on-line help, or Error: unexpected string constant in "Type 'demo()'" > 'help.start()' for an HTML browser interface to help. Error: unexpected 'for' in "'help.start()' for" > Type 'q()' to quit R. Error: unexpected string constant in "Type 'q()'" > > setwd("G:/SIN/Users/Ana Rua/indicadores_ano") > > dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") > head(dados) clinica doismiloito doismilnove doismildez doismilonze doismildoze 1 PBarca 0.70 0.72 0.72 0.76 0.77 2 Braga 0.74 0.75 0.78 0.76 0.73 3 Fafe 0.74 0.75 0.74 0.72 0.76 4 Maia 0.70 0.75 0.71 0.76 0.80 5 VNGaia 0.80 0.83 0.84 0.84 0.81 6 SMFeira 0.73 0.75 0.74 0.78 0.75 > summary(dados) clinica doismiloito doismilnove doismildez Abrantes: 1 Min. :0.6100 Min. :0.6400 Min. :0.6800 Almada : 1 1st Qu.:0.7000 1st Qu.:0.7100 1st Qu.:0.7225 Alverca : 1 Median :0.7400 Median :0.7500 Median :0.7550 Amadora : 1 Mean :0.7288 Mean :0.7409 Mean :0.7568 APDP : 1 3rd Qu.:0.7600 3rd Qu.:0.7600 3rd Qu.:0.7900 Barreiro: 1 Max. :0.8200 Max. :0.8300 Max. :0.8400 (Other) :31 NA's :4 NA's :3 NA's :3 doismilonze doismildoze Min. :0.6500 Min. :0.5700 1st Qu.:0.7500 1st Qu.:0.7500 Median :0.7700 Median :0.7800 Mean :0.7697 Mean :0.7708 3rd Qu.:0.7875 3rd Qu.:0.8100 Max. :0.8500 Max. :0.8500 NA's :3 > > setwd("G:/SIN/Users/Ana Rua/indicadores_ano") Error: unexpected '>' in ">" > > Error: unexpected '>' in ">" > > dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") Error: unexpected '>' in ">" > Warning message: Error: unexpected symbol in "Warning message" > In read.table("indicadores_08to12.csv", header = TRUE, sep = ";") : Error: unexpected symbol in "In read.table" > incomplete final line found by readTableHeader on 'indicadores_08to12.csv' Error: unexpected symbol in " incomplete final" > > head(dados) Error: unexpected '>' in ">" > [1] > Clinica..2008..2009..2010..2011..2012..PBarca.0.70.0.72.0.72.0.76.0.77.Braga.0.74.0.75.0.78.0.76.0.73.Fafe.0.74.0.75.0.74.0.72.0.76.Maia.0.70.0.75.0.71.0.76.0.80.VNGaia.0.80.0.83.0.84.0.84.0.81.SMFeira.0.73.0.75.0.74.0.78.0.75.Viseu.0.71.0.68.0.78.0.76.0.76.Guarda.0.69.0.64.0.69.0.74.0.81.Covilhã.0.70.0.71.0.77.0.78.0.79.Coimbra.0.80.0.77.0.77.0.77.0.77.Abrantes.0.81.0.83.0.82.0.80.0.81.Entroncamento.0.68.0.74.0.73.0.75.0.75.Santarém.0.76.0.75.0.73.0.82.0.83.TVedras.0.77.0.69.0.75.0.78.0.81.VFXira.0.74.0.71.0.76.0.79.0.79.Alverca.0.79.0.76.0.80.0.84.0.80.Amadora.0.69.0.70.0.73.0.75.0.75.Lumiar.0.69.0.71.0.72.0.75.0.76.DAD.....0.80.Restelo.0.72.0.71.0.70.0.75.0.74.CUF.0.64.0.66.0.68.0.73.0.71.SAMS.0.82.0.80.0.83.0.85.0.81.APDP.....0.57.Montijo.0.74.0.76.0.71.0.74.0.85.Barreiro.0.77.0.78.0.79.0.77.0.78.Almada.0.75.0.75.0.72.0.76.0.79.Seixal.0.76.0.75.0.77.0.81.0.81.Setúbal.0.71.0.76.0.79.0.79.0.77.Portalegre.0.74.0.78.0.81.0.81.0.76.Évora.0.82.0.81.0.81.0.78.0.81.Grãndola.0.76.0.76.0 > .78.0.78.0.80.Beja.0.71.0.76.0.74.0.73.0.69.Tavira.0.63.0.70.0.70.0.65.0.71.Faro.0.61.0.74.0.79.0.77.0.78.Portimão.0.63.0.75.0.79.0.78.0.82.Funchal..0.68.0.74.0.72.0.74.Machico.....0.73..Clinica..2008....2009 Error: unexpected '[' in "[" > [2] X2010.2011 Error: unexpected '[' in "[" > [3] > X2012.PBarca.0.70.0.72.0.72.0.76.0.77.Braga.0.74.0.75.0.78.0.76.0.73.Fafe.0.74.0.75.0.74.0.72.0.76.Maia.0.70.0.75.0.71.0.76.0.80.VNGaia.0.80.0.83.0.84.0.84.0.81.SMFeira.0.73.0.75.0.74.0.78.0.75.Viseu.0.71.0.68.0.78.0.76.0.76.Guarda.0.69.0.64.0.69.0.74.0.81.Covilhã.0.70.0.71.0.77.0.78.0.79.Coimbra.0.80.0.77.0.77.0.77.0.77.Abrantes.0.81.0.83.0.82.0.80.0.81.Entroncamento.0.68.0.74.0.73.0.75.0.75.Santarém.0.76.0.75.0.73.0.82.0.83.TVedras.0.77.0.69.0.75.0.78.0.81.VFXira.0.74.0.71.0.76.0.79.0.79.Alverca.0.79.0.76.0.80.0.84.0.80.Amadora.0.69.0.70.0.73.0.75.0.75.Lumiar.0.69.0.71.0.72.0.75.0.76.DAD.....0.80.Restelo.0.72.0.71.0.70.0.75.0.74.CUF.0.64.0.66.0.68.0.73.0.71.SAMS.0.82.0.80.0.83.0.85.0.81.APDP.....0.57.Montijo.0.74.0.76.0.71.0.74.0.85.Barreiro.0.77.0.78.0.79.0.77.0.78.Almada.0.75.0.75.0.72.0.76.0.79.Seixal.0.76.0.75.0.77.0.81.0.81.Setúbal.0.71.0.76.0.79.0.79.0.77.Portalegre.0.74.0.78.0.81.0.81.0.76.Évora.0.82.0.81.0.81.0.78.0.81.Grãndola.0.76.0.76.0.78.0.78.0.80.Beja.0.71.0.76.0.74 > .0.73.0.69.Tavira.0.63.0.70.0.70.0.65.0.71.Faro.0.61.0.74.0.79.0.77.0.78.Portimão.0.63.0.75.0.79.0.78.0.82.Funchal..0.68.0.74.0.72.0.74.Machico.....0.73.. Error: unexpected '[' in "[" > <0 rows> (or 0-length row.names) Error: unexpected '<' in "<" > > Error: unexpected '>' in ">" > > Type 'contributors()' for more information and Error: unexpected '>' in ">" > Error: unexpected string constant in "Type 'contributors()'" Error: unexpected symbol in "Error: unexpected string" > > 'citation()' on how to cite R or R packages in publications. Error: unexpected '>' in ">" > Error: unexpected symbol in "'citation()' on" Error: unexpected symbol in "Error: unexpected symbol" > > Error: unexpected '>' in ">" > > Type 'demo()' for some demos, 'help()' for on-line help, or Error: unexpected '>' in ">" > Error: unexpected string constant in "Type 'demo()'" Error: unexpected symbol in "Error: unexpected string" > > 'help.start()' for an HTML browser interface to help. Error: unexpected '>' in ">" > Error: unexpected 'for' in "'help.start()' for" Error: unexpected string constant in "Error: unexpected 'for'" > > Type 'q()' to quit R. Error: unexpected '>' in ">" > Error: unexpected string constant in "Type 'q()'" Error: unexpected symbol in "Error: unexpected string" > > Error: unexpected '>' in ">" setwd("G:/SIN/Users/Ana Rua/indicadores_ano") dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") head(dados) clinica doismiloito doismilnove doismildez doismilonze doismildoze 1 PBarca 0.70 0.72 0.72 0.76 0.77 2 Braga 0.74 0.75 0.78 0.76 0.73 3 Fafe 0.74 0.75 0.74 0.72 0.76 4 Maia 0.70 0.75 0.71 0.76 0.80 5 VNGaia 0.80 0.83 0.84 0.84 0.81 6 SMFeira 0.73 0.75 0.74 0.78 0.75 summary(dados) clinica doismiloito doismilnove doismildez Abrantes: 1 Min. :0.6100 Min. :0.6400 Min. :0.6800 Almada : 1 1st Qu.:0.7000 1st Qu.:0.7100 1st Qu.:0.7225 Alverca : 1 Median :0.7400 Median :0.7500 Median :0.7550 Amadora : 1 Mean :0.7288 Mean :0.7409 Mean :0.7568 APDP : 1 3rd Qu.:0.7600 3rd Qu.:0.7600 3rd Qu.:0.7900 Barreiro: 1 Max. :0.8200 Max. :0.8300 Max. :0.8400 (Other) :31 NA's :4 NA's :3 NA's :3 doismilonze doismildoze Min. :0.6500 Min. :0.5700 1st Qu.:0.7500 1st Qu.:0.7500 Median :0.7700 Median :0.7800 Mean :0.7697 Mean :0.7708 3rd Qu.:0.7875 3rd Qu.:0.8100 Max. :0.8500 Max. :0.8500 NA's :3 cumprimentos Ana

3 2

Soundex - Marcelino
by Fátima Lima Paula 20 Fev '13

20 Fev '13

Olá Daniel Marcelino. Estou escrevendo meu artigo e preciso saber se existe algum endereço em que se possa obter o Soundex-BR que você criou e me passou há algum tempo. Eu gostaria de citá-lo. Obrigada Fátima

1 0

Step GLM - remover valores ausentes?
by Elisa Seyboth 20 Fev '13

20 Fev '13

Olá! Estou tentando fazer uma seleção de GLMs através da função step(). Porém, ocorre o seguinte erro: Erro em step(M1) : Número de linhas em uso mudou: remover valores ausentes? Acho que ele poderia estar relacionado aos NAs presentes na tabela, mas eles já haviam sido eliminados da tabela a ser utilizada no primeiro modelo (M1) com a função na.omit(). Teriam alguma sugestão? Desde já agradeço, Elisa. Oc. Elisa Seyboth Mestranda em Oceanografia Biológica Laboratório de Tartarugas e Mamíferos Marinhos Universidade Federal do Rio Grande - FURG Tel.: (53) 32336537 / 81093713

2 2

função sumary do R
by alanarocha＠sapo.pt 20 Fev '13

20 Fev '13

Boa tarde, eu estou a trabalhar com as estatisticas descritivas no R. a leitura do ficheiro não deu erros mas a função sumary não faz nada. código: setwd("G:/SIN/Users/Ana Rua/indicadores_ano") dados<-read.table("indicadores_08to12.csv",header=TRUE,sep=";") head(dados) Clinica X2008 X2009 X2010 X2011 X2012 1 PBarca 70% 72% 72% 76% 77% 2 Braga 74% 75% 78% 76% 73% 3 Fafe 74% 75% 74% 72% 76% 4 Maia 70% 75% 71% 76% 80% 5 VNGaia 80% 83% 84% 84% 81% 6 SMFeira 73% 75% 74% 78% 75% summary(dados) Clinica X2008 X2009 X2010 X2011 X2012 Abrantes: 1 74% : 5 75% : 8 74% : 4 78% : 6 81% : 7 Almada : 1 : 4 76% : 5 79% : 4 76% : 5 76% : 4 Alverca : 1 69% : 3 71% : 4 : 3 75% : 4 80% : 4 Amadora : 1 70% : 3 : 3 72% : 3 : 3 75% : 3 APDP : 1 71% : 3 68% : 2 73% : 3 77% : 3 77% : 3 Barreiro: 1 76% : 3 70% : 2 77% : 3 72% : 2 79% : 3 (Other) :31 (Other):16 (Other):13 (Other):17 (Other):14 (Other):13 porque aparece o X nas no nome das variaveis? e não percebo porque o sumary apresenta isto. Cumprimentos Ana Rocha

4 3

Testando frequências de distribuição normal usando o pacote MASS
by ASANTOS 19 Fev '13

19 Fev '13

Bom tarde Pessoal, Estou tentando testar frequências de distribuição normal para um vetor com 100,000 valores com o pacote MASS, o problema é que quando faço o teste de Qui quadrado entre a distribuição empírica o teste não funciona: Erro em chisq.test(x = table(emp), y = table(est)) : 'x' e 'y' devem ter ao menos 2 níveis Quando faço para binomial negativa funciona, mas para distribuição normal não. Alguém teria uma outra solução, segue CRM: require(MASS) res<-rnorm(100000)### Com 100,000 valores não posso usar shapiro.test ( k <- fitdistr(res,"normal")) par <- k$estimate (md <- par[1])#Média (ep <- par[2])#sd (N <- length(res)) est <-N*dnorm(res,mean=md,sd=ep) ## Estimativas ##Teste Chi - Quadrado para valiar a significância da distribuição fecdf <- ecdf(res) ###ecdf- Função de distribuição cumulativa empírica knotsX <- knots(fecdf) emp <- fecdf(c(knotsX,Inf)) chisq.test(x=table(emp),y=table(est))## Teste de Chi quadrado Obrigado, -- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos(a)cas.ifmt.edu.br ======================================================================

2 3

Conexão em postgres
by Edson Lira 19 Fev '13

19 Fev '13

Boa Tarde, Gostaria de saber como faço para criar um conexão com o postgres. segue o exemplo que fiz require(RPostgreSQL) drv <- dbDriver("PostgreSQL") con <- dbConnect(drv,user="consulta",password="idoctor@)!)",dbname="iDoctor_DW") mas essa conexão é local, gostaria de acessar o proprio servidor de uma outra máquina, como faço? Edson Lira Estatístico Manaus-Amazonas

1 0

tabela muito grande
by Edson Lira 18 Fev '13

18 Fev '13

Bom dia a todos. Estou analisando um banco que necessito fazer a seguinte rotina: GEN<-table(m$LOCALDENAS,m$MUNICIPIOR,m$GENOTIPAGE,m$REG) ftable(addmargins(GEN, c(1,2,3,4), FUN=list(Total = sum))) Que dá essa saída: D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 CAREIRO A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 CASTANHO A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 COARI A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 CODAJAS A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 EIRUNEPE A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 IPIXUNA A 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 F 0 0 0 0 0 0 0 0 0 0 0 0 Total 0 0 0 0 0 0 0 0 0 0 0 0 ITAITUBA A 0 0 0 0 0 0 0 0 0 0 0 0 A sáida é muito grande e não consigo visualizar na tela de saída do R. Como eliminar os zeros. Edson Lira Estatístico Manaus-Amazonas

3 4