- R-br - DINF UFPR

OFF TOPIC - Criar função no emacs para trocar # por ###
by Augusto Ribas 05 Nov '15

05 Nov '15

Ola a todos. Bem eu tenho usado o emacs como ide para o R, mas sempre tive alguns problemas com identação. Pelo que entendo, no emacs, ele le comentário como três #, tipo ###. Mais ou menos esse problema, mas com hashtag http://stackoverflow.com/questions/26312317/wrong-indentation-of-comments-i… Assim quando eu ponho o comentário como um #, se dou um enter logo a frente desse #, o emacs identa e joga la pra frente. Pesquisando no google, eu achei gente reclamando da mesma coisa, e a solução que vi foi desligar a identação automática, o que é ruim, porque é legal o código identado bonitinho. Dai eu pensei, se teria como fazer uma função e deixar no .emacs , para que o emacs pega-se toda hora que eu digita-se #, ele transformasse em ###, porque ### funciona perfeito, mas é chato digitar três ###. Ai estou lendo esse tutorial https://www.masteringemacs.org/article/mastering-key-bindings-emacs E vendo que da para alterar o key-map do teclado, se entendi bem, e trocar teclas para outras funções, mas não estou conseguindo implementar isso pra deixar no .emacs para quando iniciar o emacs, toda hora que eu digitar #, na tela vira três ### Será que alguém poderia dar uma luz aqui? -- 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

1 0

Re: [R-br] Campanha de crowdfunding envolvendo o R e Bioestatística
by Marcos Vital 04 Nov '15

04 Nov '15

Oi, pessoal Estou passando só para divulgar nossa campanha de financiamento uma última vez, pois estamos a uma semana do final. Relembrando: estamos usando uma campanha de financiamento coletivo para equipar o nosso laboratório e produzir material didático sobre diversos assuntos, incluindo um bocado de Bioestatística e suas aplicações no R. A campanha está aqui, para quem se interessar: http://www.kickante.com.br/campanhas/ciencia-livre-ecologia-e-bioestatistic… Abraços! -- Marcos Vinícius Carneiro Vital Universidade Federal de Alagoas Instituto de Ciências Biológicas e da Saúde Setor de Biodiversidade e Ecologia

1 0

Re: [R-br] quem é o autor de tanks.R ???
by Marcos Vital 04 Nov '15

04 Nov '15

Olá, Rodrigo. Fiz uma postagem falando da sua função, e mencionando alguns outros joguinhos no R. Está aqui, caso queira dar uma olhada: https://cantinhodor.wordpress.com/2015/10/25/tiros-explosoes-e-destruicao-a… Abraços! -- Marcos Vinícius Carneiro Vital Universidade Federal de Alagoas Instituto de Ciências Biológicas e da Saúde Setor de Biodiversidade e Ecologia

1 0

Chi-quadrado demonstra associação, mas e daí?
by André Lucas de Oliveira Moreira 03 Nov '15

03 Nov '15

Prezados membros da lista R-br, Solicito a ajuda de vocês para resolver o seguinte problema: Tenho duas espécies de parasitas e alguns fatores que podem estar associados a incidência deles, como o período climático e a própria presença de um dos parasitas. Então executei o qui-quadrado para os seguintes dados: Giardia negativa Giardia positiva Cryptosporidium negativo 79,9% (250/313) 4,8% (15/313) Cryptosporidium positivo 10,9% (34/313) 4,5% (14/313) O resultado do chi-quadrado é siginificativo, mas como interpretar/extrair mais informações além do fato de os fatores estarem associados? O teste fala que há associação, mas apenas 4,5% das amostras continham os dois parasitas ao mesmo tempo. Pesquisei bastante sobre isso e o que achei foi algo muito sucinto sobre odds ratio, mas não entendi, nem saberia fazer no R. Agradecido, André -- *MSc. André Lucas de O. Moreira* http://lattes.cnpq.br/7258065668864153 <http://www.wikiaves.com.br/perfil_andrelukinhas> http://www.wikiaves.com.br/perfil_andrelukinhas 79 8837-3562 79 9132-9093

4 4

(sem assunto)
by Lester Cavero 03 Nov '15

03 Nov '15

1 0

Fwd: Gerar tabela pelo comando latex ( tabular ) a partir de 2 colunas de fatores pertencentes a um dataframe
by André Figueiras Rutz 03 Nov '15

03 Nov '15

Prezados, Vi a sugestão de gerar tabelas no markdown a partir do comando função Hmisc::latex() e li a documentação do pacote. Não localizei muitos exemplos para adaptar, apesar da documentação extensa ainda não consegui gerar a tabela da maneira que desejo que é mais ou menos assim: Segue abaixo CRM do que eu consegui fazer e os arquivos dos dados nos links --- title: "tabela" output: pdf_document --- ```{r, include=F} #--------------------------------------------------------- # Preparo da sessao pkg <- c( "Hmisc", "reshape", "plyr", "tables", "gmodels", "xtable") sapply(pkg, require, character.only = TRUE) #------------------------------------------------------------ # lendo os dados da <- read.csv("D:/data.csv", sep =";") #------------------------------------------------------------ # reordenando fatores da$escopai <- factor(da$escopai, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) da$escomae <- factor(da$escomae, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) ``` Tabela de escolaridade dos genitores ```{r, echo=FALSE, results='asis'} latex (tabular ( (Factor(escopai, "Níveis de escolaridade")) ~ (Factor(escopai, "Pai")) + (Factor(escomae, "Mãe") ), data=da )) ``` _________________________________________________ Gostaria também saber como colocar aquelas famosas notinhas de rodapé em letrinhas miúdas no final da tabela e se alguem conseguir um modelo de outra tabela que inclua uma coluna de porcentagem para cada coluna de dados links: https://dl.dropboxusercontent.com/u/64332051/data.csv https://dl.dropboxusercontent.com/u/64332051/tabela.Rmd Saudações cordiais, André Rutz

2 2

Gerar tabela pelo comando latex ( tabular ) a partir de 2 colunas de fatores de um dataframe
by André Figueiras Rutz 02 Nov '15

02 Nov '15

Prezados, Vi a sugestão de gerar tabelas no markdown a partir do comando função Hmisc::latex() e li a documentação do pacote. Não localizei muitos exemplos para adaptar, apesar da documentação extensa ainda não consegui gerar a tabela da maneira que desejo que é mais ou menos assim: [image: Inline image 1] Segue abaixo CRM do que eu consegui fazer e os arquivos dos dados nos links --- title: "tabela" output: pdf_document --- ```{r, include=F} #--------------------------------------------------------- # Preparo da sessao pkg <- c( "Hmisc", "reshape", "plyr", "tables", "gmodels", "xtable") sapply(pkg, require, character.only = TRUE) #------------------------------------------------------------ # lendo os dados da <- read.csv("D:/data.csv", sep =";") #------------------------------------------------------------ # reordenando fatores da$escopai <- factor(da$escopai, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) da$escomae <- factor(da$escomae, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado")) ``` Tabela de escolaridade dos genitores ```{r, echo=FALSE, results='asis'} latex (tabular ( (Factor(escopai, "Níveis de escolaridade")) ~ (Factor(escopai, "Pai")) + (Factor(escomae, "Mãe") ), data=da )) ``` _________________________________________________ Gostaria também saber como colocar aquelas famosas notinhas de rodapé em letrinhas miúdas no final da tabela e se alguem conseguir um modelo de outra tabela que inclua uma coluna de porcentagem para cada coluna de dados links: https://dl.dropboxusercontent.com/u/64332051/data.csv https://dl.dropboxusercontent.com/u/64332051/tabela.Rmd Saudações cordiais, André Rutz

1 0

Meetup R São Paulo Users Group (IME-USP) - 6 de novembro do 2015
by Luis Benites Sánchez 02 Nov '15

02 Nov '15

Caros, Neste mês de novembro teremos dois Meetups (6 e 27) de usuários de R de São Paulo, no auditório Jacy Monteiro no Bloco B. Segue a programação do mês de novembro. Programação da sexta *6 de novembro* (14h-16:30h) - [14:00 - 14:20] Como publicar seu livro em uma editora internacional - Robinson dos Santos (Springer) - [Presencial] - [14:20 - 15:10] Misturas Finitas de Distribuições Usando o R - Prof. Celso Rômulo (UFAM) - [Presencial] - [15:10 - 15:25] Coffee Break - [15:25 - 16:15] Regressão não linear com o R - Prof. Walmes Zeviani (LEG/DEST/UFPR) - [Online] - [16:15 - 16:25] Sorteio de livros As palestras serão transmitidas ao vivo pela conexão IPTV da USP e YouTube (https://plus.google.com/events/cc1iefrbck0f9m1offtub0fd8p4) . Para poder participar, pode confirmar sua participação gratuitamente no site do Meetup :) Para mais informações: Site: www.meetup.com/pt/useR-SP Canal de YouTube: www.youtube.com/channel/UCb9PdJYYaElE6Uqb1KxhE8w e-mail: meetuprsp(a)gmail.com Um abraço, Luis Benites Sánchez Rocío Paola Maehara Organizadores do São Paulo R Users Group

1 0

Modelo Regressão Beta Inflacionado
by Arlene Guimaraes Leite 31 Out '15

31 Out '15

Prezados, Ospina sugere a construção de bandas de confiança (envelopes) simuladas com o seguinte comando: #==== normal probability plots ==== envelope.BIc(fit, type="quantil", main="quantal residual") mas não estou conseguindo executá-lo no R. Para executar o modelo utilizei as seguintes bibliotecas: library(gamlss) library(gamlss.dist) library(gamlss.nl) library(gamlss.mx) library(gamlss.cens) library(gamlss.tr) library(foreign) library(sas7bdat) Alguém pode me ajudar? Att., Arlene

2 1

Erro em Acesso ao Servidor - Pacote RCurl
by Paulo Nogueira Starzynski 29 Out '15

29 Out '15

Pessoal, estou desenvolvendo um programa que realiza login em um servidor e depois faz uma requisição POST. estava tudo funcionando bem durante o desenvolvimento até que começou a retornar "Internal Server Error: 500" ao fazer o POST. Porém, quando eu acesso via browser, tudo funciona direito. O fato de funcionar no browser indica necessariamente que o erro é no meu código, certo? devem faltar opções de controle no objeto curl... Meu código está abaixo, mas infelizmente não é reproduzĩvel porque o acesso ao servido não é público. Mesmo assim, se alguém com familiaridade em curl puder olhar e dar alguma idéia... testei configurar várias opções do curl e nada contronou esse erro 500. ----------- require(RCurl) #------------------------------------------ curl <- getCurlHandle() curlSetOpt( verbose = T, cookiejar = 'cookies.txt' , followlocation = TRUE , ssl.verifypeer = FALSE, useragent = 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36', curl = curl ) #------------------------------------------ # list parameters to pass to the website (pulled from the source html) your.username <- 'usuario' your.password <- 'senha' params <- list( 'txt_email' = your.username, 'txt_senha' = your.password) # Realiza Login no Servidor webAddr <- "http://hostname.br/dirname/ct_login.php" login <- postForm(webAddr, .params = params, curl = curl, style = 'POST') login [1] "1{Sucesso controller{Login efetuado" attr(,"Content-Type") charset "text/html" "ISO-8859-1" #------------------------------------------ # Realiza Busca webBuscaId <- "http://hostname.br/dirname/executa_busca.php" busca <- postForm(webBuscaId, .opts = list(httpheader = c('Content-Type' = 'application/json', ssl.verifypeer = FALSE)), .params = list('idConsulta' = '13678616F', 'adicPar' = 'formatoNulo'), curl = curl, style="POST") * Hostname was found in DNS cache * Trying 10.65.0.169... * Connected to xxxxxx.xxxxxx.xxx.br (10.65.0.169) port 80 (#3) > POST /xxxxx/executa_busca.php HTTP/1.1 User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36 Host: xxxxx.xxxx.xxx.br Accept: */* Cookie: PHPSESSID=3dug68beqvmgpe0v19cc78a947 Content-Type: application/json ssl.verifypeer: FALSE Content-Length: 28 * upload completely sent off: 28 out of 28 bytes * HTTP 1.0, assume close after body < HTTP/1.0 500 Internal Server Error < Date: Thu, 29 Oct 2015 12:53:27 GMT < Server: Apache/2.2.15 (Red Hat) < X-Powered-By: PHP/5.3.3 < Expires: Thu, 19 Nov 1981 08:52:00 GMT < Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0 < Pragma: no-cache < Content-Length: 0 < Connection: close < Content-Type: text/html; charset=ISO-8859-1 < * Closing connection 3 Error: Internal Server Error > Abraços, Paulo

1 1