Março 2013 - R-br

Teste para decisão do número ótimo de amostra
by ASANTOS 20 Mar '13

20 Mar '13

Boa tarde pessoal, Gostaria de utilizar um teste para decidir o número ótimo de amostral, baseado na abordagem que estou empregando, se faço: pop.total<-rnorm(10000,mean=20,sd=15) ## População total i<-c(5000,50)## Quantidade de amostras n.sim<-999 ## Número de simulações RES=NULL for(Nsim in 1:n.sim){ for(Nam in 1:length(i)){ amostras<-sample(pop.total,i[Nam]) ## Amostragem com reposição m.amostras<-mean(amostras) ## Media encontrada nas amostras err.amost<-100-((mean(amostras)/mean(pop.total))*100) ### Erro amostral RES=rbind(RES,c(Nsim,i[Nam],err.amost)) }} ####### 50 amostras am.50<-RES[RES[,2]==50,] shapiro.test(am.50[,3]-mean(am.50[,3])) ## Distribuição normal,então inferências sobre os parâmetros média e desvio estão corretos mean(am.50[,3])## Média do erro amostral sd(am.50[,3])/sqrt(length(am.50[,3]))## Erro padrão do erro amostral sd(am.50[,3])## Desvio padrão # ####### 5000 amostras am.5000<-RES[RES[,2]==5000,] shapiro.test(am.5000[,3]-mean(am.5000[,3])) ## Distribuição normal,então inferências sobre os parâmetros média e desvio estão corretos mean(am.5000[,3])## Média do erro amostral sd(am.5000[,3])/sqrt(length(am.50[,3]))## Erro padrão do erro amostral sd(am.5000[,3])## Desvio padrão # Percebo que a média do erro amostral e o erro padrão desta média são baixos (próximos de zero) tanto quando minha amostra tem tamanho 50 quanto 5000, porém o desvio padrão, obviamente, aumenta quando reduzo o número de amostras. Gostaria de saber que teste poderia empregar para escolha de um número ótimo de amostras, uma vez que eu não posso usar como critério o erro amostral, quando simulo este cenário 999 vezes e emprego inúmeros tamanhos amostrais? 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 4

Como listar arquivos faltantes usando R
by Thiago V. dos Santos 20 Mar '13

20 Mar '13

Olá pessoal, Baixei centenas de imagens de satélite e agora devo conferir se tenho todas que realmente vou precisar. A nomenclatura das imagens segue o padrão: MCD12Q1.A2001.h10v08.hdf MCD12Q1.A2001.h10v09.hdf MCD12Q1.A2001.h10v10.hdf MCD12Q1.A2001.h10v11.hdf MCD12Q1.A2001.h11v08.hdf MCD12Q1.A2001.h11v09.hdf MCD12Q1.A2001.h11v10.hdf MCD12Q1.A2001.h11v11.hdf MCD12Q1.A2001.h11v12.hdf MCD12Q1.A2001.h11v13.hdf e assim por diante onde 2001 é o ano e vai de 2001 a 2011. h10 é um componente horizontal da imagem e vai de a 10 a 14. v08 é um componente vertical da imagem e vai de a 08 a 13. O que preciso fazer é o seguinte: varrer uma lista de todas as imagens possíveis, que vão de 2001 a 2011, h10 a h14 e v08 a v13, e testar se tem alguma que está faltando. Para isso eu uso a função "file.exists" dentro de três loops: "ano", "h" e "v". No final da mensagem estou colando o código que usei para fazer isso. Ele até funciona, mas não salva a lista inteira, e sim somente o último nome. Estou fazendo alguma coisa errada no loop. Acredito também que fazer três loops não é a maneira mais otimizada de fazer isso, porém foi a primeira que veio na minha cabeça. Alguém pode ajudar, criticando o código? Obrigado desde já, Thiago. ################################################################## # Gather all files dir <- ('/Users/dossa013/data/MODIS/MCD12Q1/original') files <- list.files(dir, pattern='hdf', full.names=T) # Set beginning and ending years byear <- 2001 eyear <- 2011 # Set tiles h1 <- 10 h2 <- 14 v1 <- 08 v2 <- 13 # Loop over year and then over tiles for (x in byear:eyear) { for (y in h1:h2) { for (z in v1:v2) { name <- paste('/Users/dossa013/data/MODIS/MCD12Q1/original/MCD12Q1.A',x,'.h',y,'v',z,'.hdf', sep='') if (file.exists(name)==F) missing <- name } # end of v } # end of h } # end of year > missing [1] "/Users/dossa013/data/MODIS/MCD12Q1/original/MCD12Q1.A2011.h14v9.hdf"

4 7

Nome das linhas em um data frame
by Luciano F. Sgarbi 19 Mar '13

19 Mar '13

Prezados, Estou com um pequeno problema em importar um conjunto de dados para o R. Eu estou criando um conjunto de dados e salvando ele no formato ".csv" Quando eu importo o conjunto de dados para o R, o nome das linhas se transforma em uma nova variável. No entanto quando eu salvo o arquivo em formato ".txt" esse erro não ocorre. Acredito que a resolução deste problema seja muito simples, no entanto não estou conseguindo encontrar essa tal solução. Se puderem me ajudar ficarei muito grato! O CMR segue abaixo: my.data<-data.frame(v1=c(letters[1:5]),v2=1:5,v3=100:104) rownames(my.data)<-LETTERS[1:5] my.data write.csv(my.data,"my_data.csv") dados<-read.csv("my_data.csv",h=T) dados Abraços, Luciano -- *Luciano F. Sgarbi* Mestrando em Ecologia e Evolução Laboratório de Ecologia de Insetos (sl. 222) Departamento de Ecologia Instituto de Ciências Biológicas - ICB 1 Universidade Federal de Goiás, campus II Goiânia-GO 74001-970 Brazil

6 11

Erro ao rodar função
by Ari Clecius 19 Mar '13

19 Mar '13

Boa tarde, rodei o código abaixo, quando tentei gerar o gráfico de cubo pela função cubePlot gerou o erro abaixo. Alguém poderia me ajudar? Att, Ari Clecius Alves de Lima Engenheiro Químico Me. Engenharia Civil (085)87687786 (085)33669042 library(qualityTools) exp1 = facDesign( k = 3 , centerCube = 0, replicates=3) names ( exp1 ) = c ( " Temperatura " , " Concentração" , "Pressão " ) units(exp1)=c("°C", "mg/L", "mmHg") lows ( exp1 ) = c (60, 1,720) highs ( exp1 ) = c (80,2,760) summary( exp1 ) y=c(1.60, 1.85, 1.40, 1.76, 1.70, 1.54, 0.37, 0.40, 0.46, 1.70, 1.80, 1.90, 0.30, 0.35, 1.74, 1.55, 1.80, 1.75, 1.50, 1.55, 0.60, 1.80, 0.55, 1.52) response(exp1)=data.frame(y) summary( exp1 ) Erro em `contrasts<-`(`*tmp*`, value = contr.funs[1 + isOF[nn]]) : contrasts can be applied only to factors with 2 or more levels

2 1

spgam????
by Gilbert Queiroz 18 Mar '13

18 Mar '13

Vi na página do LEG um link sobre esse assunto...Algo mais pode ser dito???? Abs. Gilbert.

2 1

text mining
by Vinicius Brito Rocha 18 Mar '13

18 Mar '13

Senhores, estou começando a estudar text mining. Quais pacotes, os senhores recomendam? -- *Vinicius Brito Rocha.* *Estatístico e Atuário (IM / UFRJ)** Mestre em Pesquisa Operacional (COPPE / UFRJ)* www.aplicademic.blogspot.com http://twitter.com/viniciusbritor "Não se preocupe muito com as suas dificuldades em Matemática, posso assegurar-lhe que as minhas são ainda maiores." - Albert Einstein.

4 3

SoundexBR
by Fátima Lima Paula 17 Mar '13

17 Mar '13

Olá Daniel Marcelino, precisaria de uma ajuda sua no soundex. Verifiquei que erros de digitação não são captados pelo SoundexBR. Exemplo: ?MARIA e MARIA, PE8DRO e PEDRO. Será que seria tranquilo para você implementar algumas coisas? Estou enviando um script que fiz com teste para alguns caracteres. Desde já muito obrigada. Abs Fátima soundexBR<-function(termo){ termo<-toupper(termo) # 1. Retire toda pontuação da palavra; termo<-gsub("[ÃÁÀÂÄ]","A",termo) termo<-gsub("[ÉÈÊ?Ë]","E",termo) termo<-gsub("[ÍÌÏÎI]","I",termo) termo<-gsub("[ÓÕÒÔÖ]","O",termo) termo<-gsub("[ÚÙÛÜU]","U",termo) termo<-gsub("Ç","C",termo) #1.a Substituir todas as letras duplas por uma única letra #http://www.archives.gov/genealogy/census/soundex.html termo<-gsub("([A-Z])\\1", "\\1", termo) # 2. Fique com a primeira letra; N<-nchar(termo) # Modificação PT-BR (Coeli e Camargo) termo<-ifelse(substr(termo,1,2)=="WA",sub("W","V",termo),termo) termo<-ifelse(substr(termo,1,1)=="H",substr(termo,2,N),termo) termo<-ifelse(substr(termo,1,2)=="KA"|substr(termo,1,2)=="KO"|substr(termo,1,2)=="KU",sub("K","C",termo),termo) termo<-ifelse(substr(termo,1,1)=="Y",sub("Y","I",termo),termo) termo<-ifelse(substr(termo,1,2)=="CE"|substr(termo,1,2)=="CI",sub("C","S",termo),termo) termo<-ifelse(substr(termo,1,2)=="GE"|substr(termo,1,2)=="GI",sub("G","J",termo),termo) ############## Segunda Parte ####################### termo.1<-substr(termo,1,1) termo<-substr(termo,2,N) # 3. Mude todas as ocorrências das letras a seguir por '0' (zero): 'A','E','I','O','U','H','W','Y'; termo<-gsub("[A,E,I,O,U,H,W,Y]",0,termo) # 4. Mude as letras restantes de acordo com a tabela abaixo: # Número Letra # 1 'B','F','P','V' termo<-gsub("[B,F,P,V]",1,termo) # 2 'C','G','J','K', 'Q','S','X','Z' termo<-gsub("[C,G,J,K,Q,S,X,Z]",2,termo) # 3 'D','T' termo<-gsub("[D,T]",3,termo) # 4 'L' termo<-gsub("L",4,termo) # 5 'M','N' termo<-gsub("[M,N]",5,termo) # 6 'R' termo<-gsub("R",6,termo) # 5. Remova todos os zeros da string resultante; termo<-gsub(0,"",termo) # Eliminar dois numeros iguais consecutivos por um único numero #http://www.archives.gov/genealogy/census/soundex.html termo<-gsub("([0-9])\\1", "\\1", termo) # Remontar termo<-paste(termo.1,termo,sep="") # 6. Preencha a string resultante com zeros à direita e retorne desta forma: #<letra maiuscula><digito><digito><digito> termo<-paste(termo,"0000",sep="") termo<-substr(termo,1,4) return(termo) } soundexBR("termo") soundexBR("terno") nomea=data.frame(nome=c("GER?D","HARTMUT","RALF","STEFAN","ROBERT")) nomea nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) library(RecordLinkage) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Ponto de interrogação nomea=data.frame(nome=c("GER?D","HARTMUT","?RALF","STEFAN","ROBERT")) nomea nomeb=data.frame(nome=c("HARTMUT?","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Não funciona com o ? no início ############################################################################### #Barras inclinadas / nomea=data.frame(nome=c("GER/D","/HARTMUT","RALF/","STEFAN","ROBERT")) nomea nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Não funciona com a barra inclinada #Barras inclinadas \ nomea=data.frame(nome=c("GER\D","\HARTMUT","RALF\","STEFAN","ROBERT")) nomea #O R rejeita a \ #Parênteses ( nomea=data.frame(nome=c("GER(D","(HARTMUT","RALF(","STEFA)N","ROBERT)")) nomea nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Só funciona com o parênteses depois do nome #Dois pontos e ponto e vírgula nomea=data.frame(nome=c("GER:D",":HARTMUT","RALF:","STEFA;N","ROBERT;")) nomea nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Só funciona com o : e ; depois do nome #Dólar e ponto nomea=data.frame(nome=c("GER$D","%HARTMUT","RALF%","STEFA.N","ROBERT.")) nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Idem #Números nomea=data.frame(nome=c("GER1D","2HARTMUT","RALF3","S4TEFA.N","RO5BERT6")) nomea nomeb=data.frame(nome=c("HARTMUT","GERD","ROBERT","STEFAN","RALF")) nomeb fonoa=soundexBR(nomea$nome) fonob=soundexBR(nomeb$nome) pairs.mat = outer(fonoa,fonob, "==") pairs.mat #Não funciona com números

2 4

Problema para plotar linha
by ASANTOS 17 Mar '13

17 Mar '13

Boa tarde pessoal, Estou tentando plotar uma linha continua ligando 11 pontos, mas quando uso o comando type="l" da função plot() ele faz um zig zag entre os pontos e na realidade eu quero ligá-los, sendo: # x2<-c(69.19,71.13,63.38,69.19,68.60,68.21,63.17,71.13,67.26,63.38,71.90) y0<-c(39.79699,43.82621,29.81363,39.79699,38.64670,37.90465,29.50401,43.82621,36.15617,29.81363,45.53631) plot(x2,y0, type="l",main="") points(x2,y0) # Então eu pergunto, se existe alguma maneira de forçar a ligação entre os pontos, sem considerar a ordem deles? 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 ======================================================================

3 4

Re: [R-br] Digest R-br, volume 25, assunto 23
by Márcio Mendonça 16 Mar '13

16 Mar '13

Prezados, como faço para inserir os eixos(tipo vetores) em um gráfico de ordenação, por exemplo em nmds? existe algum pacote? ATT Márcio ----- Mensagem original ----- De: "r-br-request(a)listas.c3sl.ufpr.br" <r-br-request(a)listas.c3sl.ufpr.br> Para: r-br(a)listas.c3sl.ufpr.br Cc: Enviadas: Sexta-feira, 15 de Março de 2013 12:00 Assunto: Digest R-br, volume 25, assunto 23 Enviar submissões para a lista de discussão R-br para r-br(a)listas.c3sl.ufpr.br Para se cadastrar ou descadastrar via WWW, visite o endereço https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para r-br-request(a)listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço r-br-owner(a)listas.c3sl.ufpr.br Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of R-br digest..." Tópicos de Hoje: 1. Re: Eliminar Vetores Repetidos.... (Benilton Carvalho) 2. Re: Eliminar Vetores Repetidos.... (andrebvs(a)bol.com.br) 3. Re: Eliminar Vetores Repetidos.... (Benilton Carvalho) 4. Re: Eliminar Vetores Repetidos.... (andrebvs(a)bol.com.br) 5. Re: Eliminar Vetores Repetidos.... (Benilton Carvalho) 6. Re: Eliminar Vetores Repetidos.... (Benilton Carvalho) 7. Re: Eliminar Vetores Repetidos.... (andrebvs(a)bol.com.br) 8. Re: Eliminar Vetores Repetidos.... (Elias Teixeira Krainski) 9. Re: Nome das linhas em um data frame (Paulo Justiniano) ---------------------------------------------------------------------- Message: 1 Date: Thu, 14 Mar 2013 23:35:35 -0300 From: Benilton Carvalho <beniltoncarvalho(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <CAO-arWOhcFpUORJqsfobJvOm-W1fw-a7rH-+MpY4pqJSvWfqtQ(a)mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1" As linhas 1 e 5 só são iguais depois de ordenar. Correto? Seu objeto final pode ter as linhas ordenadas? On Mar 14, 2013 11:19 PM, <andrebvs(a)bol.com.br> wrote: > Olá colegas! > > Gostaria de saber como posso eliminar de uma matrix vetores repetidos, no > exemplo abaixo, a linha1 e a linha5 são iguais, gostaria que houvesse uma > outra matrix ou dataframe com apenas as linhas não repetidas. > > Seja a matrix 6x4: > > linha1 <- 1,2,4,5 > linha2 <- 7,2,1,5 > linha3 <- 9,3,1,5 > linha4 <- 6,2,1,5 > linha5 <- 5,2,1,4 > linha6 <- 9,2,1,5 > > desde já agradeço! > > *Att.* > *André* > > _______________________________________________ > R-br mailing list > R-br(a)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. > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130314/8c6945e1/atta…> ------------------------------ Message: 2 Date: Thu, 14 Mar 2013 23:36:46 -0300 From: andrebvs(a)bol.com.br To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <5142893ea22da_53997e1447815f(a)a4-winter14.tmail> Content-Type: text/plain; charset="iso-8859-1" Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130314/bde11ea4/atta…> ------------------------------ Message: 3 Date: Thu, 14 Mar 2013 23:46:45 -0300 From: Benilton Carvalho <beniltoncarvalho(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <CAO-arWMAE3Sbbys83y-S=8jfQ7s6DQJz9upKJp-OzxfwdSTR+Q(a)mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1" unique(t(apply(x, 1, sort))) On Mar 14, 2013 11:36 PM, <andrebvs(a)bol.com.br> wrote: > Olá Benilton! > > No resultado final, tanto faz, ter linha ordenada ou não. > > ------------------------------ > Em 14/03/2013 23:35, *Benilton Carvalho < beniltoncarvalho(a)gmail.com >*escreveu: > > As linhas 1 e 5 só são iguais depois de ordenar. Correto? Seu objeto final > pode ter as linhas ordenadas? > On Mar 14, 2013 11:19 PM, <andrebvs(a)bol.com.br<http://../undefined/compose?to=andrebvs@bol.com.br>> > wrote: > >> Olá colegas! >> >> Gostaria de saber como posso eliminar de uma matrix vetores repetidos, no >> exemplo abaixo, a linha1 e a linha5 são iguais, gostaria que houvesse uma >> outra matrix ou dataframe com apenas as linhas não repetidas. >> >> Seja a matrix 6x4: >> >> linha1 >> linha2 >> linha3linha4 >> linha5linha6 >> >> desde já agradeço! >> >> *Att.* >> *André* >> >> _______________________________________________ >> R-br mailing list >> R-br(a)listas.c3sl.ufpr.br<http://../undefined/compose?to=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(a)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. > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130314/5236f633/atta…> ------------------------------ Message: 4 Date: Thu, 14 Mar 2013 23:50:45 -0300 From: andrebvs(a)bol.com.br To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <51428c8569331_5355d95547c1029(a)a4-winter11.tmail> Content-Type: text/plain; charset="iso-8859-1" Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130314/ac92d8b3/atta…> ------------------------------ Message: 5 Date: Fri, 15 Mar 2013 00:00:57 -0300 From: Benilton Carvalho <beniltoncarvalho(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <CAO-arWMEHpC353V+3+EUG=uzfwi=iYY1opvEiFvwfLnsp0GsCQ(a)mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1" duplicated(t(apply(x, 1, sort)), fromLast=FALSE) | duplicated(t(apply(x, 1, sort)), fromLast=TRUE) On Mar 14, 2013 11:50 PM, <andrebvs(a)bol.com.br> wrote: > Obrigado benilton, tinha acabado de utilizar esse simples comando mesmo: > > L1 <- c(1,2,4,5) > L2 <- c(7,2,1,5) > L3 <- c(9,3,1,5) > L4 <- c(6,2,1,5) > L5 <- c(5,2,1,4) > L6 <- c(9,2,1,5) > > M = matrix(c(L1,L2,L3,L4,L5,L6),,4,byrow=T) > > unique(t(apply(M,1,sort))) > > Agora, teria como verificar, por exemplo, quais linhas foram repetidas na > matrix M? > > *Att.* > *André* > > ------------------------------ > Em 14/03/2013 23:46, *Benilton Carvalho < beniltoncarvalho(a)gmail.com >*escreveu: > > unique(t(apply(x, 1, sort))) > On Mar 14, 2013 11:36 PM, <andrebvs(a)bol.com.br<http://../undefined/compose?to=andrebvs@bol.com.br>> > wrote: > >> Olá Benilton! >> >> No resultado final, tanto faz, ter linha ordenada ou não. >> >> ------------------------------ >> Em 14/03/2013 23:35, *Benilton Carvalho < beniltoncarvalho(a)gmail.com<http://../undefined/compose?to=beniltoncarvalho@gmail.com>> >> * escreveu: >> >> As linhas 1 e 5 só são iguais depois de ordenar. Correto? Seu objeto >> final pode ter as linhas ordenadas? >> On Mar 14, 2013 11:19 PM, <andrebvs(a)bol.com.br<http://../undefined/compose?to=andrebvs@bol.com.br>> >> wrote: >> >>> Olá colegas! >>> >>> Gostaria de saber como posso eliminar de uma matrix vetores repetidos, >>> no exemplo abaixo, a linha1 e a linha5 são iguais, gostaria que houvesse >>> uma outra matrix ou dataframe com apenas as linhas não repetidas. >>> >>> Seja a matrix 6x4: >>> >>> linha1 >>> linha2 >>> linha3linha4 >>> linha5linha6 >>> >>> desde já agradeço! >>> >>> *Att.* >>> *André* >>> >>> _______________________________________________ >>> R-br mailing list >>> R-br(a)listas.c3sl.ufpr.br<http://../undefined/compose?to=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(a)listas.c3sl.ufpr.br<http://../undefined/compose?to=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(a)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. > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130315/068a9c48/atta…> ------------------------------ Message: 6 Date: Fri, 15 Mar 2013 00:01:20 -0300 From: Benilton Carvalho <beniltoncarvalho(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <CAO-arWMuYJhu+kN58urRXLVxY1e1AgDHyGcy-E-i8fUtBT9B2g(a)mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1" Tudo em uma linha só On Mar 15, 2013 12:00 AM, "Benilton Carvalho" <beniltoncarvalho(a)gmail.com> wrote: > duplicated(t(apply(x, 1, sort)), fromLast=FALSE) | duplicated(t(apply(x, > 1, sort)), fromLast=TRUE) > On Mar 14, 2013 11:50 PM, <andrebvs(a)bol.com.br> wrote: > >> Obrigado benilton, tinha acabado de utilizar esse simples comando mesmo: >> >> L1 <- c(1,2,4,5) >> L2 <- c(7,2,1,5) >> L3 <- c(9,3,1,5) >> L4 <- c(6,2,1,5) >> L5 <- c(5,2,1,4) >> L6 <- c(9,2,1,5) >> >> M = matrix(c(L1,L2,L3,L4,L5,L6),,4,byrow=T) >> >> unique(t(apply(M,1,sort))) >> >> Agora, teria como verificar, por exemplo, quais linhas foram repetidas na >> matrix M? >> >> *Att.* >> *André* >> >> ------------------------------ >> Em 14/03/2013 23:46, *Benilton Carvalho < beniltoncarvalho(a)gmail.com >*escreveu: >> >> unique(t(apply(x, 1, sort))) >> On Mar 14, 2013 11:36 PM, <andrebvs(a)bol.com.br<http://../undefined/compose?to=andrebvs@bol.com.br>> >> wrote: >> >>> Olá Benilton! >>> >>> No resultado final, tanto faz, ter linha ordenada ou não. >>> >>> ------------------------------ >>> Em 14/03/2013 23:35, *Benilton Carvalho < beniltoncarvalho(a)gmail.com<http://../undefined/compose?to=beniltoncarvalho@gmail.com>> >>> * escreveu: >>> >>> As linhas 1 e 5 só são iguais depois de ordenar. Correto? Seu objeto >>> final pode ter as linhas ordenadas? >>> On Mar 14, 2013 11:19 PM, <andrebvs(a)bol.com.br<http://../undefined/compose?to=andrebvs@bol.com.br>> >>> wrote: >>> >>>> Olá colegas! >>>> >>>> Gostaria de saber como posso eliminar de uma matrix vetores repetidos, >>>> no exemplo abaixo, a linha1 e a linha5 são iguais, gostaria que houvesse >>>> uma outra matrix ou dataframe com apenas as linhas não repetidas. >>>> >>>> Seja a matrix 6x4: >>>> >>>> linha1 >>>> linha2 >>>> linha3linha4 >>>> linha5linha6 >>>> >>>> desde já agradeço! >>>> >>>> *Att.* >>>> *André* >>>> >>>> _______________________________________________ >>>> R-br mailing list >>>> R-br(a)listas.c3sl.ufpr.br<http://../undefined/compose?to=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(a)listas.c3sl.ufpr.br<http://../undefined/compose?to=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(a)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. >> > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130315/4352bc55/atta…> ------------------------------ Message: 7 Date: Fri, 15 Mar 2013 00:06:01 -0300 From: andrebvs(a)bol.com.br To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <5142901979a1c_7a8c3ab6c6c1e1(a)a4-winter18.tmail> Content-Type: text/plain; charset="iso-8859-1" Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130315/8e99627e/atta…> ------------------------------ Message: 8 Date: Fri, 15 Mar 2013 11:21:03 +0100 From: Elias Teixeira Krainski <eliaskrainski(a)yahoo.com.br> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Eliminar Vetores Repetidos.... Message-ID: <1363342863.2119.2.camel@eliasn2> Content-Type: text/plain; charset="UTF-8" Vc não enviou um CMR. Supondo x sua matriz, use unique(x) ------------------------------ Message: 9 Date: Fri, 15 Mar 2013 09:57:40 -0300 (BRT) From: Paulo Justiniano <paulojus(a)leg.ufpr.br> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] Nome das linhas em um data frame Message-ID: <alpine.DEB.2.00.1303150955570.5400(a)pataxo.est.ufpr.br> Content-Type: text/plain; charset="iso-8859-1"; Format="flowed" importe com dados<-read.csv("my_data.csv",h=T, row.names=1) uma vez gravado como texto nao há indicacao para o que é me de linha ou variavel se quiser preservar a estrutura do objeto xporte em outro formado em que tal estrutura seja preservada (dput, save, dump ou similar) On Thu, 14 Mar 2013, Luciano F. Sgarbi wrote: > > Prezados, > Estou com um pequeno problema em importar um conjunto de dados para o R. > Eu estou criando um conjunto de dados e salvando ele no formato ".csv" > Quando eu importo o conjunto de dados para o R, o nome das linhas se transforma em uma nova variável. > No entanto quando eu salvo o arquivo em formato ".txt" esse erro > não ocorre. > Acredito que a resolução deste problema seja muito simples, no entanto não estou conseguindo encontrar essa tal solução. > > Se puderem me ajudar ficarei muito grato! > O CMR segue abaixo: > > my.data<-data.frame(v1=c(letters[1:5]),v2=1:5,v3=100:104) > rownames(my.data)<-LETTERS[1:5] > my.data > write.csv(my.data,"my_data.csv") > dados<-read.csv("my_data.csv",h=T) > dados > > > Abraços, > Luciano > > -- > > Luciano F. Sgarbi > > Mestrando em Ecologia e Evolução > Laboratório de Ecologia de Insetos (sl. 222) > Departamento de Ecologia > Instituto de Ciências Biológicas - ICB 1 > Universidade Federal de Goiás, campus II > Goiânia-GO > 74001-970 > Brazil > > > > ------------------------------ _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Fim da Digest R-br, volume 25, assunto 23 *****************************************

2 3

Eliminar Vetores Repetidos....
by andrebvs＠bol.com.br 15 Mar '13

15 Mar '13

3 10