- R-br - DINF UFPR

Campanha de crowdfunding envolvendo o R e Bioestatística
by Marcos Vital 16 Set '15

16 Set '15

Olá, listeiros do R Gente, vou ser rápido, já que a lista é voltada para dúvidas e problemas no R. Meus alunos e eu criamos uma campanha de financiamento coletivo para financiar um projeto do nosso laboratório (na UFAL, em Maceió), que envolve, entre outras coisas, produzir material didático sobre Bioestatística no R. Se alguém quiser conferir, o link é este: http://www.kickante.com.br/campanhas/ciencia-livre-ecologia-e-bioestatistic… E mesmo para quem não quiser contribuir diretamente, basta compartilhar que já será de grande ajuda. Abraços a todos Prof Marcos -- Marcos Vinícius Carneiro Vital Universidade Federal de Alagoas Instituto de Ciências Biológicas e da Saúde Setor de Biodiversidade e Ecologia

2 1

[LEMBRETE] Nesta Sexta 18 de setembro do 2015 - Meetup R São Paulo Users Group (IME-USP)
by Luis Benites Sánchez 16 Set '15

16 Set '15

Caros, O Meetup R São Paulo Users Group, iniciativa dos estudantes de Doutorado em Estatística do IME, Luis Benites Sánchez e Rocío Paola Maehara com a colaboração das professoras Viviana Giampioli e Márcia D'Elia Branco do IME, anuncia a seguinte palestra do Meetup do mês de setembro (lembrar que temos atividades planejadas até o 4 de dezembro, veja a programação completo no site do Meetup). Breve descrição do Meetup: As reuniões do Meetup R acontecerão geralmente duas vezes por mês, as sextas, das 14h às 16h. Em cada reunião teremos a apresentação de duas palestras com duração de 45 minutos cada e 10 minutos de perguntas. As palestras serão ministradas por professores e estudantes de pós-graduação de diversas universidades do interior como do exterior. A maioria de las serão online, mais também teremos algumas palestras presenciais. Faremos sorteios de 2 livros. Para o mês de setembro a programação é a seguinte: Sexta 18 de setembro (14h-16h) - Conferências: 1) Gauss Hermite Quadrature with Pruning - Prof. Freddy Hernández Barajas, Universidad Nacional de Colombia. Resumo: Nesta palestra apresenta-se uma melhora à tecnica de Gauss Hermite é usada para obter estimativas nos modelos mistos com efeitos aleatorios normais. 2) R Markdown - Prof. Fernando Mayer, Departamento de Estatística, Universidade Federal de Paraná. Resumo: O R Markdown é um formato para a criação de documentos dinâmicos, apresentações e relatórios em R. Combina a sintaxe Markdown (uma linguagem de marcação simples) com códigos do R embutidos, gerando gráficos e tabelas automaticamente no documento final. Nesta palestra será apresentada uma introdução à criação de documentos escritos em R Markdown, e algumas de suas extensões. Obs. As palestras serão transmitidas ao vivo pela conexão IPTV da USP e YouTube (os links de transmissão serão disponibilizados no site do meetup). As sessões são filmados (se os palestrantes concordar) e ditos vídeos serão disponibilizados no Canal de YouTube do Meetup. Para mais informações: Site: www.meetup.com/pt/useR-SP YouTube: www.youtube.com/channel/UCb9PdJYYaElE6Uqb1KxhE8w e-mail: meetuprsp(a)gmail.com Um abraço, Luis Benites Sánchez Organizador do São Paulo R Users Group

1 0

Re: [R-br] (resolvido) Erro instalar pacote smatr
by marcelo claro de souza 15 Set '15

15 Set '15

Olá pessoal Restaurei o Win e agora deu certo. Muito obrigado pelas colaborações Abraço Marcelo Em 15/09/2015 2:18 PM, "Benilton Carvalho" <beniltoncarvalho(a)gmail.com> escreveu: > Veja o que diz a mensagem de instalação: > > package ‘Rcpp’ successfully unpacked and MD5 sums checked > Warning: unable to move temporary installation > ‘C:\Users\marceloclaro\Documents\R\win-library\3.2\file25a415bf417e\Rcpp’ > to ‘C:\Users\marceloclaro\Documents\R\win-library\3.2\Rcpp’ > > A dica está aí. > > B > > On Tue, Sep 15, 2015, 11:45 marcelo claro de souza < > marcelo.claro.souza(a)gmail.com> wrote: > >> Olá >> >> Eu já tentei instalar esse pacote e tb está dando erro: >> >> > install.packages("Rcpp") >> Installing package into >> ‘C:/Users/marceloclaro/Documents/R/win-library/3.2’ >> (as ‘lib’ is unspecified) >> tentando a URL ' >> https://cran.r-project.org/bin/windows/contrib/3.2/Rcpp_0.12.1.zip' >> Content type 'application/zip' length 3189570 bytes (3.0 MB) >> downloaded 3.0 MB >> >> package ‘Rcpp’ successfully unpacked and MD5 sums checked >> Warning: unable to move temporary installation >> ‘C:\Users\marceloclaro\Documents\R\win-library\3.2\file25a415bf417e\Rcpp’ >> to ‘C:\Users\marceloclaro\Documents\R\win-library\3.2\Rcpp’ >> >> The downloaded binary packages are in >> >> C:\Users\marceloclaro\AppData\Local\Temp\RtmpgPcNEO\downloaded_packages >> >> Será alguma incompatibilidade entre o R e o Win10? >> Muito obrigado >> >> Marcelo >> >> >> >> Em 15 de setembro de 2015 11:35, salah <salah3.1416(a)gmail.com> escreveu: >> >>> Olá Marcelo >>> >>> Na mensagem de erro diz: there is no package called ‘Rcpp’ >>> Instale o pacote Rcpp >>> saudações >>> >>> _______________________________________________ >>> 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 fornea >>> cdigo mnimo reproduzvel. >> >> >> >> >> -- >> *Dr. Marcelo Claro de Souza* >> Postdoctoral researcher >> >> FCFRP - USP >> Department of Pharmacy >> Laboratory of Pharmacognosy >> Ribeirão Preto, São Paulo, Brazil >> Av. do Café s/n >> CEP 14040-230 >> >> _______________________________________________ >> 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. > > > _______________________________________________ > 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. >

1 0

Erro instalar pacote smatr
by marcelo claro de souza 15 Set '15

15 Set '15

Olá pessoal, tudo bem com vocês? Estou utilizando o R 3.2.2 para win10 e está dando erro na instalação do pacote smatr. > install.packages("smatr") Installing package into ‘C:/Users/marceloclaro/Documents/R/win-library/3.2’ (as ‘lib’ is unspecified) --- Please select a CRAN mirror for use in this session --- tentando a URL ' https://cran.r-project.org/bin/windows/contrib/3.2/smatr_3.4-3.zip' Content type 'application/zip' length 134092 bytes (130 KB) downloaded 130 KB package ‘smatr’ successfully unpacked and MD5 sums checked The downloaded binary packages are in C:\Users\marceloclaro\AppData\Local\Temp\RtmpgPcNEO\downloaded_packages > require(smatr) Carregando pacotes exigidos: smatr Carregando pacotes exigidos: plyr Error in loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]) : there is no package called ‘Rcpp’ Failed with error: ‘package ‘plyr’ could not be loaded’ Anteriormente eu utilizei esse mesmo pacote em outras versões do Win e tb no Ubuntu sem nenhum problema. Alguém tem alguma ideia de como solucionar o problema? Muito obrigado pela ajuda Abraço Marcelo -- *Dr. Marcelo Claro de Souza* Postdoctoral researcher FCFRP - USP Department of Pharmacy Laboratory of Pharmacognosy Ribeirão Preto, São Paulo, Brazil Av. do Café s/n CEP 14040-230

4 4

Gráfico regressão quantilica
by geovane barbosa 15 Set '15

15 Set '15

Olá pessoal tudo bem. Alguém. Já gerou um desses gráficos abaixo? Suponha que eu tenha a seguinte regressão quantilica k=rq(y ~ x, tau=c(0.1,0.25,0.5,0.75,0.9),data=dados) Como eu faço para gerar esses gráficos em anex

1 0

Exibição de matriz de correlação dada uma condição [RESOLVIDO]
by ASANTOS 15 Set '15

15 Set '15

> Agora sim Hélio, > > Agora com correlação direta e inversa e com cores, segue CRM: > > #Pacote > require(gplots) > > #Variáveis artificiais > dados<-runif(1000) > dados<-(dados*100)+c(1:500, 500:1) > dados<-matrix(dados,nrow=100,ncol=10) > dados<-as.data.frame(dados) > names(dados)<-c("var1", > "var2","var3","var4","var5","var6","var7","var8","var9","var10") > > > #Função by Walmes > pn <- function(X){crossprod(!is.na(X))} > > cor.prob <- function(X){ > pair.SampSize <- pn(X) > above1 <- row(pair.SampSize) < col(pair.SampSize) > pair.df <- pair.SampSize[above1] - 2 > > R <- cor(X, use="pair") > above2 <- row(R) < col(R) > r2 <- R[above2]^2 > Fstat <- (r2 * pair.df)/(1 - r2) > R[above2] <- 1 - pf(Fstat, 1, pair.df) > R > } > > > correla <- round(cor.prob(dados),4) > > > #Função by Helio > > sig<-0.05## Significância pos > > rP<-0.50 ## Correlação positiva > rN<--0.50## Correlação negativa > > cor.probC <- function(x){ > > results <- x > ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=rP&x>=rN,NA,x)) > } > > cr <- cor.probC(correla) > colnames(cr) <- names(dados) > rownames(cr) <- names(dados) > cr > # > > #Plota a matriz > paleta<- colorRampPalette(c(rgb(0.96,0.96,1), rgb(0.1,0.1,0.9)), space > = "rgb") > xval <- formatC(cr, format="f", digits=2) > x_hm <- heatmap.2(cr, Rowv=FALSE, Colv=FALSE, > dendrogram="none",col=paleta, > trace="none", cellnote=xval, notecol="black", notecex=0.8) > # > > -- > ====================================================================== > Alexandre dos Santos > Proteção 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 > Lattes:http://lattes.cnpq.br/1360403201088680 > ====================================================================== > > > > Em 02/09/2015 22:29, Hélio Gallo Rocha escreveu: >> >> Alexandre. Estou num celular, mas acho que incluindo o caracter & no >> campo relativo a correlação, vai funcionar >> >> Em 02/09/2015 22:36, "ASANTOS [via R-br]" >> <ml-node+s2285057n4665035h53(a)n4.nabble.com >> <mailto:ml-node%2Bs2285057n4665035h53@n4.nabble.com>> escreveu: >> >> Boa noite Helio, >> >> O problema é que a função some também com variáveis >> significantes mas inversamente correlacionadas, se altero >> ifelse(x>=0.08,NA,x), tenho o problema inverso. Veja as >> alterações que >> fiz, também criei uma estrutura de correlação um pouco melhor nos >> dados >> artificiais. Outro problema para colorir estão sendo os NA's, mas >> acho >> que estamos chegando lá, segue o CRM: >> >> #Variáveis artificiais >> dados<-runif(1000) >> dados<-(dados*100)+c(1:500, 500:1) >> dados<-matrix(dados,nrow=100,ncol=10) >> dados<-as.data.frame(dados) >> names(dados)<-c("var1", >> "var2","var3","var4","var5","var6","var7","var8","var9","var10") >> >> >> #Função by Walmes >> pn <- function(X){crossprod(!is.na <http://is.na>(X))} >> >> cor.prob <- function(X){ >> pair.SampSize <- pn(X) >> above1 <- row(pair.SampSize) < col(pair.SampSize) >> pair.df <- pair.SampSize[above1] - 2 >> >> R <- cor(X, use="pair") >> above2 <- row(R) < col(R) >> r2 <- R[above2]^2 >> Fstat <- (r2 * pair.df)/(1 - r2) >> R[above2] <- 1 - pf(Fstat, 1, pair.df) >> R >> } >> >> >> correla <- round(cor.prob(dados),4) >> >> >> #Função by Helio >> >> sig<-0.05## Significância >> r<-0.30 ## Correlação >> >> cor.probC <- function(x){ >> >> results <- x >> ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=r,NA,x)) >> } >> >> cr <- cor.probC(correla) >> colnames(cr) <- names(dados) >> rownames(cr) <- names(dados) >> cr >> # >> >> Abraço, >> >> -- >> ====================================================================== >> >> Alexandre dos Santos >> Proteção 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 <tel:%28%2B55%29%2065%208132-8112> (TIM) >> (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO) >> e-mails:[hidden email] >> <http:///user/SendEmail.jtp?type=node&node=4665035&i=0> >> [hidden email] >> <http:///user/SendEmail.jtp?type=node&node=4665035&i=1> >> Lattes: http://lattes.cnpq.br/1360403201088680 >> ====================================================================== >> >> >> >> >> >> >> >> >> >> >> >> Em 02/09/2015 12:09, Hélio Gallo Rocha escreveu: >> > var1<-sort(rnorm(30,1), decreasing = TRUE) >> > var2<-rnorm(30,10) >> > var3<-sort(rnorm(30,22)) >> > var4<-sort(rnorm(30,10)) >> > var5<-sort(rnorm(30,0.5), decreasing = TRUE) >> > var6<-sort(rnorm(30,25), decreasing = TRUE) >> > var7<-rnorm(30,10) >> > dados<-cbind(var1,var2,var3,var4,var5,var6,var7) >> >> _______________________________________________ >> R-br mailing list >> [hidden email] >> <http:///user/SendEmail.jtp?type=node&node=4665035&i=2> >> 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. >> >> >> ------------------------------------------------------------------------ >> If you reply to this email, your message will be added to the >> discussion below: >> http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad… >> >> To unsubscribe from R-br, click here >> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscrib…>. >> NAML >> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view…> >> >> >> >> >> _______________________________________________ >> 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. > -- ====================================================================== Alexandre dos Santos Proteção 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 Lattes:http://lattes.cnpq.br/1360403201088680 ======================================================================

2 3

Teste sobre funcionamento da lista
by sirio＠ig.com.br 15 Set '15

15 Set '15

Recebido, ok Em 15/09/2015 10:10, r-br-request(a)listas.c3sl.ufpr.br escreveu: > 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 [6] > 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. [OFF-TOPIC] Teste sobre funcionamento da lista (Walmes Zeviani) > 2. Re: [OFF-TOPIC] Teste sobre funcionamento da lista > (Fátima Lima Paula) > 3. Re: [OFF-TOPIC] Teste sobre funcionamento da lista (ASANTOS) > 4. Lista de discussão fora do ar (Walmes Zeviani) > 5. Re: [OFF-TOPIC] Teste sobre funcionamento da lista > (Luiz Roberto Martins Pinto) > 6. Exibição de matriz de correlação dada uma condição > [RESOLVIDO] (ASANTOS) > 7. Re: [OFF-TOPIC] Teste sobre funcionamento da lista > (juan manuel Otalora) > 8. Re: [OFF-TOPIC] Teste sobre funcionamento da lista > (João Paulo Alves) > 9. Re: [OFF-TOPIC] Teste sobre funcionamento da lista > (Rebeca Barreto) > 10. RES: [OFF-TOPIC] Teste sobre funcionamento da lista > (Humberto Hazin) > 11. Re: Exibição de matriz de correlação dada uma condição > [RESOLVIDO] (Hélio Gallo Rocha) > 12. Re: RES: [OFF-TOPIC] Teste sobre funcionamento da lista > (Ari Clecius) > > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 14 Sep 2015 18:06:46 -0300 > From: Walmes Zeviani <walmeszeviani(a)gmail.com> > To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> > Subject: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista > Message-ID: > <CAFU=EkZrrHii5HUZD=DDSUpHx=Kvj5XJ+sPdzOJcnfXLR+r=ew(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Mensagem de teste para avaliar se voltou a funcionar o serviço de email que > hospeda a lista de discussão. > > W. > > ======================================================================== > Walmes Marques Zeviani > LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] > Departamento de Estatística - Universidade Federal do Paraná > fone: (+55) 41 3361 3573 linux user number: 531218 > pages & profiles: > http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] > http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] > https://www.mendeley.com/profiles/walmes-zeviani1/ [5] > ======================================================================== > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/aa1f2911/atta… [9]> > > ------------------------------ > > Message: 2 > Date: Mon, 14 Sep 2015 18:10:29 -0300 > From: Fátima Lima Paula <fatima.lima.paula(a)gmail.com> > To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> > Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista > Message-ID: > <CAJzNC0uhdmtXJ_n9ui1Wcsny_6G1FWVtPs7yC04Mw2vPRajrvw(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Recebido > > Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com> > escreveu: > >> Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. > > -- > "Minha felicidade depende da qualidade dos meus pensamentos" > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/474a440a/atta… [10]> > > ------------------------------ > > Message: 3 > Date: Mon, 14 Sep 2015 17:11:25 -0400 > From: ASANTOS <alexandresantosbr(a)yahoo.com.br> > To: r-br(a)listas.c3sl.ufpr.br > Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista > Message-ID: <55F737FD.1050407(a)yahoo.com.br> > Content-Type: text/plain; charset="utf-8"; Format="flowed" > > Funcionou!!! > > -- > ====================================================================== > Alexandre dos Santos > Proteção 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 > Lattes: http://lattes.cnpq.br/1360403201088680 [11]====================================================================== > > Em 14/09/2015 17:06, Walmes Zeviani escreveu: > >> Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] <http://www.leg.ufpr.br/%7Ewalmes [8]> | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) 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/20150914/7d5b92f6/atta… [12]> > > ------------------------------ > > Message: 4 > Date: Mon, 14 Sep 2015 18:29:43 -0300 > From: Walmes Zeviani <walmeszeviani(a)gmail.com> > To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> > Subject: [R-br] Lista de discussão fora do ar > Message-ID: > <CAFU=EkZphO+dD1mLgWd+Fnd2n9s++ybhhgvC-L5sANm5PFG__A(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Saudações à todos, > > Venho por meio deste comunicar que a lista de discussão voltou a funcionar. > Estávamos em off desde o dia 03/09. Pedimos desculpas por qualquer prejuízo > nesse período que ficamos em off. Como sabem, a lista de discussão R-BR é > mantida por serviço de email gerenciado pela equipe do c3sl, que são nossos > colaboradores e mantenedores do espelho R da UFPR. Não só a nossa lista mas > todas as listas de discussão mantidas por eles sofreu avaria. Em situações > como essa, quando o problema está além das configurações da lista e sim nos > servidores do c3sl, não temos muito o que fazer se não aguardar por > encaminhamentos ou soluções por parte deles. Eles são sempre ágeis na > correção dos eventuais problemas mas como a UFPR esteve de greve todo > processo acaba tomando mais tempo. Lamentamos pelos prejuízos e agradeçemos > à todos pela compreensão. Esperamos não ter mais contratempos como esse. > > À disposição. > Walmes. > > ======================================================================== > Walmes Marques Zeviani > LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] > Departamento de Estatística - Universidade Federal do Paraná > fone: (+55) 41 3361 3573 linux user number: 531218 > pages & profiles: > http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] > http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] > https://www.mendeley.com/profiles/walmes-zeviani1/ [5] > ======================================================================== > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/4a54c0ce/atta… [13]> > > ------------------------------ > > Message: 5 > Date: Mon, 14 Sep 2015 18:39:44 -0300 > From: Luiz Roberto Martins Pinto <luizroberto.uesc(a)gmail.com> > To: r-br(a)listas.c3sl.ufpr.br > Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista > Message-ID: > <CAK4=-FAkCpVjHbwt_9wnrj0uzwZx2M0pjyn62V0Fc1Kg5Z_t2w(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Ok. > Luiz Roberto. > > Luiz Roberto Martins Pinto > Prof. Pleno/DCET/UESC > Laboratório de Estatística Computacional > Universidade Estadual de Santa Cruz > Ilhéus-Bahia-Brasil > > luizroberto.uesc(a)gmail.com > skype: lrmpinto > http://lattes.cnpq.br/2732314327604831 [14] > > Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com> > escreveu: > >> Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) 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/20150914/0491b447/atta… [15]> > > ------------------------------ > > Message: 6 > Date: Mon, 14 Sep 2015 20:22:05 -0400 > From: ASANTOS <alexandresantosbr(a)yahoo.com.br> > To: r-br(a)listas.c3sl.ufpr.br > Subject: [R-br] Exibição de matriz de correlação dada uma > condição [RESOLVIDO] > Message-ID: <55F764AD.5010402(a)yahoo.com.br> > Content-Type: text/plain; charset="windows-1252"; Format="flowed" > Agora sim Hélio, Agora com correlação direta e inversa e com cores, segue CRM: #Pacote require(gplots) #Variáveis artificiais dados<-runif(1000) dados<-(dados*100)+c(1:500, 500:1) dados<-matrix(dados,nrow=100,ncol=10) dados<-as.data.frame(dados) names(dados)<-c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10") #Função by Walmes pn <- function(X){crossprod(!is.na(X))} cor.prob <- function(X){ pair.SampSize <- pn(X) above1 <- row(pair.SampSize) < col(pair.SampSize) pair.df <- pair.SampSize[above1] - 2 R <- cor(X, use="pair") above2 <- row(R) < col(R) r2 <- R[above2]^2 Fstat <- (r2 * pair.df)/(1 - r2) R[above2] <- 1 - pf(Fstat, 1, pair.df) R } correla <- round(cor.prob(dados),4) #Função by Helio sig<-0.05## Significância pos rP<-0.50 ## Correlação positiva rN<--0.50## Correlação negativa cor.probC <- function(x){ results <- x ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=rP&x>=rN,NA,x)) } cr <- cor.probC(correla) colnames(cr) <- names(dados) rownames(cr) <- names(dados) cr # #Plota a matriz paleta<- colorRampPalette(c(rgb(0.96,0.96,1), rgb(0.1,0.1,0.9)), space = "rgb") xval <- formatC(cr, format="f", digits=2) x_hm <- heatmap.2(cr, Rowv=FALSE, Colv=FALSE, dendrogram="none",col=paleta, trace="none", cellnote=xval, notecol="black", notecex=0.8) # -- ====================================================================== Alexandre dos Santos Proteção 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 Lattes:http://lattes.cnpq.br/1360403201088680 [11]====================================================================== Em 02/09/2015 22:29, Hélio Gallo Rocha escreveu: Alexandre. Estou num celular, mas acho que incluindo o caracter & no campo relativo a correlação, vai funcionar Em 02/09/2015 22:36, "ASANTOS [via R-br]" <ml-node+s2285057n4665035h53(a)n4.nabble.com <mailto:ml-node%2Bs2285057n4665035h53@n4.nabble.com>> escreveu: Boa noite Helio, O problema é que a função some também com variáveis significantes mas inversamente correlacionadas, se altero ifelse(x>=0.08,NA,x), tenho o problema inverso. Veja as alterações que fiz, também criei uma estrutura de correlação um pouco melhor nos dados artificiais. Outro problema para colorir estão sendo os NA's, mas acho que estamos chegando lá, segue o CRM: #Variáveis artificiais dados<-runif(1000) dados<-(dados*100)+c(1:500, 500:1) dados<-matrix(dados,nrow=100,ncol=10) dados<-as.data.frame(dados) names(dados)<-c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10") #Função by Walmes pn <- function(X){crossprod(!is.na <http://is.na [16]>(X))} cor.prob <- function(X){ pair.SampSize <- pn(X) above1 <- row(pair.SampSize) < col(pair.SampSize) pair.df <- pair.SampSize[above1] - 2 R <- cor(X, use="pair") above2 <- row(R) < col(R) r2 <- R[above2]^2 Fstat <- (r2 * pair.df)/(1 - r2) R[above2] <- 1 - pf(Fstat, 1, pair.df) R } correla <- round(cor.prob(dados),4) #Função by Helio sig<-0.05## Significância r<-0.30 ## Correlação cor.probC <- function(x){ results <- x ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=r,NA,x)) } cr <- cor.probC(correla) colnames(cr) <- names(dados) rownames(cr) <- names(dados) cr # Abraço, -- ====================================================================== Alexandre dos Santos Proteção 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 <tel:%28%2B55%29%2065%208132-8112> (TIM) (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO) e-mails:[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=0> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=1> Lattes: http://lattes.cnpq.br/1360403201088680 [11] ====================================================================== Em 02/09/2015 12:09, Hélio Gallo Rocha escreveu: > var1<-sort(rnorm(30,1), decreasing = TRUE) > var2<-rnorm(30,10) > var3<-sort(rnorm(30,22)) > var4<-sort(rnorm(30,10)) > var5<-sort(rnorm(30,0.5), decreasing = TRUE) > var6<-sort(rnorm(30,25), decreasing = TRUE) > var7<-rnorm(30,10) > dados<-cbind(var1,var2,var3,var4,var5,var6,var7) _______________________________________________ R-br mailing list [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=2> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. ------------------------------------------------------------------------ If you reply to this email, your message will be added to the discussion below: http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad… [17] To unsubscribe from R-br, click here <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscrib… [18]>. NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view… [19]> _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- ====================================================================== Alexandre dos Santos Proteção 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 Lattes:http://lattes.cnpq.br/1360403201088680 [11] ====================================================================== -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/391ad595/atta… [20]> ------------------------------ Message: 7 Date: Mon, 14 Sep 2015 22:05:54 -0300 From: juan manuel Otalora <juanmanuelotalora(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAAGqf2CEy_LFBcPann5FmF2QFA40v3x-z4nioBdOYwkMoJ2cmw(a)mail.gmail.com> Content-Type: text/plain; charset="utf-8" ok 2015-09-14 18:39 GMT-03:00 Luiz Roberto Martins Pinto < luizroberto.uesc(a)gmail.com>: > Ok. Luiz Roberto. Luiz Roberto Martins Pinto Prof. Pleno/DCET/UESC Laboratório de Estatística Computacional Universidade Estadual de Santa Cruz Ilhéus-Bahia-Brasil luizroberto.uesc(a)gmail.com skype: lrmpinto http://lattes.cnpq.br/2732314327604831 [14] Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com> escreveu: > >> Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) 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 [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- *Juan Manuel Otálora Villamil* -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/a5e991af/atta… [21]> ------------------------------ Message: 8 Date: Tue, 15 Sep 2015 07:51:24 -0300 From: João Paulo Alves <joaopaulogoisalves(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAMt4aOmXNte0BCjxwmnGuS3eshHdco8LOUeDwSAJXZQNdJfxuw(a)mail.gmail.com> Content-Type: text/plain; charset="utf-8" recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com> escreveu: > Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- J.P.G.A. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/b58d7d7e/atta… [22]> ------------------------------ Message: 9 Date: Tue, 15 Sep 2015 09:50:09 -0300 (BRT) From: Rebeca Barreto <rebeca.mfbarreto(a)univasf.edu.br> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <234955195.7654289.1442321409248.JavaMail.zimbra(a)univasf.edu.br> Content-Type: text/plain; charset="utf-8" recebido Rebeca Mascarenhas Fonseca Barreto ***************************************************** De: "João Paulo Alves" <joaopaulogoisalves(a)gmail.com> Para: r-br(a)listas.c3sl.ufpr.br Enviadas: Terça-feira, 15 de setembro de 2015 6:51:24 Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani < walmeszeviani(a)gmail.com > escreveu: Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem ( http://www.leg.ufpr.br/r-br-guia [7] ) e forneça código mínimo reproduzível. -- J.P.G.A. _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) 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/20150915/d467dbcd/atta… [23]> ------------------------------ Message: 10 Date: Tue, 15 Sep 2015 09:57:11 -0300 From: Humberto Hazin <hghazin(a)hotmail.com> To: <r-br(a)listas.c3sl.ufpr.br> Subject: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <BAY402-EAS1566BC626ACE8DFA5BC99BDB45C0(a)phx.gbl> Content-Type: text/plain; charset="utf-8" Recebido! De: R-br [mailto:r-br-bounces@listas.c3sl.ufpr.br] Em nome de Rebeca Barreto Enviada em: Tuesday, September 15, 2015 9:50 Para: r-br(a)listas.c3sl.ufpr.br Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Rebeca Mascarenhas Fonseca Barreto ***************************************************** _____ De: "João Paulo Alves" < <mailto:joaopaulogoisalves@gmail.com> joaopaulogoisalves(a)gmail.com> Para: <mailto:r-br@listas.c3sl.ufpr.br> r-br(a)listas.c3sl.ufpr.br Enviadas: Terça-feira, 15 de setembro de 2015 6:51:24 Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com <mailto:walmeszeviani@gmail.com> > escreveu: Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 <tel:%28%2B55%29%2041%203361%203573> linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- J.P.G.A. _______________________________________________ R-br mailing list <mailto:R-br@listas.c3sl.ufpr.br> R-br(a)listas.c3sl.ufpr.br <https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6]> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem ( <http://www.leg.ufpr.br/r-br-guia [7]> http://www.leg.ufpr.br/r-br-guia [7]) 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/20150915/573125cf/atta… [24]> ------------------------------ Message: 11 Date: Tue, 15 Sep 2015 09:57:33 -0300 From: Hélio Gallo Rocha <heliogallorocha(a)gmail.com> To: r-br <r-br(a)listas.c3sl.ufpr.br> Subject: Re: [R-br] Exibição de matriz de correlação dada uma condição [RESOLVIDO] Message-ID: <CA+ppPW7x=2T1a5nkpTLrTULE6M3JmCxkXL_K1XJOJqY1NW3=JQ(a)mail.gmail.com> Content-Type: text/plain; charset="utf-8" Alexandre, bom dia. Não consegui identificar essa msg de erro, que ocorre após executar a ultima linha: x_hm <- heatmap(cr, Rowv=FALSE, Colv=FALSE, dendrogram="none",col=paleta, trace="none", cellnote=xval, notecol="black", notecex=0.8) msg de erro: Error in hclustfun(distfun(x)) : NA/NaN/Inf em chamada de função externa (argumento 11) OBS: retirei o ".2" após a função heatmap, poiis com esse dois, não rodava. abraço Em 14 de setembro de 2015 21:15, ASANTOS [via R-br] < ml-node+s2285057n4665047h25(a)n4.nabble.com> escreveu: > Agora sim Hélio, Agora com correlação direta e inversa e com cores, segue CRM: #Pacote require(gplots) #Variáveis artificiais dados<-runif(1000) dados<-(dados*100)+c(1:500, 500:1) dados<-matrix(dados,nrow=100,ncol=10) dados<-as.data.frame(dados) names(dados)<-c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10") #Função by Walmes pn <- function(X){crossprod(!is.na(X))} cor.prob <- function(X){ pair.SampSize <- pn(X) above1 <- row(pair.SampSize) < col(pair.SampSize) pair.df <- pair.SampSize[above1] - 2 R <- cor(X, use="pair") above2 <- row(R) < col(R) r2 <- R[above2]^2 Fstat <- (r2 * pair.df)/(1 - r2) R[above2] <- 1 - pf(Fstat, 1, pair.df) R } correla <- round(cor.prob(dados),4) #Função by Helio sig<-0.05## Significância pos rP<-0.50 ## Correlação positiva rN<--0.50## Correlação negativa cor.probC <- function(x){ results <- x ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=rP&x>=rN,NA,x)) } cr <- cor.probC(correla) colnames(cr) <- names(dados) rownames(cr) <- names(dados) cr # #Plota a matriz paleta<- colorRampPalette(c(rgb(0.96,0.96,1), rgb(0.1,0.1,0.9)), space = "rgb") xval <- formatC(cr, format="f", digits=2) x_hm <- heatmap.2(cr, Rowv=FALSE, Colv=FALSE, dendrogram="none",col=paleta, trace="none", cellnote=xval, notecol="black", notecex=0.8) # -- ====================================================================== Alexandre dos Santos Proteção 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)[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=0> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=1> Lattes: http://lattes.cnpq.br/1360403201088680 [11]====================================================================== Em 02/09/2015 22:29, Hélio Gallo Rocha escreveu: Alexandre. Estou num celular, mas acho que incluindo o caracter & no campo relativo a correlação, vai funcionar Em 02/09/2015 22:36, "ASANTOS [via R-br]" <[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=2>> escreveu: Boa noite Helio, O problema é que a função some também com variáveis significantes mas inversamente correlacionadas, se altero ifelse(x>=0.08,NA,x), tenho o problema inverso. Veja as alterações que fiz, também criei uma estrutura de correlação um pouco melhor nos dados artificiais. Outro problema para colorir estão sendo os NA's, mas acho que estamos chegando lá, segue o CRM: #Variáveis artificiais dados<-runif(1000) dados<-(dados*100)+c(1:500, 500:1) dados<-matrix(dados,nrow=100,ncol=10) dados<-as.data.frame(dados) names(dados)<-c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10") #Função by Walmes pn <- function(X){crossprod(!is.na(X))} cor.prob <- function(X){ pair.SampSize <- pn(X) above1 <- row(pair.SampSize) < col(pair.SampSize) pair.df <- pair.SampSize[above1] - 2 R <- cor(X, use="pair") above2 <- row(R) < col(R) r2 <- R[above2]^2 Fstat <- (r2 * pair.df)/(1 - r2) R[above2] <- 1 - pf(Fstat, 1, pair.df) R } correla <- round(cor.prob(dados),4) #Função by Helio sig<-0.05## Significância r<-0.30 ## Correlação cor.probC <- function(x){ results <- x ifelse(row(x)< col(x),ifelse(x<=sig,NA,x),ifelse(x<=r,NA,x)) } cr <- cor.probC(correla) colnames(cr) <- names(dados) rownames(cr) <- names(dados) cr # Abraço, -- ====================================================================== Alexandre dos Santos Proteção 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: <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112 (TIM) <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%209686-6970" value=" +556596866970" target="_blank">(+55) 65 9686-6970 (VIVO) e-mails:[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=0> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=1> Lattes: http://lattes.cnpq.br/1360403201088680 [11]====================================================================== Em 02/09/2015 12:09, Hélio Gallo Rocha escreveu: var1<-sort(rnorm(30,1), decreasing = TRUE) var2<-rnorm(30,10) var3<-sort(rnorm(30,22)) var4<-sort(rnorm(30,10)) var5<-sort(rnorm(30,0.5), decreasing = TRUE) var6<-sort(rnorm(30,25), decreasing = TRUE) var7<-rnorm(30,10) dados<-cbind(var1,var2,var3,var4,var5,var6,var7) _______________________________________________ R-br mailing list [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=2> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. ------------------------------ If you reply to this email, your message will be added to the discussion below: http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad… [17] To unsubscribe from R-br, click here. NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view… [19]> _______________________________________________ R-br mailing list[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=3>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- ====================================================================== Alexandre dos Santos Proteção 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)[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=4> [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=5> Lattes: http://lattes.cnpq.br/1360403201088680 [11] ====================================================================== _______________________________________________ R-br mailing list [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=6> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forne�a c�digo m�nimo reproduz�vel. ------------------------------ If you reply to this email, your message will be added to the discussion below: http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad… [27] To unsubscribe from R-br, click here <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscrib… [18]> . NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view… [19]> -- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/df106136/atta… [25]> ------------------------------ Message: 12 Date: Tue, 15 Sep 2015 13:10:50 +0000 (UTC) From: Ari Clecius <ari072000(a)yahoo.com.br> To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> Subject: Re: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <1226474123.131471.1442322650098.JavaMail.yahoo(a)mail.yahoo.com> Content-Type: text/plain; charset="utf-8" Recebido. Att, Ari Clecius Alves de Lima Engenheiro Químico Me. Engenharia Civil Dr. Engenharia Civil (085)84174333 (085)33669042 Em Terça-feira, 15 de Setembro de 2015 9:57, Humberto Hazin <hghazin(a)hotmail.com> escreveu: #yiv6666753403 #yiv6666753403 -- _filtered #yiv6666753403 {panose-1:2 4 5 3 5 4 6 3 2 4;} _filtered #yiv6666753403 {font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;} _filtered #yiv6666753403 {font-family:Tahoma;panose-1:2 11 6 4 3 5 4 4 2 4;} _filtered #yiv6666753403 {panose-1:2 11 6 3 2 2 2 2 2 4;}#yiv6666753403 #yiv6666753403 p.yiv6666753403MsoNormal, #yiv6666753403 li.yiv6666753403MsoNormal, #yiv6666753403 div.yiv6666753403MsoNormal {margin:0in;margin-bottom:.0001pt;font-size:12.0pt;}#yiv6666753403 a:link, #yiv6666753403 span.yiv6666753403MsoHyperlink {color:blue;text-decoration:underline;}#yiv6666753403 a:visited, #yiv6666753403 span.yiv6666753403MsoHyperlinkFollowed {color:purple;text-decoration:underline;}#yiv6666753403 p.yiv6666753403msonormal0, #yiv6666753403 li.yiv6666753403msonormal0, #yiv6666753403 div.yiv6666753403msonormal0 {margin-right:0in;margin-left:0in;font-size:12.0pt;}#yiv6666753403 span.yiv6666753403EstiloDeEmail18 {color:#1F497D;}#yiv6666753403 .yiv6666753403MsoChpDefault {font-size:10.0pt;} _filtered #yiv6666753403 {margin:70.85pt 85.05pt 70.85pt 85.05pt;}#yiv6666753403 div.yiv6666753403WordSection1 {}#yiv6666753403 Recebido! De: R-br [mailto:r-br-bounces@listas.c3sl.ufpr.br] Em nome de Rebeca Barreto Enviada em: Tuesday, September 15, 2015 9:50 Para: r-br(a)listas.c3sl.ufpr.br Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Rebeca Mascarenhas Fonseca Barreto *****************************************************De: "João Paulo Alves" <joaopaulogoisalves(a)gmail.com> Para: r-br(a)listas.c3sl.ufpr.br Enviadas: Terça-feira, 15 de setembro de 2015 6:51:24 Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani <walmeszeviani(a)gmail.com> escreveu: Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão.W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes [1] | http://lattes.cnpq.br/4410617539281650 [2] http://git.leg.ufpr.br/walmes [3] | https://github.com/walmes [4] https://www.mendeley.com/profiles/walmes-zeviani1/ [5] ======================================================================== _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forneça código mínimo reproduzível. -- J.P.G.A. _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) 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 [6] Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia [7]) e forne� c�igo m�imo reproduz�el. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/9dc9361c/atta… [26]> ------------------------------ Subject: Legenda do Digest _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [6] ------------------------------ Fim da Digest R-br, volume 57, assunto 5 **************************************** Links: ------ [1] http://www.leg.ufpr.br/~walmes [2] http://lattes.cnpq.br/4410617539281650 [3] http://git.leg.ufpr.br/walmes [4] https://github.com/walmes [5] https://www.mendeley.com/profiles/walmes-zeviani1/ [6] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br [7] http://www.leg.ufpr.br/r-br-guia [8] http://www.leg.ufpr.br/%7Ewalmes [9] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/aa1f2911/atta… [10] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/474a440a/atta… [11] http://lattes.cnpq.br/1360403201088680 [12] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/7d5b92f6/atta… [13] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/4a54c0ce/atta… [14] http://lattes.cnpq.br/2732314327604831 [15] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/0491b447/atta… [16] http://is.na [17] http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad… [18] http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscrib… [19] http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view… [20] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/391ad595/atta… [21] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/a5e991af/atta… [22] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/b58d7d7e/atta… [23] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/d467dbcd/atta… [24] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/573125cf/atta… [25] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/df106136/atta… [26] http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/9dc9361c/atta… [27] http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dad…

1 0

Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
by Rebeca Barreto 15 Set '15

15 Set '15

recebido Rebeca Mascarenhas Fonseca Barreto ***************************************************** De: "João Paulo Alves" <joaopaulogoisalves(a)gmail.com> Para: r-br(a)listas.c3sl.ufpr.br Enviadas: Terça-feira, 15 de setembro de 2015 6:51:24 Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani < walmeszeviani(a)gmail.com > escreveu: Mensagem de teste para avaliar se voltou a funcionar o serviço de email que hospeda a lista de discussão. W. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes | http://lattes.cnpq.br/4410617539281650 http://git.leg.ufpr.br/walmes | https://github.com/walmes https://www.mendeley.com/profiles/walmes-zeviani1/ ======================================================================== _______________________________________________ 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. -- J.P.G.A. _______________________________________________ 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.

3 2

Lista de discussão fora do ar
by Walmes Zeviani 14 Set '15

14 Set '15

Saudações à todos, Venho por meio deste comunicar que a lista de discussão voltou a funcionar. Estávamos em off desde o dia 03/09. Pedimos desculpas por qualquer prejuízo nesse período que ficamos em off. Como sabem, a lista de discussão R-BR é mantida por serviço de email gerenciado pela equipe do c3sl, que são nossos colaboradores e mantenedores do espelho R da UFPR. Não só a nossa lista mas todas as listas de discussão mantidas por eles sofreu avaria. Em situações como essa, quando o problema está além das configurações da lista e sim nos servidores do c3sl, não temos muito o que fazer se não aguardar por encaminhamentos ou soluções por parte deles. Eles são sempre ágeis na correção dos eventuais problemas mas como a UFPR esteve de greve todo processo acaba tomando mais tempo. Lamentamos pelos prejuízos e agradeçemos à todos pela compreensão. Esperamos não ter mais contratempos como esse. À disposição. Walmes. ======================================================================== Walmes Marques Zeviani LEG - Laboratório de Estatística e Geoinformação [25.450418S 49.231759W] Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 linux user number: 531218 pages & profiles: http://www.leg.ufpr.br/~walmes | http://lattes.cnpq.br/4410617539281650 http://git.leg.ufpr.br/walmes | https://github.com/walmes https://www.mendeley.com/profiles/walmes-zeviani1/ ========================================================================

1 0

Verificar se há nova versão disponível.
by Pedro Emmanuel Alvarenga Americano do Brasil 03 Set '15

03 Set '15

Amigos de R, Gostaria de configurar o meu R para que toda vez que o inicie, ele verifique se há uma nova versão disponível. Descobri que há uma função gtools::checkRVersion() que faz isso. Eu procurei um tanto e descobri que dá pra editar o profile do R pra isso acontecer. Mas eu não sei nem por onde começar. Alguem tem um passo a passo ou um link que possa ler algum material para eu resolver essa questão? Abraços, Pedro Brasil

1 0