- R-br - DINF UFPR

Distribuir o resultado de duas condições de ifelse em duas colunas
by ASANTOS 04 Jun '15

04 Jun '15

Bom dia Pessoal, Tenho um vetor de dados artificiais chamado dados e gostaria de testar se os valores de dados são <=0.05767 e jogar o resultado (sendo que se true =1, senão 0) em uma coluna e ao mesmo tempo testar se x<=0.89000 e colocar o resultados (sendo que se true =1, senão 0) em outra coluna, para isso fiz: dados=rnorm(10) a1=0.05767 a2=0.89000 RES<-NULL for (i in 1:length(dados)){ I1 <- x[i] x[i] <- as.vector(x[i]) ifelse(x[i] <= a1, 1, 0) I2 <- x[i] x[i] <- as.vector(x[i]) ifelse (x[i] <= a2, 1, 0) RES<-rbind(RES,c(I1,I2)) } RES Mas estou fazendo algo errado, pois são estou obtendo os resultados esperados nas colunas I1 e I2, alguém poderia me ajudar? Obrigado -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos(a)cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================

5 7

Shapefile sobre image.kriging
by Felinto COSTA 03 Jun '15

03 Jun '15

Prezados. Sabem alguma maneira de plotar um arquivo em formato shape sobre a imagem gerada pela função image.kriging (geoR)? A imagem que disponho já foi delimitada anteriormente na krigagem (em krige.cov, borders) mas o arquivo que desejo sobrepor possui delimitações internas (bairros de uma cidade) e o anterior apenas o perímetro externo da idade. Grato Felinto

2 1

equação no scatter3d
by Natalia Martins 03 Jun '15

03 Jun '15

Prezados boa tarde. Estou tentando colocar um modelo de regressao juntamente com o R^2 em um scatter3d, mas a equação sai como texto. Usei dois comandos "mtext3d" e "text3d" , mas não consegui inserir o modelo com nenhum. Se alguem puder me ajudar, desde já meu obrigada! scatter3d(y ~ x1 + x2) mtext3d(expression(paste(hat(y),'=7.5 + 1.59x[1] + 8.68x[2], ', R^2,'=0,9747')) text3d(expression(paste(hat(y),'=7.5 + 1.59x[1] + 8.68x[2], ', R^2,'=0,9747')) Natalia Martins

1 0

Otimizando desempenho do Servidor - dados grandes
by Pedro Emmanuel Alvarenga Americano do Brasil 02 Jun '15

02 Jun '15

Amigos de R, Eu venho com um dúvida de iniciante, porque nunca trabalhei assim. Eu não entendo muito de informática por isso estou sem luz no caminho. Bom, a minha questão é que me envolvi num projeto em que os dado são na caso de centenas de milhares de linhas, com umas 150 colunas. Estou trabalhando numa área de trabalho remota num servidor windows 2008. Eu não sei quais as especificaçõs do servidor, mas essa área esta servidor está servindo somente para esse fim. Então gostaria de uma luz ou do que ler para otimizar o tempo de processamento nas ediçoes e nas análises. Algum tutorial ou alguma dica que aproveite melhor o meu tempo de espera. O que ja fucei que é pouco... > memory.size(max = FALSE) [1] 1044.11 > memory.size(max = T) [1] 1814.94 > memory.limit(size = NA) [1] 4095 > Abraço, Pedro Brasil

3 4

Método monte carlo
by Fernando Antonio de souza 02 Jun '15

02 Jun '15

Caros amigos, Ajustei um modelo de regressão através de uma meta analise e gostaria de avaliar a sua capacidade preditiva. Infelizmente não tenho um banco de dados independente(não utilizado para ajustar modelo) para poder compara valores preditos e observados. Penso que o método de monte Carlo pode me ajudar a resolver este problema (conforme algumas leituras aleatorias pela internet e) . Gostaria de uma opinião sobre o uso desse método para esse fim. E se possível dicas ou compartilhamento de material didático( for dummies) para que eu possa introduzir ao estudo de monte Carlo. Att

2 6

Impressão do objeto Date
by David Feitosa 01 Jun '15

01 Jun '15

Boa noite! Estou deparando-me com um pequeno problema: Tenho um data.frame que desejo cortar de acordo com o valor de uma coluna. Esta coluna está em formato de data com hora: YYYY-MM-DD HH:MM:SS Minha intenção é de criar um diretório com a data e um arquivo dentro de cada diretório. Ex: <dir>/data/2015-02-02/saida.csv , <dir>/data/2015-02-03/saida.csv , <dir>/data/2015-02-04/saida.csv etc Entretanto, o que está sendo impresso, e, criado como diretório, é a representação interna do objeto Date Ex: <dir>/data/16467/saida.csv , <dir>/data/16468/saida.csv , <dir>/data/16469/saida.csv etc Já tentei usar as.character(), format(), mas estou ficando sem ideias de como "corrigir". Alguém já passou por isso ou teria alguma sugestão por favor? Segue trecho de código pertinente com um pedaço dos dados: library(R.utils) lines <- " 5928671,14,-3.831290,-38.50146,2015-02-01 00:00:01 5926098,44,-3.709390,-38.58986,2015-02-02 00:01:13 5915217,145,-3.743671,-38.48788,2015-02-03 00:01:16 5444641,174,-3.766271,-38.57452,2015-02-01 00:01:38 2250561,977,-3.738654,-38.48400,2015-02-02 00:01:47 5671754,14,-3.831290,-38.50146,2015-02-03 00:02:43 " con <- textConnection(lines) df <- read.csv(con, header = F) close(con) for (dia in unique(as.Date(df[,5]))){ dfi <- df[as.Date(df[,5]) == dia,] diretorio <- paste(getwd(), "rsc/data", format(dia, format = "%Y-%m-%d"), sep = "/", collapse = "") mkdirs(diretorio) write.csv(dfi, paste(diretorio, "saida.csv", sep = "/", collapse = "")) } Dados do ambiente: R version 3.2.0 (2015-04-16) -- "Full of Ingredients" Platform: i386-w64-mingw32/i386 (32-bit) Atenciosamente, David Feitosa (\_(\ (=°;°) (("")("")

5 6

Re: [R-br] Área foliar
by Andre Oliveira 30 Mai '15

30 Mai '15

Continua reclamando da tiff, alguma sugestão? .......................................................... tentando a URL 'http://bioconductor.org/packages/3.1/bioc/src/contrib/EBImage_4.10.0.tar.gz'Content type 'application/x-gzip' length 4114806 bytes (3.9 MB)==================================================downloaded 3.9 MB * installing *source* package ‘tiff’ ...** package ‘tiff’ successfully unpacked and MD5 sums checked** libsgcc -std=gnu99 -I/usr/share/R/include -DNDEBUG -fpic -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -D_FORTIFY_SOURCE=2 -g -c common.c -o common.oIn file included from common.c:1:0:common.h:5:18: fatal error: tiff.h: Arquivo ou diretório não encontrado #include <tiff.h> ^compilation terminated.make: ** [common.o] Erro 1ERROR: compilation failed for package ‘tiff’* removing ‘/home/andre/R/x86_64-pc-linux-gnu-library/3.2/tiff’ERROR: dependency ‘tiff’ is not available for package ‘EBImage’* removing ‘/home/andre/R/x86_64-pc-linux-gnu-library/3.2/EBImage’ André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES Em Sábado, 30 de Maio de 2015 9:18, Augusto Ribas <ribas.aca(a)gmail.com> escreveu: Opa, ele está reclamando que não tem todas as livrarias que precisa para compitar. Ta faltando do ffw3h.h Ta usando linux certo? No ubuntu, abra um terminal e instale os pacotes necessários com apt-get sudo apt-get install fftw3 fftw3-dev pkg-config depois tenta instalar denovo que vai funcionar. Em 30 de maio de 2015 07:48, Andre Oliveira <andreolsouza(a)yahoo.com.br> escreveu: Pois é o erro que ocorre ..mas consegui identificar com clareza os motivos! > source("http://bioconductor.org/biocLite.R")Bioconductor version 3.1 (BiocInstaller 1.18.2), ?biocLite for help> biocLite("EBImage")BioC_mirror: http://bioconductor.orgUsing Bioconductor version 3.1 (BiocInstaller 1.18.2), R version 3.2.0.Installing package(s) ‘EBImage’also installing the dependencies ‘tiff’, ‘fftwtools’ tentando a URL 'http://cran.rstudio.com/src/contrib/tiff_0.1-5.tar.gz'Content type 'application/x-gzip' length 28925 bytes (28 KB)==================================================downloaded 28 KB tentando a URL 'http://cran.rstudio.com/src/contrib/fftwtools_0.9-7.tar.gz'Content type 'application/x-gzip' length 145998 bytes (142 KB)==================================================downloaded 142 KB tentando a URL 'http://bioconductor.org/packages/3.1/bioc/src/contrib/EBImage_4.10.0.tar.gz'Content type 'application/x-gzip' length 4114806 bytes (3.9 MB)==================================================downloaded 3.9 MB * installing *source* package ‘tiff’ ...** package ‘tiff’ successfully unpacked and MD5 sums checked** libsgcc -std=gnu99 -I/usr/share/R/include -DNDEBUG -fpic -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -D_FORTIFY_SOURCE=2 -g -c common.c -o common.oIn file included from common.c:1:0:common.h:5:18: fatal error: tiff.h: Arquivo ou diretório não encontrado #include <tiff.h> ^compilation terminated.make: ** [common.o] Erro 1ERROR: compilation failed for package ‘tiff’* removing ‘/home/andre/R/x86_64-pc-linux-gnu-library/3.2/tiff’* installing *source* package ‘fftwtools’ ...** package ‘fftwtools’ successfully unpacked and MD5 sums checked** libsgcc -std=gnu99 -I/usr/share/R/include -DNDEBUG -fpic -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -D_FORTIFY_SOURCE=2 -g -c fftwtools.c -o fftwtools.offtwtools.c:28:18: fatal error: fftw3.h: Arquivo ou diretório não encontrado #include<fftw3.h> ^compilation terminated.make: ** [fftwtools.o] Erro 1ERROR: compilation failed for package ‘fftwtools’* removing ‘/home/andre/R/x86_64-pc-linux-gnu-library/3.2/fftwtools’ERROR: dependencies ‘tiff’, ‘fftwtools’ are not available for package ‘EBImage’* removing ‘/home/andre/R/x86_64-pc-linux-gnu-library/3.2/EBImage’ The downloaded source packages are in ‘/tmp/RtmpDc7Umf/downloaded_packages’Old packages: 'car', 'tcltk2', 'MASS', 'spatial'Update all/some/none? [a/s/n]: André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES Em Sexta-feira, 29 de Maio de 2015 21:03, Augusto Ribas <ribas.aca(a)gmail.com> escreveu: O pacote é do biocondutor, você tentou instalar pela função biocLite? #################################################### source("http://bioconductor.org/biocLite.R") biocLite("EBImage") Em 29 de maio de 2015 18:54, Andre Oliveira <andreolsouza(a)yahoo.com.br> escreveu: Boa noite,existe alguma forma de fazer o cálculo da área da folha de uma árvore no R? Tentei esta dica abaixo, mas não achei o pacote referido! https://ridiculas.wordpress.com/page/2/ André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES _______________________________________________ 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. -- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/Github: https://github.com/SquiercgLattes: http://lattes.cnpq.br/7355685961127056 -- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/Github: https://github.com/SquiercgLattes: http://lattes.cnpq.br/7355685961127056

2 3

Área foliar
by Andre Oliveira 29 Mai '15

29 Mai '15

Boa noite,existe alguma forma de fazer o cálculo da área da folha de uma árvore no R? Tentei esta dica abaixo, mas não achei o pacote referido! https://ridiculas.wordpress.com/page/2/ André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES

2 1

Gerar observações
by Alexandre Loures 29 Mai '15

29 Mai '15

Boa noite! Tenho uma base, 1989-2010, sem observações para alguns anos. Por exemplo, ano ido idd code valor 2008 bra arg 0101 10 2007 bra pry 8508 20 2010 bra ury 1011 5 1992 bra swe 7989 30 1995 bra pry 8508 15 Sendo assim, gostaria de gerar tais observações. Ou seja, ano ido idd code valor 1989 bra arg 0101 0 1989 bra pry 8508 0 1989 bra ury 1011 0 1989 bra swe 7989 0 . . . . . . . . . . . . . . . 1995 bra arg 0101 0 1995 bra ury 1011 0 1995 bra swe 7989 0 Isto é, para o ano de 1995 há informações para: ido=bra e idd=pry. Então, não precisa ser gerada. Alguém poderia me ajudar? Desde já muito obrigado! -- *Alexandre Rodrigues Loures* Doutorando em Economia Aplicada Universidade Federal da Paraíba - UFPB Centro de Ciências Sociais Aplicadas - CCSA Programa de Pós-Graduação em Economia - PPGE Site: www.ccsa.ufpb.br/ppge

3 4

Multivariate Statistics: Exercises and Solutions
by Luiz Roberto Martins Pinto 28 Mai '15

28 Mai '15

Ola. Alguém tem o pdf deste livro? Multivariate Statistics: Exercises and Solutions Wolfgang K. Härdle <http://quantlet.de/index.php?p=searchResults&w=author&id=125>, Zdenek Hlávka <http://quantlet.de/index.php?p=searchResults&w=author&id=310> Abraços, Luiz Roberto. Luiz Roberto Martins Pinto Prof. Pleno/DCET/UESC Laboratório de Estatística Computacional Universidade Estadual de Santa Cruz Ilhéus-Bahia-Brasil luizroberto.uesc(a)gmail.com skype: lrmpinto http://lattes.cnpq.br/2732314327604831

2 2