Março 2015 - R-br

Re: [R-br] Shiny App - apenas uma dúvida sobre single-file
by Rafael Tieppo 11 Mar '15

11 Mar '15

Fernando, não tenho muita experiência com o shiny, fiz apenas um trabalho com o shiny, sendo este para um trabalho final do coursera. Não criei nenhum arquivo com o nome "run.r", apenas criei ui.r e o server.r . Espero ter ajudado. Saudações. Rafael Tieppo State University of Mato Grosso - Department of Agricultural Engineering site: http://www2.unemat.br/rafaeltieppo blog: https://sistemasagricolas.wordpress.com "Evite o desperdício: antes de imprimir pense na sua responsabilidade com o ambiente". On Wednesday, March 11, 2015 11:00 AM, "r-br-request(a)listas.c3sl.ufpr.br" <r-br-request(a)listas.c3sl.ufpr.br> wrote: 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. [R -br] Shiny App - apenas uma dúvida sobre single-file (Fernando Gama) 2. Re: [R -br] Shiny App - apenas uma dúvida sobre single-file (Fernando Gama) ---------------------------------------------------------------------- Message: 1 Date: Tue, 10 Mar 2015 16:34:09 -0300 From: Fernando Gama <f.fabiogama88(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: [R-br] [R -br] Shiny App - apenas uma dúvida sobre single-file Message-ID: <CAOwqRyu3QApkACvpTn1Xp-kVMkvh4URr9Sv3nDf4buJen_QBiQ(a)mail.gmail.com> Content-Type: text/plain; charset="utf-8" Prezados, quem trabalhou/trabalha algum tempo com o shiny notou que recentemente foi incorporado no framework a possibilidade que temos de rodar a aplicação utilizando ui.r e server.r em um unico arquivo app.r . A duvida que tenho é: não precisamos mais do run.r para rodar a aplicação? Porque rodei o app.r e notei que a aplicação foi executada. Alguém poderia me tirar essa pequena duvida? -- Att, Fernando da Mata -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150310/5f64c984/atta…> ------------------------------ Message: 2 Date: Tue, 10 Mar 2015 18:37:14 -0300 From: Fernando Gama <f.fabiogama88(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] [R -br] Shiny App - apenas uma dúvida sobre single-file Message-ID: <CAOwqRysu9kaOPXbkZXMbeS_K5S=bFssPRg2b9aj7aSmVSG5mWw(a)mail.gmail.com> Content-Type: text/plain; charset="utf-8" Pessoal, antes que alguém tenha o trabalho de responder. Fiz alguns testes e encontrei uma diferença bem sutil: quando eu rodo o script ''app.R'' a aplicação é executada da mesma maneira quando rodamos o script run.r . Este, carrega o diretório que guarda todos os scripts e quando atualizamos o navegador tudo o que for alterado no script é atualizado no meu browser, caso eu ignore a execução do script run.r os valores alterados no script não são alterados no browser e serei obrigado a interromper a execução e rodar novamente o app.R :) Por uma questão de lógica, penso que o script 'não carrega o diretório na qual ele foi chamado' ele simplestemente executa o que está dentro dele e por isso, o browser nao entende a mudança, diferentemente do run.R ?? Obrigado de qualquer maneira, se alguem quiser acrescentar algo fique a vontade. Boa noite. Em 10 de março de 2015 16:34, Fernando Gama <f.fabiogama88(a)gmail.com> escreveu: > Prezados, > > quem trabalhou/trabalha algum tempo com o shiny notou que recentemente foi > incorporado no framework a possibilidade que temos de rodar a aplicação > utilizando ui.r e server.r em um unico arquivo app.r . > > A duvida que tenho é: não precisamos mais do run.r para rodar a aplicação? > Porque rodei o app.r e notei que a aplicação foi executada. Alguém poderia > me tirar essa pequena duvida? > > -- > Att, > > Fernando da Mata > > > -- Att, Fernando da Mata -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150310/44825689/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 51, assunto 12 *****************************************

1 0

[R -br] Shiny App - apenas uma dúvida sobre single-file
by Fernando Gama 10 Mar '15

10 Mar '15

Prezados, quem trabalhou/trabalha algum tempo com o shiny notou que recentemente foi incorporado no framework a possibilidade que temos de rodar a aplicação utilizando ui.r e server.r em um unico arquivo app.r . A duvida que tenho é: não precisamos mais do run.r para rodar a aplicação? Porque rodei o app.r e notei que a aplicação foi executada. Alguém poderia me tirar essa pequena duvida? -- Att, Fernando da Mata

1 1

Exibir categoria quando não há elemento - summarize {Hmisc}
by Leandro Marino 09 Mar '15

09 Mar '15

Caros, boa noite. Tudo bem? Vejam o CMR: dados = data.frame(valor=rnorm(100),var=sample(LETTERS[c(1,2,3,5)],100,replace=T),peso=rpois(100,2)) dados[1:10,] dados$var <- factor(dados$var,levels=LETTERS[1:5]) table(dados$var) g1 <- function(y) wtd.mean(y[,1],y[,2]) summarize(dados[,c(1,3)], llist(var=dados$var), g1,stat.name = 'med') Quando faço o table, aparece que a categoria D não teve ninguém, ou seja 0. Como posso fazer para forçar ela aparecer no summarize? Tenho depois uma serie de rotinas que utilizo as funcoes wtd... do Hmisc. No entanto preciso que todas as categorias que estão no fator sejam sempre exibidas. obrigado pela ajuda. abs Leandro

4 4

nloptr no openSUSE 13.2 (64 bits)
by Vinícius Lionel Mateus 09 Mar '15

09 Mar '15

Prezados useRs, Venho enfrentando duras batalhas para instalar o nloptr, devido a problemas na instalação do nlopt. Por fim, consegui instalar o nlopt, mas ainda tenho problemas para instalar o nloptr. Seguindo a dica do autor do nloptr, executei a linha: - R CMD INSTALL --configure-args="--with-nlopt-cflags='-I/usr/local/include' --with-nlopt-libs='-L/usr/local/lib64 -lnlopt'" nloptr No entanto, o output é: - Warning: invalid package ‘nloptr’ Error: ERROR: no packages specified Alguém tem alguma dica? Abs, Vinícius -- Best regards, Vinícius Lionel Mateus, MSc (http://lattes.cnpq.br/6501001637020665) Chemistry PhD Student Atmospheric Chemistry Laboratory - Dep. Chemistry PUC-Rio - Pontifical Catholic University of Rio de Janeiro Rua Marquês de São Vicente, 225, Gávea - Rio de Janeiro, RJ - Brazil CEP: 22451-900 Telefone: (+45) 26 28 28 51 (+55) (21) 3527-1327 (+55) (21) 993 - 588 - 051 Skype: vinicius.lionel http://www.qui.puc-rio.br/index.html

3 5

Somar intervalo de uma coluna
by Alexandre Loures 08 Mar '15

08 Mar '15

Tenho um data frame da seguinte forma: ano mês exp 1997 JAN 431 1997 FEV 550 1997 MAR 20 . . . 2014 JAN 220 2014 FEV 100 2014 MAR 80 Gostaria de somar os valores para cada um dos anos da base. Isto é, gostaria de obter os valores por ano e não por ano/mês. Alguém saberia como fazer isso? 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 e-Mail: alexandre.loures(a)ymail.com Site: www.ccsa.ufpb.br/ppge

2 2

Extrair coordenadas do polígono do Brasil - maptools
by Augusto Ribas 07 Mar '15

07 Mar '15

Ola pessoal, estou com uma duvida aqui, como eu retiro as coordenadas que formam o polígono do Brasil de um spatialpolygondataframe. No pacote maptools tem o wrld_simpl que é um mapa do mundo, um dos polígonos é o mapa do Brasil, como eu consigo somente os pontos, coordenadas na ordem para fazer o polígono, não estou conseguindo entender como extrai essa informação ###### library(maptools) data(wrld_simpl) which(wrld_simpl$NAME=="Brazil") plot(wrld_simpl[21,]) wrld_simpl[21,] ####### Eu gostaria ter os pontos para escrever polygon(pontos) ou plot(pontos,type="l") e desenhar o mapa em um plot igual acima, tem como fazer isso? -- Grato Augusto C. A. Ribas Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org> Github: https://github.com/Squiercg Lattes: http://lattes.cnpq.br/7355685961127056

4 4

krige.conv
by Felinto COSTA 07 Mar '15

07 Mar '15

Prezados. Tenho dois modelos teóricos (exponencial e esférico ) que foram ajustados aos dados por máxima verossimilhança. As coordenadas numéricas (UTM) dos dados foram reduzidas pela subtração da coordenada média segundo cada eixo. Em ambos considero a existência de uma tendência polinomial de 2ª ordem na média. Eles foram ajustados sem problemas, assim como a validação cruzada de ambos pode ser feita. O problema está ao querer estimar algum ponto(s) usando a função krige.conv. Apenas o modelo exponencial é aceito. Ao usar o esférico a função retorna a seguinte mensagem: krige.conv: model with mean given by a 2nd order polynomial on the coordinates krige.conv: anisotropy correction performed krige.conv: performing the Box-Cox data transformation Erro em solve.default(ttivtt, crossprod(ivtt, as.vector(data))) : sistema é computacionalmente singular: condição recíproca número = 1.76896e-16 Alguém saberia como contornar esse problema? Antecipadamente agradeço a colaboração Felinto COSTA

3 3

[R] Uso da função if
by Michelle Bau Graczyk 06 Mar '15

06 Mar '15

Boa tarde, Estou com um problema de lógica para o uso do if. Meu intuito com este programa é separar por horário os valores do volume. O horário está escrito de maneira numérica e vai de 1 até 396. O valor máximo de volumes por horário é 126. Só que quando tento fazer rodar, vem a mensagem : Erro em if (AA.data$hora[k] == i) { : valor ausente onde TRUE/FALSE necessário Abaixo segue o programa. AA<-read.table("/Users/bau/Documents/Mestrado/teste/AXP_NYS_USD_1min_EST5EDT_200407s12e.dat", header=FALSE, col.names=c("data","hora","preco","volume")) hora<-as.numeric(AA$hora) AA.data<-data.frame(data=AA$data,hora=hora, preco=AA$preco, volume=AA$volume) write.table(AA.data,"testeteste.txt") matriz.dadosAA<-matrix(nrow=128,ncol=4) for(i in 1:4){ j<-1 for(k in 1:48935){ for(j in 1:126){ if(AA.data$hora[k]==i){ matriz.dadosAA[j,i]=AA.data$volume[k] j=j+1 } else { matriz.dadosAA[j,i]=0 j=j+1} k=k+1 } } } a<-matriz.dadosAA[,1] write.table(a,"a.txt") Muito obrigada, Michelle

4 7

Extrair coordenadas de um raster dada uma condição
by ASANTOS 05 Mar '15

05 Mar '15

Caros Listeiros, Fiz a seleção da coordenada dos pixels (p.cen) em um raster que continham pontos de interesse (pontos) no CRM abaixo, gostaria de saber como impor uma condição para selecionar as coordenadas dos pixels que não contém nenhum ponto. Tentei criar um novo objeto com todas as coordenadas no raster e remover as coordenadas p.cen sem sucesso, alguém poderia me ajudar? Obrigado, ### <code r> require(raster); require(sp) ## Criando um raster r <- raster(nc=10, nr=10) r <- setValues(r, round(runif(ncell(r))* 255)) ##Pontos selecionados x <- c(44.25,33.06,63.22,71.35) y <- c(22.00,81.90,15.18,71.03) pontos <- SpatialPoints(cbind(x,y)) cells <- cellFromXY(r, pontos); cells coordinates(r)[cells,] p.cen <- xyFromCell(r, cells); p.cen plot(r) points(pontos, col="red") points(p.cen) values <- extract(r,p.cen) ##Extrai as coordendas dados<-cbind(p.cen,cells,values) dados ### </code> -- ====================================================================== 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 ====================================================================== --- Este email foi escaneado pelo Avast antivírus. http://www.avast.com

3 4

Re: [R-br] [R] Uso da função if
by Michelle Bau Graczyk 05 Mar '15

05 Mar '15

Oi Fernando e Rafael , eu acho que, pelo que eu vi, se eu só mandat o dput nao vai ficar tão claro. Por isso vou mandar os dados aqui em baixo, espero que você não ache ruim. Porque assim acho que fica mais claro. Eu preciso separar por horário os valores de volume. Assim eu quero gerar uma matriz as quais as colunas vao de 09:31 até 16:03 com as linhas sendo preenchidas pelos volumes do certo dia. O horário eu deixei em numero que vai de 1 ate a 396 ao invés de 09:31 até 16:03 porque achei mais fácil, ainda tenho dificuldades com character. Bom, seguem os dados! Muito obrigada! 01.07.2004 09:31:00 51.37 27900 01.07.2004 09:32:00 51.32 100 01.07.2004 09:33:00 51.45 700 01.07.2004 09:34:00 51.46 1000 01.07.2004 09:35:00 51.50 800 01.07.2004 09:36:00 51.54 3000 01.07.2004 09:37:00 51.54 1600 . . . 31.12.2004 15:45:00 56.50 4100 31.12.2004 15:46:00 56.50 7400 31.12.2004 15:47:00 56.40 8400 31.12.2004 15:48:00 56.44 15800 31.12.2004 15:49:00 56.41 4700 31.12.2004 15:50:00 56.44 6900 31.12.2004 15:51:00 56.42 9800 31.12.2004 15:52:00 56.43 8700 31.12.2004 15:53:00 56.43 7400 31.12.2004 15:54:00 56.40 12400 31.12.2004 15:55:00 56.44 11600 31.12.2004 15:56:00 56.45 8900 31.12.2004 15:57:00 56.44 14300 31.12.2004 15:58:00 56.44 16600 31.12.2004 15:59:00 56.43 21100 31.12.2004 16:00:00 56.43 34500 31.12.2004 16:02:00 56.37 46000 31.12.2004 16:03:00 56.37 111400 Em 4 de março de 2015 13:52, Michelle Bau Graczyk <mbgraczyk(a)gmail.com> escreveu: > Oi Fernando e Rafael > , eu acho que, pelo que eu vi, se eu só mandat o dput nao vai ficar tão > claro. Por isso vou mandar os dados em anexo, espero que você não ache > ruim. Porque assim acho que fica mais claro. > Eu preciso separar por horário os valores de volume. Assim eu quero gerar > uma matriz as quais as colunas vao de 09:31 até 16:03 com as linhas sendo > preenchidas pelos volumes do certo dia. O horário eu deixei em numero que > vai de 1 ate a 396 ao invés de 09:31 até 16:03 porque achei mais fácil, > ainda tenho dificuldades com character. > > Bom, seguem os dados em anexo. > > Muito obrigada! > > Em 4 de março de 2015 13:34, Fernando Antonio de souza < > nandodesouza(a)gmail.com> escreveu: > > Michelle é que para que os usuários da lista possam lhe ajudar é >> necessário que você forneça um CMR(código mínimo reproduzível) isso permite >> que possamos acessar seus dados e refazer os seus comandos e assim lhe >> orientar melhor. >> >> Você forneceu o código, no entanto eu não tenho como acessar seus dados, >> pois o endereço que vc forneceu no read.table não é o mesmo em meu >> computador. >> >> Por isso estou lhe solicitando que faça um dput(seusbancodedados). Após >> dar o enter esta função retornara seu banco de dados em um formato que >> todos os usuários poderam ter acesso apenas por copiar e colar esta saída >> no R. Você copia e cole no email essa saída e assim todos poderão utilizar >> seus dados e lhe ajudar de maneira mais rápida >> >> Você pode fornecer todo o banco de dados ou apenas parte dele (no caso de >> banco de dados muito grande). O importante é que os dados fornecidos possam >> ser reproduzidos pela pessoa que está lhe ajudando. >> >> Em 4 de março de 2015 13:25, Michelle Bau Graczyk <mbgraczyk(a)gmail.com> >> escreveu: >> >> Oi Fernando, >>> >>> Me desculpe mas você pode ser um pouco mais claro? Sou iniciante em R e >>> por isso ainda tenho muita dificuldade. >>> >>> Em 4 de março de 2015 13:20, Fernando Antonio de souza < >>> nandodesouza(a)gmail.com> escreveu: >>> >>> OLÁ >>>> >>>> Faça um dput(seubancodedados) copie e cole a saída para que seus >>>> comandos possa ser replicados e possa lhe ajudar. Acredito que o que você >>>> deseja fazer pode ser feito com funções do pacote plyr ou lapply, o que >>>> torna muito mais eficiente. >>>> >>>> Em 4 de março de 2015 13:09, Michelle Bau Graczyk <mbgraczyk(a)gmail.com> >>>> escreveu: >>>> >>>>> Boa tarde, >>>>> >>>>> Estou com um problema de lógica para o uso do if. Meu intuito com este >>>>> programa é separar por horário os valores do volume. O horário está escrito >>>>> de maneira numérica e vai de 1 até 396. O valor máximo de volumes por >>>>> horário é 126. >>>>> Só que quando tento fazer rodar, vem a mensagem : >>>>> Erro em if (AA.data$hora[k] == i) { : >>>>> valor ausente onde TRUE/FALSE necessário >>>>> >>>>> Abaixo segue o programa. >>>>> >>>>> AA<-read.table("/Users/bau/Documents/Mestrado/teste/AXP_NYS_USD_1min_EST5EDT_200407s12e.dat", >>>>> header=FALSE, col.names=c("data","hora","preco","volume")) >>>>> hora<-as.numeric(AA$hora) >>>>> AA.data<-data.frame(data=AA$data,hora=hora, preco=AA$preco, >>>>> volume=AA$volume) >>>>> write.table(AA.data,"testeteste.txt") >>>>> >>>>> matriz.dadosAA<-matrix(nrow=128,ncol=4) >>>>> for(i in 1:4){ >>>>> >>>>> j<-1 >>>>> for(k in 1:48935){ >>>>> for(j in 1:126){ >>>>> if(AA.data$hora[k]==i){ >>>>> >>>>> >>>>> matriz.dadosAA[j,i]=AA.data$volume[k] >>>>> j=j+1 >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> } else { >>>>> >>>>> matriz.dadosAA[j,i]=0 >>>>> j=j+1} >>>>> >>>>> k=k+1 >>>>> >>>>> } >>>>> } >>>>> } >>>>> a<-matriz.dadosAA[,1] >>>>> write.table(a,"a.txt") >>>>> >>>>> >>>>> >>>>> Muito obrigada, >>>>> >>>>> Michelle >>>>> >>>>> _______________________________________________ >>>>> 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. >>>>> >>>> >>>> >>>> _______________________________________________ >>>> 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. >>>> >>> >>> >>> _______________________________________________ >>> 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. >>> >> >> >> _______________________________________________ >> 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. >> > >

3 7