Janeiro 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

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

Recode rotina
by Edson Lira 02 Fev '18

02 Fev '18

Bom dia caros amigos, tenho um pequeno problema que ainda não consegui encontrar a solução. É o seguinte: Estou aplicando um questionário para avaliar a satisfação do cliente em um hospital público. Na avaliação dos clientes estou usando uma escala de likert com as respostas para algumas questões. ótimo, bom, regular, ruim, péssimo e não utilizou o serviço Gostaria de fazer uma mudança nessas respostas usando uma rotina do R. Gostaria de mudar da seguinte forma para todo o banco de uma única vez. otimo e bom receberia o label "positiva" regular e não utilizou o serviço o label " "e ruim e péssimo receberia o label "negativa". Alguém tem alguma sugestão? Bom diae muito obrigado!!! Prof. Edson Lira, Me Estatístico Manaus-Amazonas

4 6

PERMDISP - interpretação dos resultados
by Carolina Lopes 31 Jan '18

31 Jan '18

Prezados. Rodei uma analise de PERMDISP (função betadisper) como pressuposto da PERMANOVA. Estou com dificuldades de interpretar os resultados. Algum material que possa ajudar no entendimento dessa analise?? Desde já agradeço a atenção Msc. Carolina A. Lopes Currículo Lattes: http://lattes.cnpq.br/9210875052648641

1 0

Carregar um pacote executando R online
by Delcio Rudinei Bortolanza 26 Jan '18

26 Jan '18

Como carregar um pacote executando um código R online? Já tentei require() e também library() e em vários sites sem sucesso. Att., Delcio Bortolanza.

5 6

Re: [R-br] previsão utilizando o lasso
by sznelwar＠uol.com.br 26 Jan '18

26 Jan '18

2 1

Inserir espaço após título de um eixo no gráfico
by Yury Duarte 25 Jan '18

25 Jan '18

Bom dia colegas listeiros! Estou encontrando um pequeno problema e gostaria de uma ajuda. Ao executar o comando para gerar gráficos de boxplot, o titulo do eixo y fica muito colado aos valores desse eixo. png(paste0(cidade[city], '.png'), width = 1600, height = 900, res = 196) par(mar=c(5,6,0.25,2)) par(cex=.8) b1 = boxplot(a.box,remove.outlier=NA, las = 1, xlab = 'Semeadura', ylab = expression(Produtividade~atingível~(kg~ha^-1)), ylim = c(0,16000),cex=0.5, pch=16) grid.text(paste0(titulos[city]),x=.5, y=.9) dev.off() Dessa forma, pensei em inserir uma linha em branco entre o título do eixo e o eixo y usando o comando \n png(paste0(cidade[city], '.png'), width = 1600, height = 900, res = 196) par(mar=c(5,6,0.25,2)) par(cex=.8) b1 = boxplot(a.box,remove.outlier=NA, las = 1, xlab = 'Semeadura', ylab = expression('Produtividade atingível (kg ha^-1)\n'), ylim = c(0,16000),cex=0.5, pch=16) grid.text(paste0(titulos[city]),x=.5, y=.9) dev.off() Usar esse comando inseriu a linha em branco mas assim fico com problemas em ajustar a parte sobrescrita da legenda. Dessa forma, gostaria de uma ajuda para executar um comando que me desse esse espaço entre a legenda e o eixo y sem prejudicar o sobrescrito da legenda. Desde já, agradeço pela colaboração de todos! Yury Duarte Engenheiro Agrônomo - ESALQ/USP

2 4

Re: [R-br] Duvidas acerca de teste estatistico.
by sznelwar＠uol.com.br 24 Jan '18

24 Jan '18

2 1