- R-br - DINF UFPR

Avaliação da evolução do peso
by Edson Lira 31 Ago '16

31 Ago '16

Bom dia a todos da Lista! Abaixo o link de um arquivo teste que estou tentando fazer uma análise.https://www.datafilehost.com/d/UgWFEhooCR Os dados para análise são registros de comparecimento de pacientes em uma unidade de saúde. Cada vez que o paciente comparece na unidade uma das variáveis que é registrada é seu peso, portanto o mesmo paciente pode aparecer uma, duas ou mais vezes, cada uma aparição é um registro. Como faço para avaliar seu peso a cada vez que comparece? considerando com o peso inicial e com os pesos subsequentes registrados. Se um paciente comparece três vezes, seu peso será comparado três vezes (a segunda com a primeira e a terceira com a segunda e a terceira com a primeira). Obrigado a todos![ ]'s. Edson Lira Estatístico Manaus-Amazonas

3 4

Shapefiles x latitude e longitude
by Jailson 31 Ago '16

31 Ago '16

Prezados, bom dia! Peço desculpas se minha dúvida já tenha sido abordada anteriormente, mas não encontrei ao pesquisar nas mensagens arquivadas. Tenho os shapefiles dos municípios do IBGE. Também possuo uma base de dados com cerca de 2000 registros, cada um com uma coordenada de latitude e longitude. Preciso verificar se a coordenada (latitude e longitude) de um registro qualquer pertence ao município a que ele deveria pertencer. Plotando as coordenadas no mapa eu consigo verificar visualmente, mas gostaria de fazer a verificação por programa, onde seriam listados apenas os registros cujas coordenadas não pertencessem ao respectivo município. Agradeço antecipadamente a quem puder me ajudar. Jailson

3 2

Análise de Sequências
by Paulo Nogueira Starzynski 30 Ago '16

30 Ago '16

Boa noite colegas de lista. Terei de abordar um problema de detecção de padrão na ocorrência de eventos ao longo do tempo, isto é, determinar por exemplo que a ocorrência do evento A está temporalmente relacionada ao evento B, e que este está ligado ao evento G. Assim, eu apontaria a sequência de eventos ABG como relevante. Minha base de dados contém uma coluna informando o id do evento, e outra a data/hora de sua ocorrência. São milhares de eventos diferentes e não há informação à priori de quais podem formar as sequências mais prováveis. Comecei a pesquisar alguns pacotes no R que abordam problemas desse tipo e cheguei no *arules* e *TraMineR*. Alguém já trabalhou questões como essa e pode sugerir algo mais? (em tempo, acredito que todas as opções de análise de sequência genética não podem me ajudar nesse problema) Abraços, Paulo Nogueira Starzynski

1 0

Visualizar grande data.frame
by Abel Brasil Ramos da Silva 30 Ago '16

30 Ago '16

Olá a Todos, Bom dia! Possuo um data.frame com 10000 observações e 1350 colunas. Gostaria de apenas visualizar esse dados no próprio R (ou R-Studio), que pacote e comando para executar essa tarefa. Com o comando View existe uma limitação da visualização. Agradeço a ajuda desde já. Abs.

4 9

R-Fiddle
by Raphael Saldanha 30 Ago '16

30 Ago '16

Olá pessoal, Não sei o pessoal conhece, mas não encontrei nenhuma postagem mencionando o R-Fiddle. http://www.r-fiddle.org Trata-se de uma página parecida com o JSFiddle, onde você pode escrever na linguagem R, rodar e ver os resultados, salvar e compartilhar o link. Muito útil na criação de código mínimo reproduzível. Segue um exemplo: http://www.r-fiddle.org/#/fiddle?id=UpgptFnA&version=2 Abs, Raphael Saldanha

1 0

Criando pacotes com o Rstudio
by Pedro Emmanuel Alvarenga Americano do Brasil 30 Ago '16

30 Ago '16

Amigos de R, Eu estou tentando organizar uma coleção de funções em um pacote utilizando o Rstudio. Ja fucei na documentação do Rstudio e alguns sitios por ai mas não consigui uma luz. A minha questão é que tenho tres funções em um mesmo arquivo *.R, que retornam a mesma análise mas por métodos diferentes. Mais ou menos assim... # bloco do roxygen2 #' Diferentes métodos para a mesma análise #' @aliases f1 f2 f3 #'... # bloco das funções f1 <- function(arg1, arg2, arg3) {...} f2 <- function(arg1, arg2, arg3) {...} f3 <- function(arg1, arg2, arg3) {...} O meu problema é que quando eu pressiono "Build & reload", o Rstudio não retorna qualquer aviso ou erro, mas so carrega no pacote a primeira função. Então, quando chamo a segunda ou terceira ele diz que a função não existe. Eu já pensei até em separar as funções em diferentes arquivos, mas gostaria muito de manter essa organização. Até o momento estou achando que preciso fazer alguma configuração do devtools ou do Rstudio pra poder fazer funcionar, mas não estou sabendo qual. Alguma luz de como resolver? Abraço forte, Pedro Brasil

2 2

Sub-amostragem
by Marcos Bissoli 30 Ago '16

30 Ago '16

Prezados, Peço desculpas de antemão se meu problema é de extrema trivialidade ou se o tema já fora aqui debatido. No entanto, pesquisei os arquivos do fórum e não encontrei, dessa vez, uma solução. Gerei um código simplificado de meu problema. Meu intuito é extrair uma sub-amostra de uma amostra de dados já coletados para fins de análise com melhor equilíbrio entre os grupos observados. Assim, elaborei algo semelhante com o abaixo. Id <- 1:20 X <- c("A","B","A","C","A","A","B","A","C","A","A","B","A","C","A","A","B","A","C","A") Dados <- data.frame(Id,X) IdDados <- sample(Dados$Id,5,replace = FALSE) DadosAm <- Dados[id==IdDados[1],] for (i in 2:5) DadosAm <- rbind(DadosAm,Dados[id==IdDados[i],]) DadosAm Este código funciona, e consigo extrair uma sub-amostra aleatória de n1=5 a partir de uma amostra inicial de n=20 em data.frame. No entanto, meu real problema é gerar uma sub-amostra de n1=88 em uma amostra inicial de n=1668. Mas, quando tento fazer com tais dimensões a sub-amostra gera uma série de NA's, que não existem na amostra original. Chequei o funcionamento na amostra real e maior, e percebi que o primeiro Id de IdDados não corresponde ao Id de Dados adicionado já no primeiro comando de criação de DadosAm. Creio que seja algum erro meu de implementação, mas cheguei a fazer testes com simulações de n e n1 maiores e deram certo. Mas quando vou para o meu banco real permanece o problema. Desde já, agradeço qualquer ajuda, e reitero minhas desculpas pela possível trivialidade da dúvida. Saudações acadêmicas, -- MARCOS BISSOLI Faculdade de Nutrição Universidade Federal de Alfenas Blog: bocademiamaldita.blogspot.com/ E-mail: mbissoli(a)gmail.com Twitter: #mbissoli Alfenas, Minas Gerais, Brasil *****Pense na Natureza antes de Imprimir***** Divulgue ON-LINE Eu apoio a ENEN "na luta por um Brasil sem fome" "por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan" (para cada povo sua própria língua, para todos os povos o Esperanto) E nunca votarei no PSDB/DEM!

5 6

r baixando dados inmet
by Rafael Tieppo 29 Ago '16

29 Ago '16

Algum tempo atrás o Alisson Lucrecio e o Éder Comunello estavam trabalhando em um tópico sobre obtenção de dados do INMET. Como precisei obter alguns dados hoje, resolvi testar o código, que por sinal funcionou perfeitamente.Como os dados são salvos em formato ```.html```, tentei montar um script organizar os dados em um ```data.frame```, assim como deixar apenas uma linha para cada dia de coletado, pois os dados do originais do INMET tem formato de duas linhas para cada dia de coleta. Segue o script com os comentários:obs: a função que ordena os dias é não tem uma boa performance, pois faz um bom tempo que fiz ela. #=================================================================# Rafael Tieppo# rafaelt(a)unemat.br# http://docente.unemat.br/rafaeltieppo/# 29-08-2016#================================================================= ##### Goal 1 ### Script to sign in - INMET### Historical Data### Original Source:### http://r-br.2285057.n4.nabble.com/R-br-r-baixando-dados-inmet-td4660459.htm… http://r-br.2285057.n4.nabble.com/R-br-RCurl-td4659610.html##### Goal 2### Ordering and filtering DATA from INMET### use oneline() function from### from https://github.com/rafatieppo/INMET_DATA_ORDER #************************************************************#************************************************************ # GOAL 1#************************************************************#************************************************************ #------------------------------------------------------------### Packageslibrary(RCurl)library(bitops)#------------------------------------------------------------ #------------------------------------------------------------### Logging INMET ### Login linkmyURL1 <- "http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php"### Data linkmyURL2 <- "http://www.inmet.gov.br/projetos/rede/pesquisa/gera_serie_txt.php?&mRelEsta…,"#------------------------------------------------------------ #------------------------------------------------------------### Access Data myParams=list( mCod="EMAIL", ### alterar! mSenha="PASSWORD", ### alterar! btnProcesso = " Acessar ")#------------------------------------------------------------ #------------------------------------------------------------### Getting Data myCurl <- getCurlHandle()curlSetOpt(cookiejar="cookies.txt", useragent="Chrome/10.0.648.133" , followlocation=TRUE, curl=myCurl)###"Mozilla/5.0" login <- postForm(myURL1, .params=myParams, curl=myCurl) DATA <- getURLContent(myURL2, curl=myCurl)#------------------------------------------------------------ #************************************************************#************************************************************ # GOAL 2#************************************************************#************************************************************ #------------------------------------------------------------### Tiding Data ### Using shell script to separate DATA from text#### grep "^83309" < ESTACAO_83309.html > ESTACAO_83303_DATA.csv### Shell script, get all lines that starts with "83309" (station number) SHELL_FUN = paste("grep", "^83309", "<", "ESTACAO_83309.html", ">", "ESTACAO_83303_DATA.csv", sep = ' ')### system(SHELL_FUN) DATA_83303 <- read.csv("ESTACAO_83303_DATA.csv", sep = ";", dec = ".") colnames(DATA_83303) <- c("Estacao", "Data", "Hora", "Precipitacao", "TempMaxima", "TempMinima", "Insolacao", "Evaporacao_Piche", "Temp_Comp_Media", "UR_Media", "Vel_Vent_Media") names(DATA_83303)#------------------------------------------------------------ #------------------------------------------------------------### Organizing DATA### Data from INMET has two lines for each### To put one line for each day, use oneline() function ### Calling ONE_LINE function### from https://github.com/rafatieppo/INMET_DATA_ORDER ### ATTENTION### To use oneline() is mandatory a data.frame with a specific cols data### order, as follow (names doen not matter, only sequence): ### Estacao; Data; Hora; Precipitacao; TempMaxima; TempMinima;### Insolacao; Umidade Relativa Media; Velocidade do Vento Media; DATA_83303 <- DATA_83303[c(1:7,10:11)] Estacao;Data;Hora;Precipitacao;TempMaxima;TempMinima;Insolacao;EvaporacaoPiche;Temp Comp Media;Umidade Relativa Media;Velocidade do Vento Media; ### Ordering with oneline() function DATA_83303_one_line <- one_line(DATA_83303) edit(DATA_83303_one_line) #------------------------------------------------------------ Rafael Tieppo State University of Mato Grosso - Department of Agricultural Engineering site: http://docente.unemat.br/rafaeltieppo/ blog: https://fuidebicicleta.wordpress.com"Evite o desperdício: antes de imprimir pense na sua responsabilidade com o ambiente".

2 2

it's shocking
by Adevair Henrique da Fonseca 28 Ago '16

28 Ago '16

Hi! Have you seen these impressive pics? They are shocking! Just take a look <http://nkequatristi.elysburghauntedhouse.com/e4pwj> See you soon, Adevair Henrique da Fonseca

1 0

Fw: insomnia
by Adevair Henrique da Fonseca 28 Ago '16

28 Ago '16

Hey! When I saw that stuff I couldn't fall asleep and had insomnia for a couple of nights, so I decided to show it to you, just take a look <http://truhustune.tradefleets.com/e4sxuw> My best to you, Adevair Henrique da Fonseca

1 0