Outubro 2024 - 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

Uso do ifelse
by Maurício Lordêlo 15 Out '24

15 Out '24

#Olá, #saudações a tod@s!!! #Vou precisar várias comparações múltiplas usando o #teste de Scott Knott #Quero no final, capturar as letras e formar um único vetor #No exemplo abaixo, só serão formados dois "grupos" #Porém pode acontecer de formar um, três ou quatro #Não acontecerá de cinco ou mais #Usei o "ifelse" para isso, porém o retorno é um #vetor de tamanho 1 library(ScottKnott) data(RCBD) sk1 <- with(RCBD, SK(y ~ blk + tra, data=dfm, which='tra')) sk1$out$Result #aqui eu verifico a formação de dois grupos #O objeto que vai ser gerado no final, deveria ser igual a este #aqui grupos = c(sk1$out$Result$G1, sk1$out$Result$G2) grupos[nzchar(grupos)] #Porém, isso não acontece quando eu uso o "ifelse" rm(grupos) grupos = ifelse(dim(sk1$out$Result)[2] == 5, c(sk1$out$Result$G1, sk1$out$Result$G2, sk1$out$Result$G3, sk1$out$Result$G4), ifelse(dim(sk1$out$Result)[2] == 4, c(sk1$out$Result$G1, sk1$out$Result$G2, sk1$out$Result$G3), ifelse(dim(sk1$out$Result)[2] == 3, c(sk1$out$Result$G1, sk1$out$Result$G2), sk1$out$Result$G1))) grupos #O que há de errado?

2 3