Janeiro 2016 - R-br

Re: [R-br] Digest R-br, volume 61, assunto 17
by Paulo Henrique Pimenta 28 Jan '16

28 Jan '16

Usei a função simulacao <- function(proporcao, moedas){ for (n in c(10, 20, 30)) for (p in c(0.3, 0.4, 0.5)) a <- print(moedas(n,p)) return(a) } b <- simulacao(proporcao, moedas) No final ele possui somente um vetor com os dados gerados com n = 30 e p = 0.5 e não todos os gerados pelas combinações. Como eu poderia ter uma vetor ou alguma outra forma de armazenar estes dados? Paulo Henrique de A. S. Pimenta. Graduando em Meteorologia (Bacharelado) - IAG/USP. Fone: +5511981318435. > > Message: 11 > Date: Wed, 27 Jan 2016 09:33:10 +0300 > From: Paulo Henrique Pimenta <paulopimenta6(a)hotmail.com> > To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> > Subject: [R-br] Dúvida em looping e data.frame > Message-ID: <BAY182-W241C2B8A79DFC8287003AFF4D90(a)phx.gbl> > Content-Type: text/plain; charset="iso-8859-1" > > Olá a todos > Estou escrevendo um código que calcula o lance de uma moeda jogada e a probabilidade dela acontecer em respostas de 1 para cara e 0 para coroa, num bloco do meu código fiquei com uma dúvida relacionada a vetorização. Abaixo passarei todo o código e irei destacar o que me traz a dúvida: > > ####Laboratorio 1 de R > ###cara eh 1###coroa eh 0vetor_moedas <- NULLvetor <- NULLa <- NULL > moeda <- function(p){ > if(runif(1) < p){ > y <- 1 > }else{ > y <- 0 } return(y) } ####separando uma funcao da outra#### > moedas <- function(numeros,probabilidade){ > for (i in 1:numeros){ > vetor[i] <- moeda(probabilidade) > } > return(vetor) > } > > ####separando uma funcao da outra#### > proporcao <- function(moedas){ > numeros_1 <- sum(vetor_moedas) > numeros_totais <- length(vetor_moedas) > proporcao_final <- numeros_1/numeros_totais > return(proporcao_final) > } > ####separando uma funcao da outra#### > simulacao <- function(proporcao, moedas){ > ###variando o "n" e o "p" > for (i in 1:500){ > \\Aqui começa a minha, pois como fazer com que o vetor a1 aloque como data.frame todos os dados feitos pela função moedas, como fazer com que a2 também aloque um outro data.frame que aloque informações da função moedas e assim por diante... > n <- c(10, 20, 30, 40, 50) p <- c(0.2, 0.3, 0.4, 0.5) a[i] <- data.frame(moedas(n[i],p[i])) > \\ As vezes ele só aloca o que é produzido em moedas(n[1],p[1]) em a1 e recicla o restante. Se alguém quiser testar fiquem a vontade para ajudar! > } > > return(a) > } > ###############################################################Probabilidade de ser cara ou 1 eh 0.5 - funcao moeda###lancamento de 10 moedas - funcao moedas > ###comeco das chamas > #########################################prob <- 0.4 > moeda(prob) > #########################################n_1 <- 100 > moedas(n_1, prob) > ######################################### > vetor_moedas <- moedas(n_1, prob) > ######################################### > proporcao(vetor_moedas) > ######################################### > simulacao(proporcao,moedas) > #################################### > Um grande abraço a todos!! > > Paulo Henrique de A. S. Pimenta. > Graduando em Meteorologia (Bacharelado) - IAG/USP. > Fone: +5511981318435. > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160127/683e3d06/atta…> > > ------------------------------ > > Message: 12 > Date: Wed, 27 Jan 2016 10:57:57 -0300 > From: Éder Comunello <comunello.eder(a)gmail.com> > To: "r-br(a)listas.c3sl.ufpr.br" <r-br(a)listas.c3sl.ufpr.br> > Subject: Re: [R-br] Dúvida em looping e data.frame > Message-ID: > <CABmC8gmxHtjGenrn6us=VnsgRE2E1B_zCY_nBZ+Vnyp1CZX5nw(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Paulo, bom dia! > > A instrução for (i in 1:500) não parece coerente, pois me parece que você > deveria variar em função da iteração n x p. Ao variar n você irá criar > vetores de tamanhos diferentes, impossibilitando o armazenamento direto em > um data.frame(). Poderia utilizar uma lista. > > Você pode tentar algo como: > simulacao <- function(proporcao, moedas){for (n in c(10, 20, 30)) for (p in > c(0.3, 0.4, 0.5)) print(moedas(n,p))} > simulacao(proporcao, moedas) > > Outro ponto é que você poderia usar rbinom() para os sorteios, enxugando > seu código. Deixo uma ideia abaixo: > > ### <code r> > args(rbinom) ### function (n, size, prob) > vetor_moedas <- rbinom(100, 1, .4); vetor_moedas > sum(vetor_moedas)/length(vetor_moedas) ### proporção final > > for (n in c(10, 20, 30)) for (p in c(0.3, 0.4, 0.5)) print(rbinom(n, 1,p)) > # [1] 0 1 1 0 0 0 0 0 0 0 > # [1] 0 0 0 0 0 0 1 0 0 1 > # [1] 0 1 1 0 0 0 0 1 0 1 > # [1] 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 > # [1] 0 1 0 0 0 1 0 1 0 0 0 1 1 0 0 1 0 0 0 0 > # [1] 0 0 0 1 0 1 1 1 0 1 1 0 1 0 0 1 1 1 1 1 > # [1] 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 > # [1] 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 1 1 1 0 1 0 1 0 0 1 1 1 0 0 0 > # [1] 1 0 0 1 1 1 1 1 1 1 0 0 1 1 0 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 > ### </code> > > > > ================================================ > Éder Comunello > PhD Student in Agricultural Systems Engineering (USP/Esalq) > Brazilian Agricultural Research Corporation (Embrapa) > Dourados, MS, Brazil [22 16.5'S, 54 49.0'W] > > > > > Em 27 de janeiro de 2016 03:33, Paulo Henrique Pimenta < > paulopimenta6(a)hotmail.com> escreveu: > > > Olá a todos > > > > Estou escrevendo um código que calcula o lance de uma moeda jogada e a > > probabilidade dela acontecer em respostas de 1 para cara e 0 para coroa, > > num bloco do meu código fiquei com uma dúvida relacionada a vetorização. > > Abaixo passarei todo o código e irei destacar o que me traz a dúvida: > > > > ####Laboratorio 1 de R > > > > ###cara eh 1 > > ###coroa eh 0 > > vetor_moedas <- NULL > > vetor <- NULL > > a <- NULL > > > > moeda <- function(p){ > > > > if(runif(1) < p){ > > > > y <- 1 > > > > }else{ > > > > y <- 0 > > > > } > > return(y) > > > > } > > > > ####separando uma funcao da outra#### > > > > moedas <- function(numeros,probabilidade){ > > > > for (i in 1:numeros){ > > > > vetor[i] <- > > moeda(probabilidade) > > > > } > > > > return(vetor) > > > > } > > > > > > ####separando uma funcao da outra#### > > > > proporcao <- function(moedas){ > > > > numeros_1 <- sum(vetor_moedas) > > > > numeros_totais <- length(vetor_moedas) > > > > proporcao_final <- numeros_1/numeros_totais > > > > return(proporcao_final) > > > > } > > > > ####separando uma funcao da outra#### > > > > simulacao <- function(proporcao, moedas){ > > > > ###variando o "n" e o "p" > > > > for (i in 1:500){ > > > > \\Aqui começa a minha, pois como fazer com que o vetor a1 aloque como > > data.frame todos os dados feitos pela função moedas, como fazer com que a2 > > também aloque um outro data.frame que aloque informações da função moedas e > > assim por diante... > > > > n <- c(10, 20, 30, 40, 50) > > p <- c(0.2, 0.3, 0.4, 0.5) > > > > a[i] <- data.frame(moedas(n[i],p[i])) > > > > \\ As vezes ele só aloca o que é produzido em moedas(n[1],p[1]) em a1 e > > recicla o restante. Se alguém quiser testar fiquem a vontade para ajudar! > > > > } > > > > > > return(a) > > > > } > > > > ############################## > > ############################## > > ###Probabilidade de ser cara ou 1 eh 0.5 - funcao moeda > > ###lancamento de 10 moedas - funcao moedas > > > > ###comeco das chamas > > > > ######################################### > > prob <- 0.4 > > > > moeda(prob) > > > > ######################################### > > n_1 <- 100 > > > > moedas(n_1, prob) > > > > ######################################### > > > > vetor_moedas <- moedas(n_1, prob) > > > > ######################################### > > > > proporcao(vetor_moedas) > > > > ######################################### > > > > simulacao(proporcao,moedas) > > > > ### > > ### > > ############################## > > > > > > Um grande abraço a todos!! > > > > Paulo Henrique de A. S. Pimenta. > > > > Graduando em Meteorologia (Bacharelado) - IAG/USP. > > Fone: +5511981318435. > > > > _______________________________________________ > > 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. > > > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160127/515a392f/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 61, assunto 17 > *****************************************

1 1

Validando o CPF
by Wagner Tassinari 27 Jan '16

27 Jan '16

Olá pessoal, Alguém conhece algum código em R para verificar a consistência do número do CPF ? Obrigado -- Wagner S. Tassinari Departamento de Matemática Universidade Federal Rural do Rio de Janeiro. BR-465, Km 7 - Seropedica, RJ - Brasil CEP: 23890-000 Skype: wagner.tassinari wtassinari(a)gmail.com tassinari(a)ufrrj.br ------------------------------------------------------- "Statistical thinking will one day be as necessary for efficient citizenship as the ability to read and write." (H.G.Wellis)

2 1

Dúvida em looping e data.frame
by Paulo Henrique Pimenta 27 Jan '16

27 Jan '16

Olá a todos Estou escrevendo um código que calcula o lance de uma moeda jogada e a probabilidade dela acontecer em respostas de 1 para cara e 0 para coroa, num bloco do meu código fiquei com uma dúvida relacionada a vetorização. Abaixo passarei todo o código e irei destacar o que me traz a dúvida: ####Laboratorio 1 de R ###cara eh 1###coroa eh 0vetor_moedas <- NULLvetor <- NULLa <- NULL moeda <- function(p){ if(runif(1) < p){ y <- 1 }else{ y <- 0 } return(y) } ####separando uma funcao da outra#### moedas <- function(numeros,probabilidade){ for (i in 1:numeros){ vetor[i] <- moeda(probabilidade) } return(vetor) } ####separando uma funcao da outra#### proporcao <- function(moedas){ numeros_1 <- sum(vetor_moedas) numeros_totais <- length(vetor_moedas) proporcao_final <- numeros_1/numeros_totais return(proporcao_final) } ####separando uma funcao da outra#### simulacao <- function(proporcao, moedas){ ###variando o "n" e o "p" for (i in 1:500){ \\Aqui começa a minha, pois como fazer com que o vetor a1 aloque como data.frame todos os dados feitos pela função moedas, como fazer com que a2 também aloque um outro data.frame que aloque informações da função moedas e assim por diante... n <- c(10, 20, 30, 40, 50) p <- c(0.2, 0.3, 0.4, 0.5) a[i] <- data.frame(moedas(n[i],p[i])) \\ As vezes ele só aloca o que é produzido em moedas(n[1],p[1]) em a1 e recicla o restante. Se alguém quiser testar fiquem a vontade para ajudar! } return(a) } ###############################################################Probabilidade de ser cara ou 1 eh 0.5 - funcao moeda###lancamento de 10 moedas - funcao moedas ###comeco das chamas #########################################prob <- 0.4 moeda(prob) #########################################n_1 <- 100 moedas(n_1, prob) ######################################### vetor_moedas <- moedas(n_1, prob) ######################################### proporcao(vetor_moedas) ######################################### simulacao(proporcao,moedas) #################################### Um grande abraço a todos!! Paulo Henrique de A. S. Pimenta. Graduando em Meteorologia (Bacharelado) - IAG/USP. Fone: +5511981318435.

2 1

Criar um convex hull para um objeto shapefile
by ASANTOS 27 Jan '16

27 Jan '16

Prezados Listeiros, Eu gostaria de criar um convex hull que envolvesse 4 polígonos, representados por um objeto oriundo da leitura de um readShapeLines(), sem ter que transformar o objeto em SpatialPolygonsDataFrame, isso é possível? Meu CRM: #Pacotes require(rgdal) require(maptools) #------------------------------------------------------------------------------- #Crio 4 polígonos sr <- SpatialPolygons(list( Polygons(list(Polygon(cbind(c(180114, 180553, 181127, 181477, 181294, 181007, 180409, 180162, 180114), c(332349, 332057, 332342, 333250, 333558, 333676, 332618, 332413, 332349)))),'1'), Polygons(list(Polygon(cbind(c(180042, 180545, 180553, 180314, 179955, 179142, 179437, 179524, 179979, 180042), c(332373, 332026, 331426, 330889, 330683, 331133, 331623, 332152, 332357, 332373)))),'2'), Polygons(list(Polygon(cbind(c(179110, 179907, 180433, 180712, 180752, 180329, 179875, 179668, 179572, 179269, 178879, 178600, 178544, 179046, 179110), c(331086, 330620, 330494, 330265, 330075, 330233, 330336, 330004, 329783, 329665, 329720, 329933, 330478, 331062, 331086)))),'3'), Polygons(list(Polygon(cbind(c(180304, 180403,179632,179420,180304), c(332791, 333204, 333635, 333058, 332791)))),'4'))) plot(sr) #Converto em polígono espacial srdf=SpatialPolygonsDataFrame(sr, data.frame(row.names=c('1','2','3','4'), PIDS=1:4)) srdf@data #Criação do shapefile para ilustrar o problema writeOGR(srdf, getwd(), 'POLY', 'ESRI Shapefile') #Leitura do shapefile contorno_line_X <- readShapeLines ("POLY.shp") #Plot plot(contorno_line_X) #Tentativa de criar o convex hull df.data = as.data.frame(contorno_line_X) ch <- chull(df.data) lines(ch, col="red") ##Não funciona 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 OrcID: orcid.org/0000-0001-8232-6722 Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10 LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635 ======================================================================

3 5

Pacote rJava
by Gislaine Batistela 26 Jan '16

26 Jan '16

Olá! Estou com dificuldade para carregar o pacote rJava. Por favor, alguém poderia me ajudar? Vejam as mensagens: > utils:::menuInstallPkgs() --- Please select a CRAN mirror for use in this session --- trying URL 'http://www.vps.fmvz.usp.br/CRAN/bin/windows/contrib/3.0/rJava_0.9-6.zip' Content type 'application/zip' length 758820 bytes (741 Kb) opened URL downloaded 741 Kb package ‘rJava’ successfully unpacked and MD5 sums checked The downloaded binary packages are in C:\Users\Unesp\AppData\Local\Temp\Rtmpsx6PLo\downloaded_packages > local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE) + if(nchar(pkg)) library(pkg, character.only=TRUE)}) Error : .onLoad failed in loadNamespace() for 'rJava', details: call: fun(libname, pkgname) error: JAVA_HOME cannot be determined from the Registry Error: package or namespace load failed for ‘rJava’ -- Gislaine Cristina Batistela

3 3

Dúvidas em condicional composto
by Edson Lira 26 Jan '16

26 Jan '16

Caros listeiros, tenho essa configuração em um banco eem dpm brpm 1 Alto Alto Médio 2 Alto Alto Alto 3 Alto Alto Médio 4 Alto Alto Alto 5 Alto Alto Médio 6 Alto Alto Baixo 7 Alto Alto Baixo Se duas dessas variáveis apresentarem o nível alto, digo que há um estresse no indivíduo. Por exemplo se eem ou dpm for alto, digo que há um estresse, basta uma cominação qualquer de duas ou três variáveis apresentando alto, digo que há estresse. eem=alto e dpm= alto ->estresseeem=alto e brpm= alto ->estressedpm=alto e brpm= alto ->estressedpm=medio e brpm= alto ->sem estresse Não sei como implementar no R. Alguém poderia me sugerir alguma rotina? [ ]'s Edson Lira Estatístico Manaus-Amazonas

2 2

PNS - pesquisa nacional de saude
by Elias Teixeira Krainski 26 Jan '16

26 Jan '16

Caros(as) Achei interessante esse post sobre a pesquisa nacional de saude: http://www.r-bloggers.com/analyze-the-pesquisa-nacional-de-saude-pns-with-r/ Qualquer um pode iniciar pelos scripts disponibilizados e analizar dados da PNS ao nivel de individuos. Abs, Elias

2 1

Frequência de missings
by Wagner Tassinari 22 Jan '16

22 Jan '16

Olá pessoal, Tenho uma variável character ou factor com NAs, daí eu gostaria de tabula-lo também para ver a frequência, eu uso o comando: Table(banco$var[banco$var=='NA']) e não roda. Obrigado

3 2

arquivo .rmd - Grafico da rede neural não aparece
by Leonard de Assis 22 Jan '16

22 Jan '16

Título da msg explica > sessionInfo() R version 3.2.3 (2015-12-10) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows >= 8 x64 (build 9200) locale: [1] LC_COLLATE=Portuguese_Brazil.1252 LC_CTYPE=Portuguese_Brazil.1252 [3] LC_MONETARY=Portuguese_Brazil.1252 LC_NUMERIC=C [5] LC_TIME=Portuguese_Brazil.1252 attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] nnet_7.3-11 caret_6.0-64 ggplot2_2.0.0.9001 lattice_0.20-33 [5] mlbench_2.1-1 RevoUtilsMath_3.2.3 loaded via a namespace (and not attached): [1] Rcpp_0.12.3 compiler_3.2.3 nloptr_1.0.4 plyr_1.8.3 [5] iterators_1.0.8 tools_3.2.3 digest_0.6.9 lme4_1.1-10 [9] nlme_3.1-124 gtable_0.1.2 mgcv_1.8-10 Matrix_1.2-3 [13] foreach_1.4.3 yaml_2.1.13 parallel_3.2.3 SparseM_1.7 [17] stringr_1.0.0.9000 knitr_1.12 MatrixModels_0.4-2 stats4_3.2.3 [21] grid_3.2.3 rmarkdown_0.9.4 minqa_1.2.4 reshape2_1.4.1.9000 [25] car_2.1-1 magrittr_1.5 scales_0.3.0 codetools_0.2-14 [29] htmltools_0.3 MASS_7.3-45 splines_3.2.3 rsconnect_0.4.1.4 [33] pbkrtest_0.4-5 colorspace_1.2-6 quantreg_5.19 stringi_1.0-1 [37] munsell_0.4.2 > ____ código --- title: "Neural Network example" author: "Leonard Mendonça de Assis" date: "21 de janeiro de 2016" output: pdf_document: highlight: pygments number_sections: yes html_document: highlight: pygments number_sections: yes word_document: highlight: pygments --- # Session start ```{r} require(MASS) require(neuralnet) require(plyr) require(boot) require(knitr) data <- Boston kable(head(data)) kable( apply(data,2,function(x) sum(is.na(x))), caption='NAs per variables' ) ``` # Adjusting a linear model ```{r} set.seed(500) index <- sample(1:nrow(data),round(0.75*nrow(data))) train <- data[index,] test <- data[-index,] lm.fit <- glm(medv~., data=train) summary(lm.fit) pr.lm <- predict(lm.fit,test) MSE.lm <- sum((pr.lm - test$medv)^2)/nrow(test) ``` # Adjusting a Neural Net As a first step, we are going to address data preprocessing. It is good practice to normalize your data before training a neural network. I cannot emphasize enough how important this step is: depending on your dataset, avoiding normalization may lead to useless results or to a very difficult training process (most of the times the algorithm will not converge before the number of maximum iterations allowed). You can choose different methods to scale the data (z-normalization, min-max scale, etc). I chose to use the min-max method and scale the data in the interval [0,1]. Usually scaling in the intervals [0,1] or [-1,1] tends to give better results. We therefore scale and split the data before moving on: ```{r} maxs <- apply(data, 2, max) mins <- apply(data, 2, min) scaled <- as.data.frame(scale(data, center = mins, scale = maxs - mins)) train_ <- scaled[index,] test_ <- scaled[-index,] ``` Note that scale returns a matrix that needs to be coerced into a data.frame. ```{r} n <- names(train_) f <- as.formula(paste("medv ~", paste(n[!n %in% "medv"], collapse = " + "))) nn <- neuralnet(f,data=train_,hidden=c(5,3),linear.output=T) ``` And the Neural Nework looks like this: ```{r} plot(nn) ``` ```{r} sessionInfo() ```

1 0

Re: [R-br] RES: Ler um HTM
by Éder Comunello 21 Jan '16

21 Jan '16

Leonardo, boa tarde! Voltando na discussão... Acredito que não tem como fazer a conexão direta com o arquivo .zip alocado na web, mas uma vez que você baixa o arquivo com download.file(), pode usar unz() para não precisar descompactar. Tem um post antigo em < https://stat.ethz.ch/pipermail/r-help/2008-October/176266.html>. Abaixo tem um exemplo bem simples, mas que pode ser útil. É feita a leitura de uma tabela .html a partir de um arquivo .zip alocado no Google Drive. ### <code r> setwd("D:\\TEMP") url.zip <- "https://drive.google.com/open?id=0B8y1jJExW6kabHU3SXV3dXB2OEk" url.zip <- sub("^.*\\?(id.*$)", " https://drive.google.com/uc?export=download&\\1", url.zip) url.zip ### https://drive.google.com/uc?export=download&id=0B8y1jJExW6kabHU3SXV3dXB2OEk" if (!file.exists("html.zip")) download.file(url.zip, "html.zip", mode="wb") unzip("html.zip", list=T) ### conteúdo closeAllConnections() con <- unz("html.zip", "htmlTable.html") XML::readHTMLTable(readLines(con)) # $`NULL` # First Name Last Name Points # 1 Jill Smith 50 # 2 Eve Jackson 94 close(con) ### </code> ================================================ Éder Comunello PhD Student in Agricultural Systems Engineering (USP/Esalq) Brazilian Agricultural Research Corporation (Embrapa) Dourados, MS, Brazil [22 16.5'S, 54 49.0'W] Em 7 de janeiro de 2016 10:54, Leonard de Assis <assis.leonard(a)gmail.com> escreveu: > Paulo, o que achei via google de ontem pra hoje vai nessa direção mesmo. > > > > Estou rodando vários exemplos que achei e, em paralelo, adaptando meu > código. > > > > Eu já consigo ler os trecos dentro do HTML, o que agarra é esse processo > de descompactar o htm dentro. > > > > Fiz um esqueminha em C usando curl e xml que funciona. Se ficar demorando > muito, porto essa joça pra ficar no formato que o R entende e resolvo por > esse caminho. > > > > Ou então, deixo como está, que é baixar o zip, descompactar e ler. > > > > *De:* R-br [mailto:r-br-bounces@listas.c3sl.ufpr.br] *Em nome de *Paulo > Nogueira Starzynski > *Enviada em:* quinta-feira, 7 de janeiro de 2016 09:39 > *Para:* R-BR <r-br(a)listas.c3sl.ufpr.br> > *Assunto:* Re: [R-br] Ler um HTM > > > > Leonardo, > > talvez você já tenha alguma vez trilhado o caminho das pedras do > webscrapping, mas, se não, recomendo os pacotes XML, RCurl e rvest (eu uso > mais os dois primeiros). > > > Abraços, > > Paulo > > > > Em 6 de janeiro de 2016 23:45, Leonard de Assis <assis.leonard(a)gmail.com> > escreveu: > > Boa noite a todos > > > > Estou com um problema idiota em mãos. Preciso ler um arquivo .HTM dentro > de um arquivo .zip. > > Até agora, o jeito que achei mais produtivo foi: > > 1. baixar o zip (posso fazer isso com o R via download.file) > > 2. extrair o .HTM do arquivo (posso fazer isso via unzip) > > 3. ler a tabela contida no HTM utilizando readHTMLTable (lib XML) > > > > A questão que tenho é a seguinte: > > > > Existe um jeito mais rápido que este? Eu já consegui ler .csv direto de > arquivo .zip utilizando o comando unz e read.table. Será que funciona assim > também em HTML? Se sim, qual seria a func? > > > > Leonard > > > > OS: ainda tenho que pensar como fazer webscrap desse htm, kkk > > > > > > > _______________________________________________ > 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. >

1 0