Setembro 2015 - R-br

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

Matriz de covariância fenotípica e genotípica
by Euriann Yamamoto 03 Set '15

03 Set '15

Bom dia, o R gera matriz de covariância genotípica e fenotípica e dados de análise de variância multivariada? Algum material que possua a rotina pra isso? Obrigada Euriann YamamotoDoutoranda em AgronomiaUniversidade Federal da Grande Dourados(67) 9910-6787

1 0

Exibição de matriz de correlação dada uma condição
by ASANTOS 03 Set '15

03 Set '15

Prezados listeiros, No meu CRM abaixo tenho uma matriz de correlação com o valor de p na diagonal superior o e valor r de Pearson da diagonal inferior, no entanto eu gostaria de exibir uma matriz de correlação apenas com os p valores maiores ou igual 0.05 e r maior ou igual a 0.08 isso é possível? Segue CRM: require(Hmisc)## Pacote #Variáveis artificiais var1<-sort(rnorm(500,1), decreasing = TRUE) var2<-rnorm(500,10) var3<-sort(rnorm(500,22)) var4<-sort(rnorm(500,10)) var5<-sort(rnorm(500,0.5), decreasing = TRUE) var6<-sort(rnorm(500,25), decreasing = TRUE) var7<-rnorm(500,10) dados<-cbind(var1,var2,var3,var4,var5,var6,var7) #Função que dispõem p valor na diagonal superior e r valor na inferior 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 } #Resultado da matriz cor.prob(dados) # -- ====================================================================== 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 ======================================================================

4 11

Como extrair dados PNAD
by Thaís Brenda Martins 03 Set '15

03 Set '15

Boa tarde pessoal, Estou tentando extrair estas variáveis do banco de dados PNAD 2013: Variável Posição Inicial Tamanho Descrição V7122 121 12 Rendimento mensal em dinheiro que recebia normalmente no mês de referência no(s) trabalho(s) da semana de referência V9532 327 12 Rendimento mensal em dinheiro que recebia normalmente, no mês de referência, no trabalho principal da semana de referência V9982 426 12 Rendimento mensal em dinheiro que recebia normalmente, no mês de referência, nesse trabalho secundário V1022 457 12 Rendimento mensal em dinheiro que recebia normalmente, no mês de referência, no(s) outro(s) trabalho(s) da semana de referência V9122 516 1 Era aposentado de instituto de previdência federal (INSS), estadual ou municipal ou do governo federal na semana de referência V1251 519 2 Código 01 - recebia normalmente rendimento de aposentadoria de instituto de previdência ou do governo federal, no mês de referência V1252 521 12 Rendimento de aposentadoria de instituto de previdência ou do governo federal que recebia, normalmente, no mês de referência V1257 547 2 Código 03 - recebia normalmente rendimento de outro tipo de aposentadoria, no mês de referência Já tentei rodar o próprio pacote do IBGE o IBGEPesq, mas não funciona. Já tentei com outros códigos e não consegui. Alguém que trabalhe com PNAD pode me ajudar? Abraços. Att.,Thaís Brenda Martins

5 4

Existe algum pacote que ajude na tabulação de dados?
by thiago franklin 02 Set '15

02 Set '15

Gostaria de saber se existir algum pacote que ajude na tabulação de dados diretamente no R.

2 1

Uso da função sort()
by Michelle Bau Graczyk 02 Set '15

02 Set '15

Boa noite, Eu preciso ordenar uma tabela de dados na forma crescente de datas. Na coluna 1 eu tenho as datas e nas outras 400 colunas eu tenho números correspondente a valores de venda de um certo produto. O problema é que quando eu aplico o sort() na coluna de datas, ele só ordena a mesma. Para ser mais clara, ela não leva junto a linha de dados com as outros 400 valores para a nova posição. Por favor, Vocês sabem me dizer como eu posso arrumar isto? Muito obrigada, Michelle

5 5