Junho 2022 - R-br - DINF UFPR

[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

Criação de uma função complexa com dplyr
by Alexandre Dos Santos 28 Jun '22

28 Jun '22

Prezados Membros do R-br, Meu dados de exemplo são: library(dplyr) my.ds <- read.csv(" https://raw.githubusercontent.com/Leprechault/trash/main/test_ants.csv") my.ds # days nest AT # 1 0 2 10.9200 # 2 47 2 22.8600 # 3 76 2 23.2400 # 4 0 3 0.1400 # 5 47 3 0.4800 # 6 76 3 0.8300 # 7 118 3 0.8300 # 8 160 3 0.9400 # 9 193 3 0.9400 # 10 227 3 0.9400 # 11 262 3 0.9400 # 12 306 3 0.9400 # 13 355 3 11.9300 # 14 396 3 12.8100 # 15 450 3 29.3600 # 16 0 4 1.0000 # 17 76 4 1.5600 # 18 160 4 2.8800 # 19 193 4 2.8800 # 20 227 4 2.8800 # 21 262 4 2.8800 # 22 306 4 2.8800 # 23 355 4 17.0500 # 24 0 7 11.7100 # 25 47 7 24.7900 # 26 76 7 33.1200 # 27 0 10 4.1400 # 28 47 10 6.3000 # 29 76 10 13.9400 # 30 118 10 13.3000 # 31 160 10 29.4200 # 32 193 10 29.6000 # 33 227 10 45.1500 # 34 262 10 45.1500 # 35 306 10 45.1500 # 36 355 10 70.5300 # 37 396 10 109.2600 # 38 450 10 149.2000 # 39 0 1066 0.0289 # 40 29 1066 0.0870 # 41 70 1066 0.1254 # 42 112 1066 0.1254 # 43 146 1066 0.1254 # 44 180 1066 0.1254 # 45 215 1066 0.1350 # 46 259 1066 0.1350 # 47 0 1067 0.0520 # 48 29 1067 0.1254 # 49 70 1067 0.1440 # 50 112 1067 0.2160 # 51 146 1067 0.2538 # 52 180 1067 0.2538 # 53 215 1067 0.9600 # 54 259 1067 0.9600 # 55 349 1067 0.9600 # Class size my.ds$ClassType <- cut(my.ds$AT,breaks=c(-Inf,1,2.9,8.9,24.9,49.9,Inf),right =FALSE, labels=c("Class_0_1","Class_1_3","Class_3_9", "Class_9_25","Class_25_50","Class_50")) Eu gostaria de calular a variável velocity com as seguintes regras: Se nest for < 1000 - considerando "Class_1_3" para "Class_50" 1.1) Se AT for < 50 1.1.1) Se ClassType não mudar por nest durante o tempo ou AT entrar mas não sair do ClassType, então não calcule velocity (no meu caso nest 2 e 7)., 1.1.2) Procurando o último ClassType antes de AT e calcula a `velocity` entre o último ClassType e o atual ClassType para nest 1.1.3) Se atrasar qualquer ClassType em "Class_1_3" para "Class_50" em uma classe maior que o valor de AT no tempo 0, a classe não presente é o valor de velocity do último ClassType para nest. 1.2) Se AT for >= 50 1.2.1) velocity é c(0,diff(AT))/c(0,diff(days)) por days para cada nest Se o ninho for >= 1000 - apenas considerando "Class_0_1" 2.1) a velocidade é c(0,diff(AT))/c(0,diff(days)) por days para cada nest também. Meu output desejável é: # nest ClassType velocity # 3 Classe_ 1_3 0,224285714 # 3 Classe_ 3_9 0,224285714 # 3 Classe_ 9_25 0,224285714 # 3 Classe_ 9_25 0,021463415 # 3 Classe_ 9_25 0,306481481 # 4 Classe_ 1_3 0,0075 # 4 Classe_ 1_3 0,015714286 # 4 Classe_ 1_3 0 # 4 Classe_ 1_3 0 # 4 Classe_ 1_3 0 # 4 Classe_ 1_3 0 # 4 Classe_ 1_3 0,289183673 # 4 Classe_ 3_9 0,289183673 # 10 Classe_9_25 0,263448276 # 10 Classe_9_25 -0,015238095 # 10 Classe_9_25 0,383809524 # 10 Class_25_50 0,383809524 # 10 Classe_25_50 0,005454545 # 10 Class_25_50 0,457352941 # 10 Classe_25_50 0 # 10 Classe_25_50 0 # 10 Class_25_50 0,517959184 # 10 Class_50 0,517959184 # 10 Class_50 0,944634146 # 10 Class_50 0,73962963 # 1066 Classe_0_1 0,002003448 # 1066 Classe_0_1 0,000936585 # 1066 Classe_0_1 0 # 1066 Classe_0_1 0 # 1066 Classe_0_1 0 # 1066 Classe_0_1 0,000274286 # 1066 Classe_0_1 0 # 1067 Classe_0_1 0,002531034 # 1067 Classe_0_1 0,000453659 # 1067 Classe_0_1 0,001714286 # 1067 Classe_0_1 0,001111765 # 1067 Classe_0_1 0 # 1067 Classe_0_1 0.020177143 # 1067 Classe_0_1 0 # 1067 Classe_0_1 0 Por favor, alguém poderia me ajudar com isso? -- -- Alexandre dos Santos Geotechnologies and Spatial Statistics applied to Forest Entomology Instituto Federal de Mato Grosso (IFMT) - Campus Caceres Caixa Postal 244 (PO Box) Avenida dos Ramires, s/n - Vila Real Caceres - MT - CEP 78201-380 (ZIP code) Phone: (+55) 65 99686-6970 / (+55) 65 3221-2674 Lattes CV: http://lattes.cnpq.br/1360403201088680 OrcID: orcid.org/0000-0001-8232-6722 ResearchGate: www.researchgate.net/profile/Alexandre_Santos10 Publons: https://publons.com/researcher/3085587/alexandre-dos-santos/ --

2 1

Rcomander
by Emerson Cotta Bodevan 05 Jun '22

05 Jun '22

Prezados. Não estou conseguindo instalar o RComander no Linux ubuntu 20.04. Retorna erro de falta de repositórios e dependências. Alguém teria um passo a passo? A ideia é usar com alunos da educação física. Agradeço qualquer ajuda. *Emerson*

4 5

Loop para criar diferentes bancos de dados usando o mesmo script
by barbaramnascimento＠gmail.com 03 Jun '22

03 Jun '22

Boa tarde a todos! Estou com dificuldade em gerar um loop e espero que alguém possa me ajudar aqui. Estou trabalhando com dados de sobrevivência de animais até 5 idades determinadas e o efeito individual de 19 características dentro de um servidor. A partir de um banco inicial, eu preciso rodar o mesmo script para combinar todas as idades com todas as características, gerando 95 bancos de dados diferentes. Até agora, eu consegui fazer 5 bancos relativos a cada idade através do commandArg: #Loop ---------------------------------------------------------------------------- ------ ## Level 1: DATE OF BIRTH ==> z sdrumthreshold = c("2019-01-01", "2018-01-01", "2017-01-01", "2016-01-01", "2015-01-01") ### Level 2: SURVIVAL AGE ==> t sdactthreshold = c(36, 48, 60, 72, 84) ## Connection with the code in Linux. args = commandArgs(trailingOnly = TRUE) index.sdrum = as.numeric(args[1]) index.sdact = as.numeric(args[2]) Quando eu chamo as variáveis dentro do loop no Linux, o script roda certinho. Segue como ilustração a forma como eu chamei o loop no Linux. #!/bin/bash sdrumth_leader=(1 2 3 4 5) sdactth_leader=(1 2 3 4 5) for z in "${sdrumth_leader[@]}" do for t in "${sdactth_leader[@]}" do if [[ "$z" != "$t" ]] then continue else sbatch Survival.Rcode.bash $z $t #calling indexes. sleep 1 fi done done Porém, tentei fazer a mesma coisa, criando um vetor com o nome das colunas e não tive sucesso: ### Level 3: TYPE TRAITS ==> q sdtypetrait = c("Stature", "Strength", "FinalScore", "DairyForm", "RumpAngle", "RumpWidth", "RearLegs", "ForeUdder", "RearUdderHeight", "RearUdderWidth", "FootAngle", "UdderDepth", "UdderCleft", "TeatPlacement", "TeatLength", "RearTeatPlacementRv", "RearTeatPlacementSv", Pasterns", "RearTeatLength") ## Connection with the code in Linux. args = commandArgs(trailingOnly = TRUE) index.sdrum = as.numeric(args[1]) index.sdact = as.numeric(args[2]) index.typet = as.numeric(args[3]) Quando eu chamo a variável dentro do script, ela vem com as aspas e dá erro. As entradas da variável do vetor são: type13 <- subset(type12, sdtypetrait [index.typet] <= 50) count(type13, sdtypetrait [index.typet]) model <- lm(formula = sdtypetrait [index.typet] ~ CalvingAge + I(CalvingAge^2) + appraisalDIM + I(appraisalDIM^2), data = type15) dados_completo$sdtypetrait [index.typet]_adj <- dados_completo$residuals dados_completo$sdtypetrait [index.typet]_adj2 <- (dados_completo$sdtypetrait [index.typet]_adj)*2 dados_usar <- select(dados_completo, RegId, SireRegId, DamRegId, CG, Cross, AFC, AFC2, Inbreeding, Inbreed2, sdtypetrait [index.typet]_adj, sdtypetrait [index.typet]_adj2, Survival) write.table(dados_usar, file = paste0("/teste/", sdactthreshold[index.sdact],"/", sdtypetrait [index.typet],"/Survival.dat"), sep = " ", row.names = F, quote = F, col.names = F) Será que alguém tem alguma ideia de como eu posso chamar a variável sem entrar as aspas, ou se a forma como estou rodando tem algum erro? Obrigada! ____________________________________ Barbara Mazetti Nascimento Postdoctoral Researcher Department of Animal and Dairy Sciences University of Wisconsin-Madison

2 3

Re: [R-br] Digest R-br, volume 136, assunto 10
by Andrea Vita Reis Mendonca 02 Jun '22

02 Jun '22

Ferreira, E. B., Cavalcanti, P. P., Nogueira, D. A. (2021). ExpDes.pt: Experimental Designs pacakge (Portuguese). Rpackage version 1.2.2. Disponível em: https://cran.r-project.org/web/packages/ExpDes.pt/ExpDes.pt.pdf. Acesso em: 25/05/2022 Em ter., 31 de mai. de 2022 à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. Trifatorial com trat adicionais (Alessandro Dal Col Lúcio) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Tue, 31 May 2022 11:27:44 -0300 > From: Alessandro Dal Col Lúcio <adlucio(a)ufsm.br> > To: a lista Brasileira oficial de discussÃ£o do programa R. > <r-br(a)listas.c3sl.ufpr.br> > Subject: [R-br] Trifatorial com trat adicionais > Message-ID: > < > CAHVsyO4fQU4z_jBpT5cx2tTqmX2o0x4mB4Wxab09tMxyoSDojg(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Bom dia. > Alguma dica de pacote para analisar experimentos trifatoriais com mais de > um tratamento adicional? > Abraços. > Alessandro > -- > Enviado via Windows Phone. > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: < > http://listas.inf.ufpr.br/pipermail/r-br/attachments/20220531/65ec63c9/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 136, assunto 10 > ****************************************** >

1 0