<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body style='font-family: Arial,Helvetica,sans-serif'>
<p>Recebido, ok</p>
<p> </p>
<div> </div>
<p>Em 15/09/2015 10:10, r-br-request@listas.c3sl.ufpr.br escreveu:</p>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px"><!-- html ignored --><!-- head ignored --><!-- meta ignored -->
<pre>Enviar submissões para a lista de discussão R-br para
<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Para se cadastrar ou descadastrar via WWW, visite o endereço
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
corpo da mensagem para
<a href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</a>
Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
<a href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</a>
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 <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:CAFU=EkZrrHii5HUZD=DDSUpHx=Kvj5XJ+sPdzOJcnfXLR+r=ew@mail.gmail.com">CAFU=EkZrrHii5HUZD=DDSUpHx=Kvj5XJ+sPdzOJcnfXLR+r=ew@mail.gmail.com</a>>
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:
<a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a>
<a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a>
<a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a>
========================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/aa1f2911/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/aa1f2911/attachment-0001.html</a>>
------------------------------
Message: 2
Date: Mon, 14 Sep 2015 18:10:29 -0300
From: Fátima Lima Paula <<a href="mailto:fatima.lima.paula@gmail.com">fatima.lima.paula@gmail.com</a>>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:CAJzNC0uhdmtXJ_n9ui1Wcsny_6G1FWVtPs7yC04Mw2vPRajrvw@mail.gmail.com">CAJzNC0uhdmtXJ_n9ui1Wcsny_6G1FWVtPs7yC04Mw2vPRajrvw@mail.gmail.com</a>>
Content-Type: text/plain; charset="utf-8"
Recebido
Em 14 de setembro de 2015 18:06, Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>>
escreveu:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a> <a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a> <a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a> ======================================================================== _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
<pre>
--
"Minha felicidade depende da qualidade dos meus pensamentos"
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/474a440a/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/474a440a/attachment-0001.html</a>>
------------------------------
Message: 3
Date: Mon, 14 Sep 2015 17:11:25 -0400
From: ASANTOS <<a href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID: <<a href="mailto:55F737FD.1050407@yahoo.com.br">55F737FD.1050407@yahoo.com.br</a>>
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:<a href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>======================================================================
Em 14/09/2015 17:06, Walmes Zeviani escreveu:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> <<a href="http://www.leg.ufpr.br/%7Ewalmes">http://www.leg.ufpr.br/%7Ewalmes</a>> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a> <a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a> <a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a> ======================================================================== _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</blockquote>
<pre>-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/7d5b92f6/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/7d5b92f6/attachment-0001.html</a>>
------------------------------
Message: 4
Date: Mon, 14 Sep 2015 18:29:43 -0300
From: Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: [R-br] Lista de discussão fora do ar
Message-ID:
<<a href="mailto:CAFU=EkZphO+dD1mLgWd+Fnd2n9s++ybhhgvC-L5sANm5PFG__A@mail.gmail.com">CAFU=EkZphO+dD1mLgWd+Fnd2n9s++ybhhgvC-L5sANm5PFG__A@mail.gmail.com</a>>
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:
<a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a>
<a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a>
<a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a>
========================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/4a54c0ce/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/4a54c0ce/attachment-0001.html</a>>
------------------------------
Message: 5
Date: Mon, 14 Sep 2015 18:39:44 -0300
From: Luiz Roberto Martins Pinto <<a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:CAK4=-FAkCpVjHbwt_9wnrj0uzwZx2M0pjyn62V0Fc1Kg5Z_t2w@mail.gmail.com">CAK4=-FAkCpVjHbwt_9wnrj0uzwZx2M0pjyn62V0Fc1Kg5Z_t2w@mail.gmail.com</a>>
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
<a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a>
skype: lrmpinto
<a href="http://lattes.cnpq.br/2732314327604831">http://lattes.cnpq.br/2732314327604831</a>
Em 14 de setembro de 2015 18:06, Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>>
escreveu:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a> <a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a> <a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a> ======================================================================== _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
<pre>-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/0491b447/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/0491b447/attachment-0001.html</a>>
------------------------------
Message: 6
Date: Mon, 14 Sep 2015 20:22:05 -0400
From: ASANTOS <<a href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: [R-br] Exibição de matriz de correlação dada uma
condição [RESOLVIDO]
Message-ID: <<a href="mailto:55F764AD.5010402@yahoo.com.br">55F764AD.5010402@yahoo.com.br</a>>
Content-Type: text/plain; charset="windows-1252"; Format="flowed"</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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:<a href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a> <a href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a> Lattes:<a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>====================================================================== Em 02/09/2015 22:29, Hélio Gallo Rocha escreveu:
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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]" <<a href="mailto:ml-node+s2285057n4665035h53@n4.nabble.com">ml-node+s2285057n4665035h53@n4.nabble.com</a> <mailto:<a href="mailto:ml-node%2Bs2285057n4665035h53@n4.nabble.com">ml-node%2Bs2285057n4665035h53@n4.nabble.com</a>>> 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 <<a href="http://is.na">http://is.na</a>>(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: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a> ====================================================================== 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> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível. ------------------------------------------------------------------------ If you reply to this email, your message will be added to the discussion below: <a href="http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-tp4664911p4665035.html">http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-tp4664911p4665035.html</a> To unsubscribe from R-br, click here <<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4">http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4</a>>. NAML <<a href="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">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</a>> _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
</blockquote>
<pre>--
======================================================================
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:<a href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes:<a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/391ad595/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/391ad595/attachment-0001.html</a>>
------------------------------
Message: 7
Date: Mon, 14 Sep 2015 22:05:54 -0300
From: juan manuel Otalora <<a href="mailto:juanmanuelotalora@gmail.com">juanmanuelotalora@gmail.com</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:CAAGqf2CEy_LFBcPann5FmF2QFA40v3x-z4nioBdOYwkMoJ2cmw@mail.gmail.com">CAAGqf2CEy_LFBcPann5FmF2QFA40v3x-z4nioBdOYwkMoJ2cmw@mail.gmail.com</a>>
Content-Type: text/plain; charset="utf-8"
ok
2015-09-14 18:39 GMT-03:00 Luiz Roberto Martins Pinto <
<a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a>>:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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 <a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a> skype: lrmpinto <a href="http://lattes.cnpq.br/2732314327604831">http://lattes.cnpq.br/2732314327604831</a> Em 14 de setembro de 2015 18:06, Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>> escreveu:
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a> <a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a> <a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a> ======================================================================== _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
_______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
<pre>
--
*Juan Manuel Otálora Villamil*
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/a5e991af/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150914/a5e991af/attachment-0001.html</a>>
------------------------------
Message: 8
Date: Tue, 15 Sep 2015 07:51:24 -0300
From: João Paulo Alves <<a href="mailto:joaopaulogoisalves@gmail.com">joaopaulogoisalves@gmail.com</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:CAMt4aOmXNte0BCjxwmnGuS3eshHdco8LOUeDwSAJXZQNdJfxuw@mail.gmail.com">CAMt4aOmXNte0BCjxwmnGuS3eshHdco8LOUeDwSAJXZQNdJfxuw@mail.gmail.com</a>>
Content-Type: text/plain; charset="utf-8"
recebido
Em 14 de setembro de 2015 18:06, Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>>
escreveu:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a> <a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a> <a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a> ======================================================================== _______________________________________________ R-br mailing list <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
<pre>
--
J.P.G.A.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/b58d7d7e/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/b58d7d7e/attachment-0001.html</a>>
------------------------------
Message: 9
Date: Tue, 15 Sep 2015 09:50:09 -0300 (BRT)
From: Rebeca Barreto <<a href="mailto:rebeca.mfbarreto@univasf.edu.br">rebeca.mfbarreto@univasf.edu.br</a>>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID:
<<a href="mailto:234955195.7654289.1442321409248.JavaMail.zimbra@univasf.edu.br">234955195.7654289.1442321409248.JavaMail.zimbra@univasf.edu.br</a>>
Content-Type: text/plain; charset="utf-8"
recebido
Rebeca Mascarenhas Fonseca Barreto
*****************************************************
De: "João Paulo Alves" <<a href="mailto:joaopaulogoisalves@gmail.com">joaopaulogoisalves@gmail.com</a>>
Para: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
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 < <a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a> > 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:
<a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a>
<a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a>
<a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a>
========================================================================
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem ( <a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a> ) e forneça código mínimo reproduzível.
--
J.P.G.A.
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/d467dbcd/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/d467dbcd/attachment-0001.html</a>>
------------------------------
Message: 10
Date: Tue, 15 Sep 2015 09:57:11 -0300
From: Humberto Hazin <<a href="mailto:hghazin@hotmail.com">hghazin@hotmail.com</a>>
To: <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da lista
Message-ID: <<a href="mailto:BAY402-EAS1566BC626ACE8DFA5BC99BDB45C0@phx.gbl">BAY402-EAS1566BC626ACE8DFA5BC99BDB45C0@phx.gbl</a>>
Content-Type: text/plain; charset="utf-8"
Recebido!
De: R-br [mailto:<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</a>] Em nome de Rebeca Barreto
Enviada em: Tuesday, September 15, 2015 9:50
Para: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista
recebido
Rebeca Mascarenhas Fonseca Barreto
*****************************************************
_____
De: "João Paulo Alves" < <mailto:<a href="mailto:joaopaulogoisalves@gmail.com">joaopaulogoisalves@gmail.com</a>> <a href="mailto:joaopaulogoisalves@gmail.com">joaopaulogoisalves@gmail.com</a>>
Para: <mailto:<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
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 <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a> <mailto:<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>> > 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:
<a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a>
<a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a>
<a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a>
========================================================================
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a> <mailto:<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
--
J.P.G.A.
_______________________________________________
R-br mailing list
<mailto:<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem ( <<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>> <a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/573125cf/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/573125cf/attachment-0001.html</a>>
------------------------------
Message: 11
Date: Tue, 15 Sep 2015 09:57:33 -0300
From: Hélio Gallo Rocha <<a href="mailto:heliogallorocha@gmail.com">heliogallorocha@gmail.com</a>>
To: r-br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: Re: [R-br] Exibição de matriz de correlação dada uma
condição [RESOLVIDO]
Message-ID:
<<a href="mailto:CA+ppPW7x=2T1a5nkpTLrTULE6M3JmCxkXL_K1XJOJqY1NW3=JQ@mail.gmail.com">CA+ppPW7x=2T1a5nkpTLrTULE6M3JmCxkXL_K1XJOJqY1NW3=JQ@mail.gmail.com</a>>
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] <
<a href="mailto:ml-node+s2285057n4665047h25@n4.nabble.com">ml-node+s2285057n4665047h25@n4.nabble.com</a>> escreveu:</pre>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>====================================================================== 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:
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>====================================================================== Em 02/09/2015 12:09, Hélio Gallo Rocha escreveu:
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px">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)</blockquote>
_______________________________________________ R-br mailing list [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665035&i=2> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível. ------------------------------ If you reply to this email, your message will be added to the discussion below: <a href="http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-tp4664911p4665035.html">http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-tp4664911p4665035.html</a> To unsubscribe from R-br, click here. NAML <<a href="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">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</a>></blockquote>
_______________________________________________ R-br mailing list[hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=3><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) 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: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a> ====================================================================== _______________________________________________ R-br mailing list [hidden email] <http:///user/SendEmail.jtp?type=node&node=4665047&i=6> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel. ------------------------------ If you reply to this email, your message will be added to the discussion below: <a href="http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-RESOLVIDO-tp4665047.html">http://r-br.2285057.n4.nabble.com/R-br-Exibicao-de-matriz-de-correlacao-dada-uma-condicao-RESOLVIDO-tp4665047.html</a> To unsubscribe from R-br, click here <<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4">http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4</a>> . NAML <<a href="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">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</a>></blockquote>
<pre>
--
Hélio Gallo Rocha
IFSULDEMINAS - Câmpus Muzambinho
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/df106136/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/df106136/attachment-0001.html</a>>
------------------------------
Message: 12
Date: Tue, 15 Sep 2015 13:10:50 +0000 (UTC)
From: Ari Clecius <<a href="mailto:ari072000@yahoo.com.br">ari072000@yahoo.com.br</a>>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
Subject: Re: [R-br] RES: [OFF-TOPIC] Teste sobre funcionamento da
lista
Message-ID:
<<a href="mailto:1226474123.131471.1442322650098.JavaMail.yahoo@mail.yahoo.com">1226474123.131471.1442322650098.JavaMail.yahoo@mail.yahoo.com</a>>
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 <<a href="mailto:hghazin@hotmail.com">hghazin@hotmail.com</a>> 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:<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</a>] Em nome de Rebeca Barreto
Enviada em: Tuesday, September 15, 2015 9:50
Para: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Assunto: Re: [R-br] [OFF-TOPIC] Teste sobre funcionamento da lista recebido Rebeca Mascarenhas Fonseca Barreto
*****************************************************De: "João Paulo Alves" <<a href="mailto:joaopaulogoisalves@gmail.com">joaopaulogoisalves@gmail.com</a>>
Para: <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
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 <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>> 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:
<a href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</a> | <a href="http://lattes.cnpq.br/4410617539281650">http://lattes.cnpq.br/4410617539281650</a>
<a href="http://git.leg.ufpr.br/walmes">http://git.leg.ufpr.br/walmes</a> | <a href="https://github.com/walmes">https://github.com/walmes</a>
<a href="https://www.mendeley.com/profiles/walmes-zeviani1/">https://www.mendeley.com/profiles/walmes-zeviani1/</a>
========================================================================
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
-- J.P.G.A.
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne� c�igo m�imo reproduz�el.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/9dc9361c/attachment.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150915/9dc9361c/attachment.html</a>>
------------------------------
Subject: Legenda do Digest
_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
------------------------------
Fim da Digest R-br, volume 57, assunto 5
****************************************
</pre>
</blockquote>
</body></html>