Setembro 2013 - R-br

Re: [R-br] Notação potências de dez (Gráficos)
by Ivan Bezerra Allaman 22 Set '13

22 Set '13

Em 2006 um sabido respondeu no r-help, sciNotation <- function(x, digits = 1) { if (length(x) > 1) { return(append(sciNotation(x[1]), sciNotation(x[-1]))) } if (!x) return(0) exponent <- floor(log10(x)) base <- round(x / 10^exponent, digits) as.expression(substitute(base %.% 10^exponent, list(base = base, exponent = exponent))) } plot(1:1000, axes = FALSE, type = "l", frame.plot = TRUE) axis(1, at = axTicks(1), label = sciNotation(axTicks(1), 1)) Deve ser o que procuras!!! (s,f,p) Allaman

1 0

Re: [R-br] Vetor de caracter como objeto em um pacote
by Ivan Bezerra Allaman 22 Set '13

22 Set '13

Não tive problema com as dependências! De fato agora não apareceu mesmo, ou seja, obtive o seguinte: trPaths [1] "\\Tinn-R\\tmp\\" "\\Tinn-R\\tmp\\search.txt" [3] "\\Tinn-R\\tmp\\objects.txt" "\\Tinn-R\\tmp\\file.r" [5] "\\Tinn-R\\tmp\\selection.r" "\\Tinn-R\\tmp\\block.r" [7] "\\Tinn-R\\tmp\\lines.r" "\\Tinn-R\\tmp\\reformat-input.r" [9] "\\Tinn-R\\tmp\\reformat-output.r" Abraços!

1 0

Re: [R-br] Vetor de caracter como objeto em um pacote
by Ivan Bezerra Allaman 22 Set '13

22 Set '13

Ok! Agora que entendi que Sys lalala é uma função. Pois bem!! Estou no windows agora e reproduzi o que você postou, e não tive NENHUM PROBLEMA, ou seja, ao rodar trPaths <- paste(paste(as.vector(Sys.getenv('APPDATA')), '\\Tinn-R\2013/09/22 - 12:20:51mp\\', sep=''), c('', 'search.txt', 'objects.txt', 'file.r', 'selection.r', 'block.r', 'lines.r', 'reformat-input.r', 'reformat-output.r'), sep='') obtive trPaths [1] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\" [2] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\search.txt" [3] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\objects.txt" [4] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\file.r" [5] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\selection.r" [6] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\block.r" [7] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\lines.r" [8] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\reformat-input.r" [9] "C:\\Users\\ivan\\AppData\\Roaming\\Tinn-R3/09/22 - 12:20:51mp\\reformat-output.r" Logo, Qual é o problema?????????????????????????????????????????

2 2

Re: [R-br] Vetor de caracter como objeto em um pacote
by Ivan Bezerra Allaman 22 Set '13

22 Set '13

Não entendi porque você não usou aspas no Sys.getenv('APPDATA'). Enfim, se usar uma aspa 'Sys.getenv('APPDATA')' vai dar erro, mais se usar duas aspas aí da certo "Sys.getenv('APPDATA')". Se for isso que você quer, está resolvido!! (s,f,p) Allaman

2 1

Problema para instalar R.2.15.2.tar.gz no ubuntu 12.04 64bits
by ASANTOS 22 Set '13

22 Set '13

Bom dia pessoal, Precisei reinstalar meu ubuntu 12.04 64bits e abaixei o R.2.15.2.tar.gz, pois vários pacotes são incompatíveis com o R.3.0, ou tenho que ficar buscando soluções para cada pacote devido, error zero status na instalação, portanto descompactei o R.2.15.2.tar.gz na área de trabalho e quando faço ./ configure LIBnn=libmake , recebo o seguinte erro: santos-a@santosa-K43E:~/Área de Trabalho/R-2.15.2$ ./configure LIBnn=libmake checking build system type... i686-pc-linux-gnu checking host system type... i686-pc-linux-gnu loading site script './config.site' loading build-specific script './config.site' checking for pwd... /bin/pwd checking whether builddir is srcdir... yes checking for working aclocal... missing checking for working autoconf... missing checking for working automake... missing checking for working autoheader... missing checking for gawk... no checking for mawk... mawk checking whether ln -s works... yes checking for bison... no checking for byacc... no checking for ar... ar checking for a BSD-compatible install... /usr/bin/install -c checking for sed... /bin/sed checking for which... /usr/bin/which checking for less... /usr/bin/less checking for gtar... no checking for gnutar... no checking for tar... /bin/tar checking for tex... no checking for pdftex... no configure: WARNING: you cannot build PDF versions of the R manuals checking for pdflatex... no configure: WARNING: you cannot build PDF versions of vignettes and help pages checking for makeindex... no checking for makeinfo... no configure: WARNING: you cannot build info or HTML versions of the R manuals checking for texi2dvi... no checking for kpsewhich... no checking for unzip... /usr/bin/unzip checking for zip... /usr/bin/zip checking for gzip... /bin/gzip checking for bzip2... /bin/bzip2 checking for firefox... /usr/bin/firefox using default browser ... /usr/bin/firefox checking for acroread... no checking for acroread4... no checking for xdg-open... /usr/bin/xdg-open checking for notangle... false checking for pkg-config... /usr/bin/pkg-config checking for gcc... gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking how to run the C preprocessor... gcc -E checking for grep that handles long lines and -e... /bin/grep checking for egrep... /bin/grep -E checking whether gcc needs -traditional... no checking how to run the C preprocessor... gcc -E checking for gfortran... no checking for f95... no checking for fort... no checking for xlf95... no checking for ifort... no checking for ifc... no checking for efc... no checking for pgf95... no checking for lf95... no checking for gfortran... no checking for ftn... no checking for g95... no checking for f90... no checking for xlf90... no checking for pgf90... no checking for pghpf... no checking for epcf90... no checking for g77... no checking for f77... no checking for xlf... no checking for frt... no checking for pgf77... no checking for cf77... no checking for fort77... no checking for fl32... no checking for af77... no checking for fc... no Alguém poderia me ajudar a selecionar o problema, tudo que tentei no R help Simple compilation não funcionou, 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 ======================================================================

3 7

Vetor de caracter como objeto em um pacote
by Jose Claudio Faria 22 Set '13

22 Set '13

Pessoal, Estou tentando eliminar a necessidade do script de inicialização no arquivo "etc/Rprofile.site" do R para uso com o editor Tinn-R. Contudo estou com uma dúvida que não estou conseguindo contornar e a comunidade talvez possa ajudar. Se coloco o script abaixo no arquivo de inicialização (Rprofile.site) funciona perfeitamente: trPaths <- paste(paste(Sys.getenv('APPDATA'), '\\Tinn-R\\tmp\\', sep=''), c('', 'search.txt', 'objects.txt', 'file.r', 'selection.r', 'block.r', 'lines.r', 'reformat-input.r', 'reformat-output.r'), sep='') > trPaths [1] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\" [2] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\search.txt" [3] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\objects.txt" [4] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\file.r" [5] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\selection.r" [6] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\block.r" [7] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\lines.r" [8] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\reformat-input.r" [9] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\reformat-output.r" Se crio um ambiente e coloco as funções nele no arquivo Rprofile.site, tambén funciona perfeitamente: # Package in development: TinnRcom library(utils) old.path <- getwd() # New version of TinnRcom package TinnRcom <- new.env() setwd('C:/Users/jcfaria/Desktop/pkgs/TinnR_new/R/') source('trArgs.R', local=TinnRcom) source('trComplete.r', local=TinnRcom) source('trCopy.R', local=TinnRcom) source('trExport.data.frame.R', local=TinnRcom) source('trExport.default.R', local=TinnRcom) source('trExport.matrix.R', local=TinnRcom) source('trExport.R', local=TinnRcom) source('trObjList.R', local=TinnRcom) source('trObjSearch.R', local=TinnRcom) source('trStartIDE.R', local=TinnRcom) source('trPaths.R', local=TinnRcom) setwd(old.path) attach(TinnRcom) > trPaths [1] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\" [2] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\search.txt" [3] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\objects.txt" [4] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\file.r" [5] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\selection.r" [6] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\block.r" [7] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\lines.r" [8] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\reformat-input.r" [9] "C:\\Users\\jcfaria\\AppData\\Roaming\\Tinn-R\\tmp\\reformat-output.r" O problema que não estou conseguindo cotornar é ao colocar no novo pacote (TinnRcom): trPaths <- paste(paste(Sys.getenv('APPDATA'), '\\Tinn-R\\tmp\\', sep=''), c('', 'search.txt', 'objects.txt', 'file.r', 'selection.r', 'block.r', 'lines.r', 'reformat-input.r', 'reformat-output.r'), sep='') na pasta "R" do pacote (juntamente com as funções) e declarar no NAMESPACE assim: export(trPaths) Quando o pacote TinnRcom é carregado via > library(TinnRcom) o objeto trPaths não fica correto. Fica como abaixo: > trPaths [1] "\\Tinn-R\\tmp\\" "\\Tinn-R\\tmp\\search.txt" [3] "\\Tinn-R\\tmp\\objects.txt" "\\Tinn-R\\tmp\\file.r" [5] "\\Tinn-R\\tmp\\selection.r" "\\Tinn-R\\tmp\\block.r" [7] "\\Tinn-R\\tmp\\lines.r" "\\Tinn-R\\tmp\\reformat-input.r" [9] "\\Tinn-R\\tmp\\reformat-output.r" ou seja, a parte Sys.getenv('APPDATA') não é interpretada. Alguém teria alguma dica? -- ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\ Jose Claudio Faria Estatistica UESC/DCET/Brasil joseclaudio.faria at gmail.com Telefones: 55(73)3680.5545 - UESC 55(73)9100.7351 - TIM 55(73)8817.6159 - OI ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\

1 0

Pacote ltm
by Felipe Buchbinder 20 Set '13

20 Set '13

Professores, Estou tentando ganhar familiaridade com o pacote ltm e, em especial, com as funções *rmvordlogis *e *grm*. Eu acho que não estou entendendo então o que é o parâmetro theta. Alguém pode me explicar o significado deste parâmetro? Eu gostaria de saber como montar esse parâmetro para gerar um conjunto de respostas a partir da função *rmvordlogis *e posteriormente recuperar esses parâmetros usando a função *grm*. Obrigado! Felipe

1 0

Teste de Hartley
by Luiz Henrique da Conceicao Leal 20 Set '13

20 Set '13

Pessoal, alguém conhece alguma função que realize o teste de Hartley de homogeneidade de variâncias

2 3

eliminar variáveis zeradas
by Fátima Lima Paula 20 Set '13

20 Set '13

Companheiros, existe uma maneira de eliminar variáveis que foram utilizadas anteriormente e que agora estão zeradas sem precisar ficar colocando factor(variável) toda a hora em que vou utilizá-la? Obrigada Fátima -- "Minha felicidade depende da qualidade dos meus pensamentos"

2 1

EBImage package - Manipulação de imagens
by Fernando Antonio de souza 19 Set '13

19 Set '13

Caros amigos, a dúvida é a seguinte: Estou tentando por meio do pacote EBImage contar um número de áreas de pólen na colméia. Para isso estou utilizando uma imagem retirada da internet apenas para treino. Nesta imagem os pontos de tons amarelos (onde há o pólen), alaranjados e brancos são de meu interesse. No entanto acho que os locais com pólen são mais difíces por estarem separados na área, por isso estou tentando contá-los e no caso de sucesso, prosseguirei com a contagem das demais áreas. Pois bem, o código abaixo, conseguiu isolar razoavelmente os pontos de polén (amarelos), no entanto ficou alguns "resíduos" o qual não consegui eliminá-los para contar apenas o pólen. Alguém sabe como fazer isso? Alguma idéia melhor de como fazer? OBS: A imagem utilizada encontra-se em anexo. Peço desculpar por não fornecer um Link direto, pois não consegui fazer isso utilizando nenhuma das hospedagens (box, ubuntu one ou 4 shared), a função read.Image() sempre retorna erro: "Erro em readJPEG(x, ...) : JPEG decompression error: Not a JPEG file: starts with 0x0a 0x0a" e não sei o que isso significa. grato pela atenção. library(EBImage) imagem <- readImage("http://www.4shared.com/download/GYeHK30-/colmeia.jpg") display(imagem) str(imagem) imagem<-imagem[1:604,60:343,1:3] display(imagem) hist(imagem) imagem2 <- imageData(channel(imagem, mode="red")) # canal vermelho destacou melhor os pontos desejados imagem2 <- 1-imagem2 # inverte as tonalidades display(imagem2) plot(density(imagem2), xlim=c(0,1)) filled.contour(imagem2, asp=1) imagem2[imagem2>=0.2] <- 1 imagem2[imagem2<0.2] <- 0 display(imagem2) # os pontos de interesse destacaram, no entanto há muitas interferências # a duúvida é como removê-los?

3 3