Agosto 2017 - 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

Diferença resultados agricolae::HSD.test e lsmeas
by Fernando Antonio de souza 05 Nov '18

05 Nov '18

Pessoal, poque o resultado dos testes HSD.test e lsmeans diferem neste exemplo? O resultado fornecido pelo lsmeas está em acordo com o material de onde tirei esse exemplo e que havia sido rodado no SAS. Já o HSD.test difere tanto no valor das médias estimadas como na significancia. install.packages(c("agricolae",lsmeans")) library(agricolae) library(lsmeans) COVARIANCIA<-read.csv(" https://www.dropbox.com/s/0uvwqnnvsdsvphc/Covariancia.csv?raw=1",head=TRUE) modeloCOVAR<-lm(GANHO~PESOINIC+DIETA,data=COVARIANCIA) anova(modeloCOVAR) HSD.test(modeloCOVAR,"DIETA",console=TRUE) lsmeans(modeloCOVAR,pairwise~DIETA,adjust="tukey") -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza(a)gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================

3 2

Salvar saídas de um loop
by Yury Duarte 10 Fev '18

10 Fev '18

Boa tarde colegas listeiros! Estou tendo um pequeno problema para salvar as saídas de um loop que fiz para preencher uma matriz com dados de diferentes arquivos. Meus arquivos base possuem informações anuais de produtividade de 15 locais para um determinado mês. Construí o loop com intenção de gerar um arquivo por local, contemplando as produtividades de cada mês (nas linhas) e de cada ano (nas colunas). Conferi o output do único arquivo salvo pelo script e os valores correspondem ao desejado, então acredito que a lógica para o preenchimento da matriz em branco esteja correta. Os arquivos para executar a simulação estão em anexo e o script está no corpo do email. Desde já, agradeço pela colaboração de todos! rm(list = ls()) raiz = 'C:\\Users\\Yury\\Desktop\\Mestrado\\1_TESE\\Model_Data\\Maize\\PREVISAO\\PA\\' estrategia = c('E1', 'E2', 'E3', 'E4', 'E5') meses = c('setembro', 'outubro', 'novembro', 'dezembro', 'janeiro', 'fevereiro', 'marco', 'abril') cidade = c("abelardoluz", "altamira", "brasilia", "caarapo", "catalao", "lagarto", "machado", "mateiros", "muitoscapoes", "piracicaba", "pontagrossa", "primaveradoleste", "srmangab", "sdesiderio", "urucui") anos = c(1980:2012) previsao = matrix(NA, nrow = length(meses), ncol = length(1980:2012)) colnames(previsao) = 1980:2012 #for(e in 1:length(estrategias)){ for(m in 1:length(meses)){ a = read.table(paste0(raiz, 'E1\\', meses[m],'\\', 'final.txt'), header = T, sep = '\t') for(city in 1:length(cidade)){ for(i in 1:length(anos)){ previsao[m,i] = a[city,i] } } write.table(previsao, paste0(raiz, 'E1\\', cidade[city],'.txt'), row.names = F, col.names = T, sep = '\t') } #} Yury Duarte Engenheiro Agrônomo - ESALQ/USP

2 1

Como ver o que uma função faz
by Pedro Emmanuel Alvarenga Americano do Brasil 03 Set '17

03 Set '17

Amigos de R, Gostaria de poder ver a sequencia de operações que uma função faz. Na maioria das funções, basta digitar o nome da função no console, por exemplo > trimws function (x, which = c("both", "left", "right")) { which <- match.arg(which) mysub <- function(re, x) sub(re, "", x, perl = TRUE) if (which == "left") return(mysub("^[ \t\r\n]+", x)) if (which == "right") return(mysub("[ \t\r\n]+$", x)) mysub("[ \t\r\n]+$", mysub("^[ \t\r\n]+", x)) } <bytecode: 0x0000000002fdbd78> <environment: namespace:base> No entanto, algumas funções não seguem essa regra e eu não sei como fazer. Por exemplo library(Hmisc) > Function function (object, ...) UseMethod("Function") <environment: namespace:Hmisc> Alguma dica pra conseguir enxergar as operações dessa função? Abraço forte, Pedro Brasil

6 8

Barplot com dois eixos
by Diogo Jerônimo 02 Set '17

02 Set '17

Prezados, bom dia!!! Estou fazendo um barplot, cujos dados estão estruturados no R em forma de matriz como no exemplo abaixo: dados=data.frame(y1=c(110,120,115,130,125),y2=c(102,105,104,103,107)) dadosest=as.matrix(dados) barplot(dadosest,ylim=c(0,150),beside=TRUE) Eu gostaria de criar um novo eixo (à direita), com os valores correspondentes a y1 e y2 plotados como "bolinhas", e se possível com uma reta unindo essas "bolinhas"... Alguém teria sugestão de como se fazer isso? Eu empreguei a função par(new=T), mas no meu teste, o novo gráfico ficou muito desproporcional. Se alguém souber e puder ajudar... agradecido desde já!!! Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE ACel:(21)99680-8535Email: diogojose21@yahoo.com.brhttp://lattes.cnpq.br/8996149312896520

3 4

Re: [R-br] Digest R-br, volume 80, assunto 18
by Carolina Pena 30 Ago '17

30 Ago '17

Quando eu peço para compilar no R-Studio (knit) eu sempre seleciono "UTF8". Outra coisa que notei é que se eu comentar a linha: # kable_styling(latex_options = c("repeat_header")) o código funciona com o caption com acento. Porém ele não repete o cabeçalho da tabela na próxima página. Em 30 de agosto de 2017 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. R Markdown - uso de acento no caption do kable (Carolina Pena) > 2. Re: R Markdown - uso de acento no caption do kable > (Elias T. Krainski) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Wed, 30 Aug 2017 10:15:14 -0300 > From: Carolina Pena <carolinasend(a)gmail.com> > To: r-br(a)listas.c3sl.ufpr.br > Subject: [R-br] R Markdown - uso de acento no caption do kable > Message-ID: > <CANwSsyBguzrhi4HJHXEoSP4g9p_gnTF2yrTAwH7NQyZjgiyavw@mail. > gmail.com> > Content-Type: text/plain; charset="utf-8" > > Bom dia, > > Estou trabalhando com o R Markdown e preciso fazer uma tabela longa > parecida com o exemplo abaixo. > O problema é que aparentemente o caption = "Número de registros" está > gerando um erro. Ao retirar o acento, ou seja, escrever caption = "Numero > de registros" o código funciona. Porém não gostaria de retirar os acentos. > Alguém já teve esse tipo de problema? > > > ```{r, echo=FALSE, result = 'asis'} > library(kableExtra) > library(knitr) > options(knitr.table.format = "latex") > > long_dt <- rbind(mtcars, mtcars) > kable(long_dt, longtable = T, booktabs = T, caption = "Número de > registros") %>% > add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6)) %>% > kable_styling(latex_options = c("repeat_header")) > > ``` > > No cabeçalho o R Markdown incluí os seguintes pacotes do Latex, mas o erro > se manteve. > > --- > output: > pdf_document: > keep_tex: true > fig_caption: true > latex_engine: pdflatex > header-includes: > - \usepackage[brazilian]{babel} # idioma > - \usepackage[utf8]{inputenc} # acento > -- > > Muito obrigada, > > Carolina Pena > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/ > 20170830/b2a9153e/attachment-0001.html> > > ------------------------------ > > Message: 2 > Date: Wed, 30 Aug 2017 10:33:12 -0300 > From: "Elias T. Krainski" <eliaskrainski(a)yahoo.com.br> > To: r-br(a)listas.c3sl.ufpr.br > Subject: Re: [R-br] R Markdown - uso de acento no caption do kable > Message-ID: <308aa375-a3d5-9a75-9e5e-756a218b474f(a)yahoo.com.br> > Content-Type: text/plain; charset="utf-8"; Format="flowed" > > Quando vc coloca > > \usepackage[utf8]{inputenc} > > o que você colocar entre [] deve ser o mesmo que o locale do seu sistema. > > Elias > > > On 30/08/2017 10:15, Carolina Pena via R-br wrote: > > Bom dia, > > > > Estou trabalhando com o R Markdown e preciso fazer uma tabela longa > > parecida com o exemplo abaixo. > > O problema é que aparentemente o caption = "Número de registros" está > > gerando um erro. Ao retirar o acento, ou seja, escrever caption = > > "Numero de registros" o código funciona. Porém não gostaria de retirar > > os acentos. Alguém já teve esse tipo de problema? > > > > > > ```{r, echo=FALSE, result = 'asis'} > > library(kableExtra) > > library(knitr) > > options(knitr.table.format = "latex") > > > > long_dt <- rbind(mtcars, mtcars) > > kable(long_dt, longtable = T, booktabs = T, caption = "Número de > > registros") %>% > > add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6)) %>% > > kable_styling(latex_options = c("repeat_header")) > > > > ``` > > > > No cabeçalho o R Markdown incluí os seguintes pacotes do Latex, mas o > > erro se manteve. > > > > --- > > output: > > pdf_document: > > keep_tex: true > > fig_caption: true > > latex_engine: pdflatex > > header-includes: > > - \usepackage[brazilian]{babel} # idioma > > - \usepackage[utf8]{inputenc} # acento > > -- > > > > Muito obrigada, > > > > Carolina Pena > > > > > > _______________________________________________ > > 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/ > 20170830/9c234a9e/attachment-0001.html> > > ------------------------------ > > 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 80, assunto 18 > ***************************************** > -- Carolina Pena Diretoria de Processos Seletivos Pró-Reitoria de Graduação Setor de Estatística Contato: (31) 3409-4543 Contato Cel: (31) 8456-7052

2 1

R Markdown - uso de acento no caption do kable
by Carolina Pena 30 Ago '17

30 Ago '17

Bom dia, Estou trabalhando com o R Markdown e preciso fazer uma tabela longa parecida com o exemplo abaixo. O problema é que aparentemente o caption = "Número de registros" está gerando um erro. Ao retirar o acento, ou seja, escrever caption = "Numero de registros" o código funciona. Porém não gostaria de retirar os acentos. Alguém já teve esse tipo de problema? ```{r, echo=FALSE, result = 'asis'} library(kableExtra) library(knitr) options(knitr.table.format = "latex") long_dt <- rbind(mtcars, mtcars) kable(long_dt, longtable = T, booktabs = T, caption = "Número de registros") %>% add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6)) %>% kable_styling(latex_options = c("repeat_header")) ``` No cabeçalho o R Markdown incluí os seguintes pacotes do Latex, mas o erro se manteve. --- output: pdf_document: keep_tex: true fig_caption: true latex_engine: pdflatex header-includes: - \usepackage[brazilian]{babel} # idioma - \usepackage[utf8]{inputenc} # acento -- Muito obrigada, Carolina Pena

2 1

não paramétrica - anova de friedman
by Ana Maria Nievas 28 Ago '17

28 Ago '17

Olá pessoal! Preciso fazer a anova de friedman, porém estou com dificuldade em como deve ser a estrutura do dataframe. Podem me ajudar? Obrigada!

2 1

Re: [R-br] não parametrica - kruskal e dunn
by Emerson Cotta Bodevan 26 Ago '17

26 Ago '17

Prezados, Aproveitando... o teste kruskal é o equivalente não paramétrico da ANOVA one-way. E qual seria o equivalente não paramétrico do ANOVA two-way? E o teste post-hoc, no caso two-way, seria o teste Dunn? Obrigado, Em 25 de ago de 2017 11:10 PM, "Graciliano Galdino via R-br" < r-br(a)listas.c3sl.ufpr.br> escreveu: Olá Cristina, Eu uso o comando kruskal.test (de pacote básico do R, o stats) e o teste de Dunn do pacote PMCMR (o comando é posthoc.kruskal.dunn.test). É funcional e tem um output bem mais agradável de ver que o "listão" do TukeyHSD da ANOVA. 2017-08-25 9:30 GMT-03:00 Christina Grupioni via R-br < r-br(a)listas.c3sl.ufpr.br>: > > Bom dia, listeir@s! > > Estou com um conjunto de dados cujos resíduos não tem distribuição normal. > Sendo assim, necessito fazer analise não-paramétrica. Kruskal-wallis, > seguida do teste de Dunn. Alguém pode me orientar em como fazer essas > análises no R, por gentileza? > Desde já, agradeço, > -- > Na escuta, > > > CHRISTINA GRUPIONI > Engenheira Agrícola e Ambiental- CREA BA: 84142 > *OCA (Organização Cooperativa de Agroecologia**)* > *Tecnologias Ecológicas e Sociais* > (31) 8863-0005, (31) 3892-2236 > *skype:chrisgrupioni@gmail.com <chrisgrupioni(a)gmail.com>* > > > > _______________________________________________ > 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. > -- Graciliano Galdino A. dos Santos Biólogo Doutorando em Ciências Florestais - PPGCF Universidade Federal Rural da Amazônia - UFRA _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

1 0