Re: [R-br] Estatística circular - gráfico

Cassiano, olá novamente! Atualizei o código, pois percebi que havia um erro na atribuição dos labels (meses) que estavam "counter-clock". [image: Imagem inline 1] ### library(circular) nascente <- read.table(text= "AMBIENTEmesangleDISTANCIAABUNDRIQUEZA NASC10

Re: [R-br] (sem assunto)

Elias, bom dia! Já tentou diminuir pointsize em png()? Éder Comunello Researcher at Brazilian Agricultural Research Corporation (Embrapa) DSc in Agricultural Systems Engineering (USP/Esalq) MSc in Environ. Sciences (UEM), Agronomist (UEM) ---

Re: [R-br] Manipular dados em grupos e mesmo data frame

Edimeire, bom dia! Não sei se exatamente isso que você precisa, mas vou arriscar um palpite... ### require(dplyr) head(mtcars) df0 <- cbind(mtcars[,-c(10,8,2)], mtcars[,c(10,8,2)]); head(df0) # ordena pra facilitar df0$cyl.lag <- NA; head(df0) # Alternativa 1

Re: [R-br] regressão polinomial: gráfico e valor máximo

Maurício e colegas, boa tarde! Mais uma opção de código para o problema. [image: Imagem inline 1] # # DIC 4 rep x 7 doses de gesso (trat): 0, 50, 100, 150, 200, 250, 300 kg/ha # Peso de 1.000 sementes (peso, gramas) peso <- c(134.8, 139.7, 147.6, 132.3, 161.7, 157.7, 150.3, 144.7,

Re: [R-br] RES: Operação entre datas

Uma ideia... ### if(!require(eeptools)){install.packages("eeptools"); require(eeptools)} DADOS <- data.frame( NASCIMENTO = c("26/11/97", "20/03/99", "14/05/99","06/05/98", "03/01/00", "19/05/97", "01/02/01", "28/11/97", "10/02/00"), DATA_FATO = c("26/11/07", "20/04/09",

Re: [R-br] Operação entre datas

Bom dia, Outra sugestão com {lubridate}. ### require(lubridate) DADOS = data.frame( NASCIMENTO = c("26/11/97", "20/03/99", "14/05/99","06/05/98", "03/01/00", "19/05/97", "01/02/01", "28/11/97", "10/02/00"), DATA_FATO = c("23/02/15", "28/03/15", "08/04/15", "08/04/15", "08/04/15",

Re: [R-br] Exclusão de casos por critério temporal

Paulo, bom dia! # Uma alternativa é identificar o trimestre de cada observação... dat <- data.frame(id=rep(1:4, 6:3), ano=2016, mes=c(1,2,3,5,6,10,3,7,8,11,12,2,5,9,12,1,3,4)) dat$tri <- ceiling(dat$mes/4)+1 # E preservar somente a mais antiga dentro de cada trimestre... del <-

Re: [R-br] Exclusão de casos por critério temporal

Só corrigindo o código que postei... De fato, para o trimestre seria: dat$tri <- ceiling(dat$mes/3)+1 Éder Comunello Researcher at Brazilian Agricultural Research Corporation (Embrapa) DSc in Agricultural Systems Engineering (USP/Esalq) MSc in

Re: [R-br] Exclusão de casos por critério temporal

Paulo, olá novamente! Fiz um teste, aproveitando a ideia colocada pelo Henrique... teste <- data.frame(id=rep(1:3, each=10), ano=2016, mes=c(1:5,7,9:12,1:3,6:12,1:10)) teste$tri <- ceiling(teste$mes/3)+1 del <- which(duplicated(teste[,c(1,2,4)])) res1 <- teste[-del,]; res1 res2 <-

Re: [R-br] Baixando dados do INMET com a biblioteca RCurl e bitops/Salvando arquivos em .txt

Senhores, bom dia! Embora a sugestão do colega Jônatan já deva solucionar o problema, deixo um código que utilizava para consulta. Testei no Ubuntu 16.04 e ainda funciona. Basicamente vai fazer o download dos dados em uma pasta 'Downloads' criada no diretório de trabalho. São criados 2 arquivos

Re: [R-br] Gráficos com boa resolução

Roberto, mais uma sugestão. ### x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão") png(filename="R001.png", res=300, units="cm", width=15, height=10, pointsize=12, bg="white") x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão") dev.off() tiff(filename="R001.tif",

Re: [R-br] Instalação de pacote RCurl no R [Linux 16.04]

Paulo, boa tarde! Você poderia tentar: # no terminal: sudo apt-get build-dep r-cran-rcurl # após isso no R: install.packages("RCurl", dep = T) Éder Comunello Researcher at Brazilian Agricultural Research Corporation (Embrapa) DSc in Agricultural

Re: [R-br] Frequência de um registro específico

Senhores, bom dia! Wagner, segue mais uma sugestão para a frequência de zeros: ​### ​ ​df <- data.frame(var1=c(1, 2, 0, 4, 5, 6, 0, 6, 0, 4), var2=NA) with(df, table(var1)) sum(df$var1==0)​ ### ​Edimeire, veja se é algo assim que você se referiu: ​### ​ names(mtcars) range(mtcars$mpg)

Re: [R-br] Modelagem geoestatística para pixels de imagens de satelite

Wagner, boa tarde! As bandas termais do Landsat 8 têm resolução original de 100m, então esses dados já devem ter passado por algum processamento. É bem provável que, independente do método de interpolação a ser utilizado, os novos pixels tragam apenas informação redundante de seus vizinhos.

Re: [R-br] O R não abre no linux mint

Sergio, bom dia! Encontrei a descrição de um erro similar no Ubuntu, causado pela existência de duas instalações do R, uma via source e outra via apt-get. Se lhe for útil, segue o link: http://grokbase.com/t/r/r-sig-debian/117nw5nch6/getting-confused-with-two-versions-of-r%E2%80%8F%E2%80%8F

Re: [R-br] plotar batimetrias tracejadas

Rodrigo, Ao importar o shape ele se torna um objeto da classe sp (SpatialLines ou SpatialLinesDF). A partir daí vc pode isolar as linhas e definir o padrão ao usar plot(). Para tracejado use o argumento lty=2 ou 3. # # http://mapas.mma.gov.br/i3geo/datadownload.htm fn <-

Re: [R-br] Transformar distribuição de frequencia em dataset

Bom dia, Um exemplo que pode lhe ser útil: ### mtcars x <- with(mtcars, ftable(cyl~vs+gear)); x # cyl 4 6 8 # vs gear # 0 3 0 0 12 # 4 0 2 0 # 5 1 1 2 # 1 3 1 2 0 # 4 8 2 0 # 5 1 0 0 df <- as.data.frame(x); head(df, 3) # vs gear cyl

Re: [R-br] Regexp no grep para linhas que não iniciam com sequência

so <ming...@gmail.com> escreveu: > Oi > > Estou longe do R no momento, mas na sua segunda solução, você tentou usar > a regex "^[^MSC]{0,3}"? > > Em princípio, ela força o início da string e identifica todos os > caracteres fora do conjunto MSC, para valores en

[R-br] Regexp no grep para linhas que não iniciam com sequência

Senhores, bom dia! Considerando o vetor: test <- c("SPA100", "MSA200", "MSB300", "MSC400", "MSC500", "PRA100", "PRC200", "MGV100", "MTJ400", "MTK500") Posso obter facilmente os valores iniciados com a sequência "MS": grep("^MS", test, val=T) # [1] "MSA200" "MSB300" "MSC400" "MSC500"

Re: [R-br] "Append" arquivos csv de diversos subdiretórios

Boa tarde, pessoal. Dependendo da situação poderá utilizar também o argumento full.names=T. list.files("DADOS", recursive=T) # [1] "CSV1/Text1.csv" "CSV1/Text2.csv" "CSV2/Text3.csv" list.files("DADOS", recursive=T, full=T) # [1] "DADOS/CSV1/Text1.csv" "DADOS/CSV1/Text2.csv"

Re: [R-br] O R não abre no linux mint

Sergio, boa tarde! Você instalou via apt-get? Já verificou se existem dependências? sudo apt-get update sudo apt-get build-dep r-base sudo apt-get install r-base r-recommended Éder Comunello Researcher at Brazilian Agricultural Research

Re: [R-br] Passar linhas de comandos do DOS para o script do R

​Olá, pessoal! Boa tarde! Uma ideia é entrar com múltiplos​ comandos para os argumentos e acionar o script com source(). ​###​ C:\Program Files\R\R-2.15.3\bin>echo print(a+b) > script.R C:\Program Files\R\R-2.15.3\bin>type script.R print(a+b) C:\Program Files\R\R-2.15.3\bin>R -e "a=2; b=3;

Re: [R-br] geração de variáveis aleatórias normais com estrutura de correlação

Adriele, boa tarde! Tentei adaptar seu código R com base no que entendi do script em SAS. Veja se pode ser útil... ### library(MASS) { set.seed(1357) n <- 1000 # tamanho da amostra gerada (N) p <- 2 # numero de variáveis a serem geradas (K) ME <- rep(1, p) rho<- -0.2 #

Re: [R-br] geração de variáveis aleatórias normais com estrutura de correlação

use God created them*. > * The statistic exists to research the patterns that God created.*" > > > > Em 18 de outubro de 2016 14:52, Éder Comunello via R-br < > r-br@listas.c3sl.ufpr.br> escreveu: > >> Adriele, boa tarde! >> >> Tentei adaptar seu