Novembro 2018 - R-br

[OFF -Tópic] Cotas em concursos para negros e índios!
by Andre Oliveira 12 Jun '49

12 Jun '49

Pessoal, tem um colegar meu que vou fazer um concurso ele é descendente de negro ele é pardo. Ele veio com a pergunta como provar que sou negro, pois, tem vagas reservada para negros e índios? Eu sinceramente não sei e não tenho ideia pois nunca tive esta curiosidade. O que de fato comprova sua raça? Algum documento? O que são usados em concursos para provar? obrigado André Oliveira Souza

5 6

Legenda eixo X
by Luciano F. Sgarbi 10 Jun '49

10 Jun '49

Prezados, Estou tentando centralizar a legenda do eixo X em uma figura com vários gráficos. Estou conseguindo centralizar a legenda da linha inferior como no exemplo, mas as linhas do meio não. par(mfrow=c(2,2)) plot(rnorm(100),xlab="",ylab="y1") plot(rnorm(100),xlab="",ylab="y2") mtext(side=1,cex=2,line=-1.8,text="Variável Explanatória 1",outer=TRUE) ### o problema está aqui, pois a legenda desce para a parte inferior da figura. plot(rnorm(100),xlab="",ylab="y1") plot(rnorm(100),xlab="",ylab="y2") mtext(side=1,cex=2,line=-1.8,text="Variável Explanatória 2",outer=TRUE)## Esse dá certo Alguém podia dar uma luz de como eu posso fazer isso? Abraços -- *Luciano F. Sgarbi* Mestrando em Ecologia e Evolução Laboratório de Ecologia de Insetos (sl. 222) Departamento de Ecologia Instituto de Ciências Biológicas - ICB 1 Universidade Federal de Goiás, campus II Goiânia-GO 74001-970 Brazil

2 2

COMPARAR TRATAMENTOS
by Edson Lira 02 Dez '18

02 Dez '18

Boa noite, os dados abaixo referem-se a 10 tratamentos e ao estagio de uma doença. O grau 2 é o estágio maior. doencaTrat 0 1 2 Total GM1 3 2 1 6GM2 0 2 4 6GM3 1 3 2 6GM4 0 3 2 5GM5 0 4 2 6GM6 0 1 5 6GM7 1 1 4 6GM8 0 0 6 6GM9 0 4 1 5GM10 0 0 6 6 Fiz um teste de associação (Exato de Fisher) e verifiquei que ha uma associação entre o tratamento e o estagio da doença. Agora gostaria de verificar qual dos tratamentos é o mais eficiente. Posso testar também: G1xG2G3xG4G5xG6G7xG8G9XG10 Alguém tem alguma sugestão? [ ]'s.Prof. Edson Lira, Me Estatístico Manaus-Amazonas

3 3

Re: [R-br] Digest R-br, volume 95, assunto 23
by Paulo Eduardo de Mesquita 30 Nov '18

30 Nov '18

Obrigado ao Daniel, ao Luciano e ao Jônatan, Cada uma das soluções apresentadas, contém, a sua forma, lições muito interessantes. A solução do Daniel, embora um pouco mais exaustiva, mostra como desmontar uma estrutura de dados em listas e depois fazer a engenharia reversa numa nova estrutura bidimensional na orientação desejada. Já as soluções do Luciano e também a do Jônatan; mais elegantes e econômicas que essas, só com mágica; e mágica não me interessa. Muito obrigado a todos, PM Em sex, 30 de nov de 2018 às 12:00, <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 > ou, via email, envie uma mensagem com a palavra 'help' no assunto ou > corpo da mensagem para > r-br-request(a)listas.c3sl.ufpr.br > > Você poderá entrar em contato com a pessoa que gerencia a lista pelo > endereço > r-br-owner(a)listas.c3sl.ufpr.br > > Quando responder, por favor edite sua linha Assunto assim ela será > mais específica que "Re: Contents of R-br digest..." > > > Tópicos de Hoje: > > 1. Re: Modificação da orientação de estrutura de dados > (Leonardo Mancini) > 2. Re: Modificação da orientação de estrutura de dados > (Daniel Guimarães Tiezzi) > 3. Re: Modificação da orientação de estrutura de dados (Jônatan) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 29 Nov 2018 12:04:32 -0200 > From: Leonardo Mancini <lmancini(a)gmail.com> > To: r-br(a)listas.c3sl.ufpr.br > Subject: Re: [R-br] Modificação da orientação de estrutura de > dados > Message-ID: > <CABAOmR02Yd4XgrYj92r47vpURiiivMDcYNo=sF= > G9daTjs9KhQ(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Paulo, > > Certamente há uma maneira mais elegante de fazer isso, mas talvez esse > código te dê alguma pista: > > df %>% > spread(CAUSA, CAUSA) %>% > unite(CAUSAS, A, B, C, D, E, F, G, H, I, sep = ",", remove = T) %>% > mutate(CAUSAS = str_remove_all(CAUSAS, ",NA")) %>% > mutate(CAUSAS = str_remove_all(CAUSAS, "NA,")) > > Abs > > Em qui, 29 de nov de 2018 às 10:30, Paulo Eduardo de Mesquita por (R-br) < > r-br(a)listas.c3sl.ufpr.br> escreveu: > > > Prezado(a)s Colegas > > > > Peço ajuda para um problema simples para o qual não encontro solução. > > > > O código abaixo gera uma estrutura de dados de trabalho: > > > > [image: demo1.png] > > > > Eu quero muda-la para esse formato: > > > > [image: demo2.png] > > > > > > ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3) > > NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", > > "capr") > > IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81) > > SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F") > > CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I") > > > > df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA) > > > > df > > > > Procurei soluções com as com as funções do pacote reshape2 (unmelt e > > dcast) e group_by do dplyr, mas não tive sucesso. > > > > Fico grato por alguma dica. > > > > Muito obrigado pela atenção. > > -- > > Paulo Eduardo de Mesquita > > Disciplina de Infectologia - Faculdade de Medicina Universidade do Oeste > > Paulista Presidente Prudente - São Paulo - Brasil > > telefone: 5518 97718261 > > _______________________________________________ > > R-br mailing list > > R-br(a)listas.c3sl.ufpr.br > > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > > código mínimo reproduzível. > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/7bd3a241/atta… > > > -------------- Próxima Parte ---------- > Um anexo não-texto foi limpo... > Nome: demo1.png > Tipo: image/png > Tamanho: 3960 bytes > Descrição: não disponível > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/7bd3a241/atta… > > > -------------- Próxima Parte ---------- > Um anexo não-texto foi limpo... > Nome: demo2.png > Tipo: image/png > Tamanho: 2925 bytes > Descrição: não disponível > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/7bd3a241/atta… > > > > ------------------------------ > > Message: 2 > Date: Thu, 29 Nov 2018 12:26:45 -0200 > From: Daniel Guimarães Tiezzi <dtiezzi(a)usp.br> > To: "a lista Brasileira oficial de discussão do programa R." > <r-br(a)listas.c3sl.ufpr.br> > Cc: Paulo Eduardo de Mesquita <paulomesquita7(a)gmail.com> > Subject: Re: [R-br] Modificação da orientação de estrutura de > dados > Message-ID: <060B7FE8-BC19-4D9B-8083-07CE255C6617(a)usp.br> > Content-Type: text/plain; charset="utf-8" > > Pode ser que não seja o mais rápido, mas resolve > > ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3) > NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", > "capr") > IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81) > SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F") > CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I") > > df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA) > > df > > names <- unique(df$NOME) > id_l = list() > nome_l = list() > idade_l = list() > sexo_l = list() > causa_l = list() > > for (i in 1:length(names)) { > name = names[i] > block = as.data.frame(df[df$NOME == name, ]) > id = block$ID[1] > nome = block$NOME[1] > idade = block$IDADE[1] > sexo = block$SEXO[1] > causa = vector() > for (j in 1:nrow(block)) { > causa = paste0(causa,block$CAUSA[j], sep = ',') > } > print(causa) > id_l[[paste0(i)]] <- id > nome_l[[paste0(i)]] <- nome > idade_l[[paste0(i)]] <- idade > sexo_l[[paste0(i)]] <- sexo > causa_l[[paste0(i)]] <- causa > } > > unlist(causa_l) > > dfNew <- data.frame(ID = unlist(id_l), NOME= unlist(nome_l), IDADE= > unlist(idade_l), SEXO= unlist(sexo_l), CAUSA= unlist(causa_l)) > print(dfNew) > > Abraço > > daniel > > Daniel Tiezzi, MD, PhD > Professor Associado > Departamento de Ginecologia e Obstetrícia > Setor de Mastologia e Oncologia Ginecológica > Faculdade de Medicina de Ribeirão Preto - USP > Tel.: 16 3602-2488 > e-mail: dtiezzi(a)fmrp.usp.br > > > On Nov 29, 2018, at 10:30 AM, Paulo Eduardo de Mesquita por (R-br) < > r-br(a)listas.c3sl.ufpr.br> wrote: > > > > ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3) > > NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", > "capr", "capr") > > IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81) > > SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F") > > CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I") > > > > df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA) > > > > df > > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/778f1d5b/atta… > > > > ------------------------------ > > Message: 3 > Date: Thu, 29 Nov 2018 14:08:54 -0200 > From: Jônatan <jdtatsch(a)gmail.com> > To: a lista Brasileira oficial de discussão do programa R. > <r-br(a)listas.c3sl.ufpr.br> > Subject: Re: [R-br] Modificação da orientação de estrutura de > dados > Message-ID: > <CAEiHnvPm3sJcOZSQE1HnNnSrHY= > FrYZrwaNCXmw9OLbLmNH6Fw(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Alternativa também com dplyr. > > library(dplyr) > df %>% > group_by_at(vars(-CAUSA)) %>% > summarise(CAUSA = paste(CAUSA, collapse = ", ")) > > > On Thu, Nov 29, 2018 at 12:04 PM Leonardo Mancini por (R-br) < > r-br(a)listas.c3sl.ufpr.br> wrote: > > > Paulo, > > > > Certamente há uma maneira mais elegante de fazer isso, mas talvez esse > > código te dê alguma pista: > > > > df %>% > > spread(CAUSA, CAUSA) %>% > > unite(CAUSAS, A, B, C, D, E, F, G, H, I, sep = ",", remove = T) %>% > > mutate(CAUSAS = str_remove_all(CAUSAS, ",NA")) %>% > > mutate(CAUSAS = str_remove_all(CAUSAS, "NA,")) > > > > Abs > > > > Em qui, 29 de nov de 2018 às 10:30, Paulo Eduardo de Mesquita por (R-br) > < > > r-br(a)listas.c3sl.ufpr.br> escreveu: > > > >> Prezado(a)s Colegas > >> > >> Peço ajuda para um problema simples para o qual não encontro solução. > >> > >> O código abaixo gera uma estrutura de dados de trabalho: > >> > >> [image: demo1.png] > >> > >> Eu quero muda-la para esse formato: > >> > >> [image: demo2.png] > >> > >> > >> ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3) > >> NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", > "capr", > >> "capr") > >> IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81) > >> SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F") > >> CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I") > >> > >> df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA) > >> > >> df > >> > >> Procurei soluções com as com as funções do pacote reshape2 (unmelt e > >> dcast) e group_by do dplyr, mas não tive sucesso. > >> > >> Fico grato por alguma dica. > >> > >> Muito obrigado pela atenção. > >> -- > >> Paulo Eduardo de Mesquita > >> Disciplina de Infectologia - Faculdade de Medicina Universidade do > Oeste > >> Paulista Presidente Prudente - São Paulo - Brasil > >> telefone: 5518 97718261 > >> _______________________________________________ > >> R-br mailing list > >> R-br(a)listas.c3sl.ufpr.br > >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > >> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > >> código mínimo reproduzível. > > > > _______________________________________________ > > R-br mailing list > > R-br(a)listas.c3sl.ufpr.br > > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > > código mínimo reproduzível. > > > > -- > ############################################################### > ## Jônatan Dupont Tatsch > ## Professor do Departamento de Física > ## Centro de Ciências Exatas e Naturais (CCNE) > ## Universidade Federal de Santa Maria - UFSM > ## Faixa de Camobi, Prédio 13 - Campus UFSM - Santa Maria, RS, Brasil - > 97105-900 > ## Telefone: +55(55)33012083 > ## www.ufsm.br/meteorologia > ############################################################### > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/atta… > > > -------------- Próxima Parte ---------- > Um anexo não-texto foi limpo... > Nome: demo1.png > Tipo: image/png > Tamanho: 3960 bytes > Descrição: não disponível > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/atta… > > > -------------- Próxima Parte ---------- > Um anexo não-texto foi limpo... > Nome: demo2.png > Tipo: image/png > Tamanho: 2925 bytes > Descrição: não disponível > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20181129/c0417ec9/atta… > > > > ------------------------------ > > 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 > > > ------------------------------ > > Fim da Digest R-br, volume 95, assunto 23 > ***************************************** > -- Paulo Eduardo de Mesquita Disciplina de Infectologia - Faculdade de Medicina Universidade do Oeste Paulista Presidente Prudente - São Paulo - Brasil telefone: 5518 97718261

1 0

Modificação da orientação de estrutura de dados
by Paulo Eduardo de Mesquita 29 Nov '18

29 Nov '18

Prezado(a)s Colegas Peço ajuda para um problema simples para o qual não encontro solução. O código abaixo gera uma estrutura de dados de trabalho: [image: demo1.png] Eu quero muda-la para esse formato: [image: demo2.png] ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3) NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", "capr") IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81) SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F") CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I") df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA) df Procurei soluções com as com as funções do pacote reshape2 (unmelt e dcast) e group_by do dplyr, mas não tive sucesso. Fico grato por alguma dica. Muito obrigado pela atenção. -- Paulo Eduardo de Mesquita Disciplina de Infectologia - Faculdade de Medicina Universidade do Oeste Paulista Presidente Prudente - São Paulo - Brasil telefone: 5518 97718261

4 3

abrir arquivo muito grande sem ter como alterar a fonte
by Cinara Santos 27 Nov '18

27 Nov '18

Olá! Estou com um arquivo muito grande, do stata, pra ser aberto... A versão do stata que tenho está abaixo da versão utilizada pra gerar o arquivo com o qual preciso trabalhar, de modo que não posso manipulá-lo : dividir, salvar em txt.... nada disso... E ele é muito grande.... tentei importar no R e deu estouro de memória.... ------- # 1st trying .................27/11/2018 # ----- library(rio) df <- import(file = "parte1.dta") #--------------------- # Error: memory exhausted (limit reached?) # Time difference of 10.22388 mins # # # # 2nd trying .................27/11/2018 # ----- library(haven) df2 <- read_dta(" parte1.dta", encoding = NULL) #--------------------- # Error: memory exhausted (limit reached?) # In addition: Warning message: # In doTryCatch(return(expr), name, parentenv, handler) : # restarting interrupted promise evaluation # # Time difference of 9.341693 mins # # # # 3rd trying .................27/11/2018 # ----- # library(rio) # convert("parte1.dta", "parte1.txt") #--------------------- # Error: memory exhausted (limit reached?) # Time difference of 10.64566 mins Alguem tem alguma sugestao pra eu conseguir abrir aos pouquinhos???? Pergunto isso pq, se fosse txt acho que dava, com os comandos a seguir: ------- dados <- as.data.frame(scan("parte1.dta", skip=1,what=as.list(rep("\t",7)))) # não leu, mas parece que são 462 variáveis ===> 462 obs. of 7 variables heade_ <- unlist(scan("parte1.dta", nlines=1,what=as.list(rep("\t",7)))) ------------------------ Cinara Santos whatsApp (32) 9.8416-0441

1 0

Colocar o nome de espécie em itálico e deixar sp. normal
by Tamily Santos 26 Nov '18

26 Nov '18

Olá pessoal, Estou fazendo curvas de abundância, no entanto tenho algumas espécies com sp., sp. 1 e sp. 2. Mas quando rodo o script todas as espécies ficam em itálico. Não consigo deixar os sp. em letra normal. Se alguém puder dar uma dica de como fazer essa manipulação, seria de muita ajuda! E agradeço desde já por qualquer dica. Obrigada! Tamily Santos par(las=2, mar=c(12, 5, 3, 3), family = "serif") plot(rad.auati, type="n", xaxt="n", xlab="", bty="l", ylab="Abundance") points(rad.auati, pch=21, cex=1.5) lines(rad.auati$models$Mandelbrot, lwd=2, lty=1) lines(rad.auati$models$Null, lwd=2, lty=2) axis(1, at=seq(1,length(abu.rel.auati.s),1), labels=nomes.auati, font=3, cex=0.2) legend("topright", legend=c("Mandelbrot", "Null"), lwd=2, lty=c(1,2), bty="n") rect(0.002,1,5.5,150, col=rgb(0,0,0,0.2),lwd=0) arrows(7.5,70,5.5,70, length=0.07) text(12, 65, "Hyperdominant species \n> 50% of individuals", cex=0.7)

1 0

usar funções em C dentro do objeto DLL
by Cleber N.Borges 26 Nov '18

26 Nov '18

olá a todos... boa tarde! Estou tentando aprender como usar uma DLL, via "dyn.load" e ".C" dentro do R. Fiz uns testes (abaixo tem um pedaço do que tentei) e não consegui entender como fazer isso. Se alguém puder dar uma dica de como fazer essa manipulação, seria de muita ajuda! E agradeço desde já por qualquer dica. Obrigado! Cleber ### No pdf explicando o SDK, tem detalhe da função: FDwfGetVersion(char szVersion[32]) Description: Retrieves the version string. The version string is composed of major, minor, and build numbers (i.e., “2.0.19”). ############################################################## ### No R, eu tentei: > dwf <- dyn.load("C:\\Program Files (x86)\\Digilent\\WaveForms3\\dwf") > is.loaded("FDwfGetVersion") [1] TRUE > result <- .C("FDwfGetVersion", ver=as.character() ) > str(result) List of 1 $ ver: chr(0) > ################################# Mas em Python, vi que o resultado é o seguinte ( exemplos em Python são disponibilizados pelo fabricante) ################################# >>> from ctypes import * >>> dwf = cdll.dwf >>> version = create_string_buffer(16) >>> dwf.FDwfGetVersion(version) 1 >>> print("DWF Version: "+str(version.value)) DWF Version: 3.8.22 >>> --- Este email foi escaneado pelo Avast antivírus. https://www.avast.com/antivirus

6 9

RMarkdown com valores de objetos
by Juliano Bortolini 25 Nov '18

25 Nov '18

Prezados, Gostaria de usar expressões matemáticas com valores de objetos. É possível? Exemplo: ```{r} beta1 <- 1.2 beta2 <- 3 ``` $$ Y_i = beta1 x_{1,i} + beta2 x_{2,i} + \epsilon_i $$ Resultado que eu gostaria: $$ Y_i = 1.2 x_{1,i} + 3 x_{2,i} + \epsilon_i $$ Agradeço pela atenção. []s Juliano

3 3

erro no tinytex::install_tinytex()
by Luiz Leal 25 Nov '18

25 Nov '18

Prezados bom dia, ao tentar instalar o tinytex dá o seguinte erro: > tinytex::install_tinytex()tentando a URL 'http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip'Content length 348 bytestentando a URL 'http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip'tentando a URL 'http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip'Error in download_file("http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip", : No download method works (auto/wininet/wget/curl/lynx)Além disso: Warning messages:1: In download.file(url, output, ..., method = method) : cannot open URL 'http://linorg.usp.br/CTAN/systems/texlive/tlnet/install-tl.zip': HTTP status was '503 Service Unavailable'2: In download.file(url, output, ..., method = method) : cannot open URL 'http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip': HTTP status was '503 Service Unavailable'3: In download.file(url, output, ..., method = method) : cannot open URL 'http://mirror.ctan.org/systems/texlive/tlnet/install-tl.zip': HTTP status was '503 Service Unavailable'Please restart your R session and IDE (if you are using one, such as RStudio or Emacs) and check if tinytex:::is_tinytex() is TRUE.> > tinytex:::is_tinytex()[1] FALSE Alguém sabe como resolver? Já procurei no google e não achei.Desde já agradeço Luiz

2 1