Recebido, ok
Em 15/09/2015 10:10, r-br-request@listas.c3sl.ufpr.br escreveu:
Enviar submissões para a lista de discussão R-br para r-br@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@listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço r-br-owner@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@gmail.com> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAFU=EkZrrHii5HUZD=DDSUpHx=Kvj5XJ+sPdzOJcnfXLR+r=ew@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 | http://lattes.cnpq.br/4410617539281650 http://git.leg.ufpr.br/walmes | https://github.com/walmes https://www.mendeley.com/profiles/walmes-zeviani1/ ======================================================================== -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/aa1f2911/attachment-0001.html> ------------------------------ Message: 2 Date: Mon, 14 Sep 2015 18:10:29 -0300 From: Fátima Lima Paula <fatima.lima.paula@gmail.com> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAJzNC0uhdmtXJ_n9ui1Wcsny_6G1FWVtPs7yC04Mw2vPRajrvw@mail.gmail.com> Content-Type: text/plain; charset="utf-8" Recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani <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 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@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.-- "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/attachment-0001.html> ------------------------------ Message: 3 Date: Mon, 14 Sep 2015 17:11:25 -0400 From: ASANTOS <alexandresantosbr@yahoo.com.br> To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <55F737FD.1050407@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@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680====================================================================== 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 <http://www.leg.ufpr.br/%7Ewalmes> | 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@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/20150914/7d5b92f6/attachment-0001.html> ------------------------------ Message: 4 Date: Mon, 14 Sep 2015 18:29:43 -0300 From: Walmes Zeviani <walmeszeviani@gmail.com> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: [R-br] Lista de discussão fora do ar Message-ID: <CAFU=EkZphO+dD1mLgWd+Fnd2n9s++ybhhgvC-L5sANm5PFG__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 | http://lattes.cnpq.br/4410617539281650 http://git.leg.ufpr.br/walmes | https://github.com/walmes https://www.mendeley.com/profiles/walmes-zeviani1/ ======================================================================== -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/4a54c0ce/attachment-0001.html> ------------------------------ Message: 5 Date: Mon, 14 Sep 2015 18:39:44 -0300 From: Luiz Roberto Martins Pinto <luizroberto.uesc@gmail.com> To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAK4=-FAkCpVjHbwt_9wnrj0uzwZx2M0pjyn62V0Fc1Kg5Z_t2w@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@gmail.com skype: lrmpinto http://lattes.cnpq.br/2732314327604831 Em 14 de setembro de 2015 18:06, Walmes Zeviani <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 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@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/20150914/0491b447/attachment-0001.html> ------------------------------ Message: 6 Date: Mon, 14 Sep 2015 20:22:05 -0400 From: ASANTOS <alexandresantosbr@yahoo.com.br> To: r-br@listas.c3sl.ufpr.br Subject: [R-br] Exibição de matriz de correlação dada uma condição [RESOLVIDO] Message-ID: <55F764AD.5010402@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@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@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-dada-uma-condicao-tp4664911p4665035.html To unsubscribe from R-br, click here <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4>. NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml> _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.-- ====================================================================== 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@cas.ifmt.edu.br Lattes:http://lattes.cnpq.br/1360403201088680 ====================================================================== -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/391ad595/attachment-0001.html> ------------------------------ Message: 7 Date: Mon, 14 Sep 2015 22:05:54 -0300 From: juan manuel Otalora <juanmanuelotalora@gmail.com> To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAAGqf2CEy_LFBcPann5FmF2QFA40v3x-z4nioBdOYwkMoJ2cmw@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@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@gmail.com skype: lrmpinto http://lattes.cnpq.br/2732314327604831 Em 14 de setembro de 2015 18:06, Walmes Zeviani <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 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@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível._______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.-- *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/attachment-0001.html> ------------------------------ Message: 8 Date: Tue, 15 Sep 2015 07:51:24 -0300 From: João Paulo Alves <joaopaulogoisalves@gmail.com> To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <CAMt4aOmXNte0BCjxwmnGuS3eshHdco8LOUeDwSAJXZQNdJfxuw@mail.gmail.com> Content-Type: text/plain; charset="utf-8" recebido Em 14 de setembro de 2015 18:06, Walmes Zeviani <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 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@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. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/b58d7d7e/attachment-0001.html> ------------------------------ Message: 9 Date: Tue, 15 Sep 2015 09:50:09 -0300 (BRT) From: Rebeca Barreto <rebeca.mfbarreto@univasf.edu.br> To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <234955195.7654289.1442321409248.JavaMail.zimbra@univasf.edu.br> Content-Type: text/plain; charset="utf-8" recebido Rebeca Mascarenhas Fonseca Barreto ***************************************************** De: "João Paulo Alves" <joaopaulogoisalves@gmail.com> Para: r-br@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@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@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@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/20150915/d467dbcd/attachment-0001.html> ------------------------------ Message: 10 Date: Tue, 15 Sep 2015 09:57:11 -0300 From: Humberto Hazin <hghazin@hotmail.com> To: <r-br@listas.c3sl.ufpr.br> Subject: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <BAY402-EAS1566BC626ACE8DFA5BC99BDB45C0@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@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@gmail.com> Para: <mailto:r-br@listas.c3sl.ufpr.br> r-br@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@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 | 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@listas.c3sl.ufpr.br <mailto: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. -- J.P.G.A. _______________________________________________ R-br mailing list <mailto:R-br@listas.c3sl.ufpr.br> R-br@listas.c3sl.ufpr.br <https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-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> 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/20150915/573125cf/attachment-0001.html> ------------------------------ Message: 11 Date: Tue, 15 Sep 2015 09:57:33 -0300 From: Hélio Gallo Rocha <heliogallorocha@gmail.com> To: r-br <r-br@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@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@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====================================================================== 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====================================================================== Em 02/09/2015 12:09, Hélio Gallo Rocha escreveu:_______________________________________________ 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 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)[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 ====================================================================== _______________________________________________ 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 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-dada-uma-condicao-RESOLVIDO-tp4665047.html To unsubscribe from R-br, click here <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4> . NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>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-dada-uma-condicao-tp4664911p4665035.html To unsubscribe from R-br, click here. NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>-- 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/attachment-0001.html> ------------------------------ Message: 12 Date: Tue, 15 Sep 2015 13:10:50 +0000 (UTC) From: Ari Clecius <ari072000@yahoo.com.br> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da lista Message-ID: <1226474123.131471.1442322650098.JavaMail.yahoo@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@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@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@gmail.com> Para: r-br@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@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@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@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel. _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne� 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/attachment.html> ------------------------------ Subject: Legenda do Digest _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ------------------------------ Fim da Digest R-br, volume 57, assunto 5 ****************************************