Prezados Membros do r-br,
Estou tentando criar um objeto X_train através de funções do pacote
dplyr e a função as.matrix(), mas eu não consigo criar o número das
linhas para esse objeto. Meu CMR é:
|library(dplyr)
Bom dia Membros,
Eu gostaria de realizar a manipulação de um *txt para uso de algumas
informações como variáveis em um data frame a ser criado. Em meu exemplo:
#Pacote
library(tidyverse)
# Leitura do arquivo
Muito obrigado pela ajuda Cid, mas ainda tem alguma informação que está
sendo perdida, pois:
myfile <-
vroom("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt;,
delim = "\t", skip = 5)
myfile <- myfile %>% rename(dados = `folder input=imgval/ and
Prezados membros,
Surgiu um novo problema para a extração de informações em um arquivo
*txt quando eu tenho que computar também quando eu não tenho determinada
informação (lca) e preciso considerar isso no meu data.frame final.
Em meu exemplo:
#Pacotes
library(vroom)
library(tidyverse)
/3085587/alexandre-dos-santos/
--
Em 28/09/2020 17:45, ASANTOS escreveu:
Estou com um problema para criar um dataframe a partir de um conjunto
de duas linhas de interesse, sendo:
library(tidyverse)
myfile<-read_lines("https://raw.githubusercontent.com/Leprechault/yolov3ants/maste
Estou com um problema para criar um dataframe a partir de um conjunto de
duas linhas de interesse, sendo:
library(tidyverse)
myfile<-read_lines("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt;)
head(myfile)
Em algumas parte do meu arquivo
Estoucomumproblemaparacriarumdataframeapartirdeumconjuntodeduaslinhasdeinteresse,
sendo:
library(tidyverse)
myfile<-read_lines("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt;)
head(myfile)
Prezados Membro do R-br,
Gostaria de saber a diferença entre realizar:
1) Análise de normalidade sobre a variável resposta
x <- rep(seq(from=10, to=50, by=0.5),6)
y1 <- rnorm(length(x), mean=10, sd=1.5)
y1.res<-y1-mean(y1)
shapiro.test(y1.res)
# Shapiro-Wilk normality test # #data: y1.res #W
Muito obrigado Max, genial e muito didática a sua resposta!!!
Apenas mudei o final para *csv para evitar a confusão que dá no *txt
entre *numeric*/*character*, sendo:
filename <- myfile[1, 1] %>%
str_extract(".*:") %>%
str_remove("\\.jpg:") %>%
paste0("pred_", ., ".csv")
filename
#
Prezados membros do r-br,
Eu gostaria de criar um novo data frame à partir de output de uma
análise em *txt empregando o pacote *tidyverse*, sendo:
library(tidyverse)
#Arquivo original
https://www.dropbox.com/s/2f13c2wb66zfrmr/result.txt?dl=0
#Faço a leitura do arquivo
Obrigado Max, Mauro e Cesar,
Deu certo, só tive que transformar o objeto *tibble* em *dataframe* na
solução inicial do Max e tem outra que não necessita do pacote
tidyverse, mas utilizam gsub, strsplit e grep, seguem as soluções:
# Solução 1
library(tidyverse)
myfile <- read_lines("log.txt")
Prezados membros do r-br,
Eu gostaria de criar um data frame à partir de output de uma análise em
*txt, sendo:
#Arquivo original
https://www.dropbox.com/s/pncmjwl3camap6d/log.txt?dl=0
#Faço a leitura do arquivo
myfile<-read.table("log.txt", sep="\t", quote="", comment.char="")
Prezados Membros,
Eu gostaria de dividir um raster RGB em várias partes e salvar cada
imagem no formato GeoTiff, mas no nome do arquivo eu preciso da contagem
de pontos (pts) dentro de cada divisão. Meu código funciona
perfeitamente quando eu uso uma única camada do raster, mas com o objeto
Prezados Membros,
Estou tentando plotar sem sucesso o intervalo em um modelo GLM de
Poisson onde fiz a junção de níveis para a variável categórica Gender.
Alguém baseado no CRM abaixo poderia dar uma luz?
#Pacotes
library(ggplot2)
library(dplyr)
library(tidyverse)
#Dados inventados com uma
rem."
Acredito que afunção nlsLM conte o número de interação para obter o
melhor ajuste e limita um valor máximo para nao ficar rodando
indefinidamente. Esta contagem é crescente não?
Desculpe a pergunta mas estou tentando enteder a questão para propor
um solução
On Apr 25 2019, at 12:46
7,36,48,60,72,88,96,27,36,48,60,27,27,36,48,60,72,88,96,27,36,48,60,72,88,96,27,36,48,60,72,88,96)
Diameter<-c(13.9,16.2,19.1,19.3,4.7,6.7,9.6,11.2,13.1,15.3,15.4,5.4,7,9.9,11.7,13.4,16.1,16.2,5.9,8.3,12.3,14.5,2.3,5.2,6.2,8.6,9.3,11.3,15.1,15.5,5,7,7.9,8.4,10.5,14,14,4.1,4.9,6,6.7,7.7,8,8.2)
d<-dados <- data.frame(Feature,Age,Diameter)
str(d)
# #Realizando os ajustes
modelo<-function(dado
Prezados Membros,
Gostaria de fazer um loop (999 vezes) para ajustar dois modelos nls
(Diameter ~ a1 * Age^a2) à partir de um subset em função da minha
variável Feature, porém a cada vez que realiza o loop eu gostaria de
reciclar os start values através da modificação em
Boa noite Cesar,
Obrigado pela ajuda. Para mim, quando eu rodo aparece também alguns
alertas:
Warning messages: 1: In chisq.test(table(emp), table(est), correct =
TRUE) : Aproximação do qui-quadrado pode estar incorreta 2: In
densfun(x, parm[1], parm[2], ...) :NaNs produzidos 3: In
Prezados Membros,
Estou tentando realizar um teste de aderência (Qui-quadrado)
aplicado a dados com distribuição binomial negativa sem sucesso. Em meu CRM:
#Pacote MASS
library(MASS)
#Crio um banco de dados simulado
Features<-sort(rep(1:3,100))
Resp1<-rnbinom(200,0.75,0.10) ##60 dados
Prezados Membros,
Estou tentando realizar a estimação dos coeficientes de um modelo
não linear com a função optim(), mas só recebo a mensagem de erro:
Error in optim(c(0.97, 0.32), function(a) f(a, x, yexp)) : função alvo
em optim retorna um objeto de comprimento 11 ao invés de 1
Prezados Membros do R-br,
Estou tentando plotar um modelo glmcom stat_smooth() no ggplot2 sem
sucesso. Minha ideia é representar o intervalo de confiança para um
modelo onde realizei a junção de dois níveis para o fator Feature. Ou
seja, modelos iguais são representados por uma única
Prezados Membros do R-br,
Estou tentando plotar um modelo glm Gamma com stat_smooth() no
ggplot2 sem sucesso. Minha ideia é representar o intervalo de confiança
para um modelo onde realizei a junção de dois níveis para o fator
Feature. Segundo exemplo fictício do meu problema:
= 2
for(amb in ambs) {
subpopulacao = d[d$Amb == amb]
for (i in 1:repeticoes) {
amostra = subpopulacao[sample(NROW(subpopulacao), 5),]
amostra$desv_pad = sd(amostra$rate, na.rm = T)
resultado = rbind(resultado, amostra)
}
}
Atenciosamente,
Rodrigo Ângelo
On Mon, Nov 5, 2018 at 2:38
Prezados Membros,
Segue um exemplo do que estou tentando fazer:
#Tenho um banco de dados d com 4 variáveis (State, Amb, Year e rate)
library(data.table)
d <- fread ("
State Amb Year rate
GA soil 2015 .4
GA soil
Caros Membros,
Com fins ilustrativos e exploratório, tenho pontos correspondentes
a dois tratamentos A e B espacialmente distribuídos no campo, estou
delimitando o limite (zona de influência) de cada um como uma elipse,
através da função ellipsoidhull() do pacote cluster conforme CRM
áveis neste caso porque entendo que o CMR é só para
discutir a técnica.
HTH
2018-05-03 16:30 GMT-03:00 ASANTOS <alexandre.san...@cas.ifmt.edu.br
<mailto:alexandre.san...@cas.ifmt.edu.br>>:
Obrigado Cezar,
Então mudando
names(load.rot[,2][order(abs(load.rot[,
Obrigado Cezar,
Então mudando
names(load.rot[,2][order(abs(load.rot[,2]),decreasing=TRUE)][1:topN]) e
names(load.rot[,3][order(abs(load.rot[,3]),decreasing=TRUE)][1:topN]),
vou ter as cinco variáveis mais correlacionadas com a segunda e terceira
componentes principais respectivamente?
Prezados Membros,
Gostaria de selecionar as 5 variáveis resposta no primeiro
componente principal mais correlacionadas usando a PCA, através da
função prcomp(), conforme o post
Prezados Membros do R,
Preciso extrair linhas de um data frame dentro de cada nível de um
fator, usando a função sample_n() do pacote dplyr. Sendo meu CRM:
#Data set artificial
df <- data.frame(matrix(rnorm(80), nrow=40))
df$color <- rep(c("blue", "red", "yellow", "pink"), each=10)
Ops, ficou faltando chamar o pacote cadisc:
library(candisc)
data(Rohwer, package="heplots")
X <- as.matrix(Rohwer[,6:10]) # the PA tests
Y <- as.matrix(Rohwer[,3:5]) # the aptitude/ability variables
(cc <- cancor(X, Y, set.names=c("PA", "Ability")))
--
Boa tarde Membros,
Estou trabalhando com análise de correlação canônica com a
função cancor() do pacote candisc, por exemplo e segundo a função, se eu
faço:
data(Rohwer, package="heplots")
X <- as.matrix(Rohwer[,6:10]) # the PA tests
Y <- as.matrix(Rohwer[,3:5]) # the
Bom dia Membros,
Favor gostaria de solicitar bom materiais de modelos mistos
aplicados ao R, alguém poderia ajudar?
Obrigado e abraços,
Alexandre
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal
Prezados Membros,
Estava acostumado a ler múltiplas imagens em *tif com o CRM
abaixo e retirar informações de interesse, mas quando tento fazer o
mesmo para imagens do satélite Sentinel 2 em *jp2 não funciona, a função
stack() do pacote raster não funciona. Alguém saberia me dizer o
Walmes,
Mais uma vez prestou um claro e didático esclarecimento da
questão levantada, obrigado pela explanação e referências apontadas,
Redobrados agradecimentos,
Alexandre
--
==
Alexandre dos Santos
Proteção
Prezados membros,
Utilizo de maneira rotineira o ajuste de modelos GLM
(normalmente para as famílias de Poisson e binomial) e realizo para
variáveis qualitativas comparações múltiplas de médias baseada em
funções como glht() do pacote multicomp. No entanto, tenho encontrado
Prezados membros,
Gostaria de extrair a média de valores dos pixels de
interesse em um raster, dadas as coordenadas centrais de áreas
circulares e a determinação do raio, que é dada pelo buffer da função
extract() do pacote raster, porém da forma como estou fazendo não esta
Muito obrigado Jônatan, ajudou muito!!!
--
==
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:
Obrigado Jônatan,
Desculpe se não fui claro na minha pergunta , mas a função
sugerida xyFromCell(r, df$cel):
x y
[1,] -162 -81
Retorna apenas a coordenada do pixel V1 = 61, gostaria de
extrair a coordenada do centro de todos os pixels de V1 a V10
x y cel
col = p$col[ir],
ncols = 2,
row = p$row[ir],
nrows = 1)
}# end fun
)
df <- data.frame(p, vals2cols)
df
2017-01-26 17:43 GMT-02:00 ASANTOS via R-br <r-br@listas.c3sl.ufpr.br
<mailto:r
Prezados Membros,
Tenho um raster hipotético r:
require(raster); require(sp)
## Criando um raster
r <- raster(nc=10, nr=10)
r <- setValues(r, round(runif(ncell(r))* 255))
Consigo extrair os valores dos pixels de interesse dadas as
coordenadas centrais dos mesmos:
x <-
(out3[[i]])=names
}
Tito Conte
Em 11 de janeiro de 2017 21:28, ASANTOS via R-br
<r-br@listas.c3sl.ufpr.br <mailto:r-br@listas.c3sl.ufpr.br>> escreveu:
Caros Membros,
Eu gostaria de modificar um data frame em uma matriz de
comparação múltipla específic
Caros Membros,
Eu gostaria de modificar um data frame em uma matriz de
comparação múltipla específica para tanto tenho um data frame DF com a
nota dada por dois indivíduos (Indv) para cinco diferentes produtos
químicos, sendo:
Indv<-c(1,2)
deltametrina<-c(1,1)
fipronil<-c(5,3)
1:2, each = 6) # Cria a coluna com a variável N,
identificando os sujeitos
novoDS <- reshape(DS, timevar = 'PAISAGEM', idvar = 'N', direction =
'wide') # Transforma os dados
2016-04-18 9:09 GMT-03:00 ASANTOS <alexandresanto...@yahoo.com.br
<mailto:alexandresanto...@yahoo.com.br>
Caros Listeiros,
Tenho um banco de dados (DS) representado abaixo:
##Dados originais
PAISAGEM<-c("Area_Urbana","Cerrado","Mata", "NaoClassificada",
"Pastagem","Agua",
"Area_Urbana","Cerrado","Mata", "NaoClassificada", "Pastagem","Agua")
Caros Listeiros,
Tenho dois data frames DF1 e DF2, sendo que o primeiro
representa a comparação múltipla entre alguns tratamentos de DF2 e o p
valor correspondente. Eu gostaria de criar um variável groups dentro de
DF2 em função do valor de p de DF1, de foram que meu output final seja:
Caros Listeiros,
Tenho dois data frames DF1 e DF2, sendo que o primeiro
representa a comparação múltipla entre alguns tratamentos de DF2 e o p
valor correspondente. Eu gostaria de criar um variável groups dentro de
DF2 em função do valor de p de DF1, de foram que meu output final
Muito obrigado Walmes!!
Era exatamente a dica que eu queria,
da <- data.frame(F1 = rep(LETTERS[1:4], c(4, 6, 10, 20)),
F2 = sample(1:3, size = 40, replace = TRUE))
str(da)
length(da[,1])
xtabs(~F1 + F2, data = da)
--
Prezados Listeiros,
Gostaria de uma ajuda do grupo para criação de uma
função para criação de uma variável dados$groups, em função da
significância de res$aov.tab$Pr=> 0.05, de maneira que níveis de
fatores iguais serão fundidos, como no exemplo abaixo onde trat1 e
trat2 são
Prezados Listeiros,
Gostaria de uma ajuda do grupo para criação de uma
função para criação de uma variável dados$groups, em função da
significância de res$aov.tab$Pr=> 0.05, de maneira que níveis de fatores
iguais serão fundidos, como no exemplo abaixo onde trat1 e trat2 são
Prezados Listeiros,
Gostaria de criar um fatorial completo entre 4 tratamentos com
dados desbalanceados usando a função gen.factorial() com o pacote
AlgDesign. Alguém poderia me ajudar, segue CRM abaixo:
#Dados artificiais
tratamentos_b <- gl(4, 15, labels = paste("t", 1:3, sep=""))##
veu:
Além disso, não tinha reparado, a comparação que você deseja pra
Classe 1 é "A" ou "C" ou "F" ou "H", pois não dá pra ser A e C e F e H
juntos, certo?
Em 22 de março de 2016 11:50, Rafael Garcia Cunha <rafar...@gmail.com
<mailto:rafar...@gma
...@yahoo.com.br
alexandre.san...@cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/-0001-8232-6722
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
ê notar, você está trabalhando com ifelse, então, se o
primeiro if não for atendido, ele já é maior que 1, então não precisa
fazer essa comparação novamente.
Em 22 de março de 2016 10:58, ASANTOS <alexandresanto...@yahoo.com.br
<mailto:alexandresanto...@yahoo.com.br>> escreveu:
P
Prezados listeiros,
Gostaria se criar uma coluna de classificação do meu objeto var
em classes, segundo intervalos arbitrários como quando <=1 vai se chamar
"Classe1", >1 e <2 vai se chamar "Classe2", etc. Porém o meu objeto de
classificação RES$classes não esta dando certo aliás é uma
ces (UEM)
DSc in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil ||
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00
Em 21 de março de 2016 11:02, ASANTOS <alexandr
Muito obrigado Éder,
Foi muito útil sim, já estava largando mão,
Redobrados agradecimentos,
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus
/www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
======
Em 16/03/2016 14:58, ASANTOS escreveu:
correla <- round(cor.prob(var1,var2,var3,var4),4)
___
Prezados Listeiros,
Estou tentando implementar uma matriz de correlação para dados
desbalanceados, isso é possível? Segue CRM abaixo da tentativa do que
venho tentando fazer, alguém poderia iluminar a questão para mim?
#Variáveis artificiais
var1<-rnorm(200,5,0.25)## Tamanho do
22
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
==
Em 10/03/2016 08:33, ASANTOS escreveu:
Muito obrigado Éder
Era exatamente a função que eu procurava, funcionou perf
Muito obrigado Éder
Era exatamente a função que eu procurava, funcionou perfeitamente,
Abraços,
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Caros listeiros,
Gostaria de achar uma maneira de automatizar a criação de
comparações múltiplas entre fatores, no meu caso:
#Fator
treat <- gl(3, 20, labels = paste("t", 1:3, sep=""))
#Variables
sp1_1 = rnorm(10, 5, 0.25)
sp1_2 = rnorm(50, 2.5, 0.25)
sp1 = c(sp1_1,sp1_2)
sp2 =
Muito obrigado Éder e Thiago,
Acredito que colocamos uma pedra sobre a questão!!! Priorizar
raster() é = ganho de velocidade de processamentos e menor uso de memória.
--
==
Alexandre dos Santos
Proteção Florestal
IFMT
Obrigado pela resposta Walmes,
Estou tentando fazer testes two-way post-hoc para dados
multivariados, isso baseado em testes one-way post-hoc que tenho
encontrados na literatura, que usam TukeyHSD() que foi desenvolvidos
para dados univariados, mas veem sendo usados para dados
Boa noite Éder,
Montei uma rotina abaixo para iniciarmos um novo tópico e é
possível observar o que você havia comentado, sendo:
###
require(raster)
require(sp)
require(rgdal)
# RasterLayer inventado
r <- raster(nrows=1, ncols=1)
r <- setValues(r, 1:ncell(r))
r_SGDF<- as(r,
||
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00
Em 16 de fevereiro de 2016 10:24, ASANTOS
<alexandresanto...@yahoo.com.br
<mailto:alexandresanto...@yahoo.com.br>> escreveu:
Ótima Rotina Éder!
Acho que tem que trocar download.file(url1, fn, mo
Ótima Rotina Éder!
Acho que tem que trocar download.file(url1, fn, mode="wb") por
download.file(url0, fn, mode="wb")
Mais uma outra coisa, se eu trocar o formato nc e no meu caso, que
são geoTiff por *asc não tornaria essa operação mais rápida e menos
sujeita a restrições de
Caros Listeiros,
Eu estava tentando adaptar uma rotina do Walmes para geração de
uma matriz de combinação de níveis para ajustes de modelos GLM, só que
para PERMANOVA, criados pela função adonis () do pacote vegan, sem
sucesso, na minha tentativa a rotina já não funciona na geração da
Muito obrigado Éder, funcionou perfeitamente!!
Também tem outra alteração que resolve o meu problema e aumenta
a velocidade de processamento, uma vez que tenho rasters muito grandes,
sendo:
radconvL <- function(x, band = 2) {
Lmax <- switch(band,
"2" =
Prezados Listeiros,
Mais um problema com a minha função, apesar de eu especificar ao
final que class(results) == "SpatialGridDataFrame", o resultado final
não é um
SpatialGridDataFrame mas um objeto numeric e não sei porque, alguém pode
me ajudar?
Segue a função nova desenvolvida
Muito mais "limpo" fica o código final Éder,
Muito obrigado,
Abraços,
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal
=
Em 03/02/2016 17:10, Thiago Serafim escreveu:
Lendo a mensagem de erro, vemos que Lmax não foi definido.
Olhando seu programa, Lmax só é definido quando band é 2, ou 3, ou 4 ou 5.
Conclui-se que, na sua chamada de função, band não é igual a nenhum
desses valores.
Quando a linha x <
Obrigado Jonathan e Éder,
Não ia conseguir jamais encontrar o erro ligado pmach() e Éder
ficou uma importante dica em sempre fazer um print() para ver os
elementos e resultados envolvidos para não incorrer em erros,
Redobrados agradecimentos pessoal,
Segue o problema resolvido:
Caros Listeiros,
Tenho um vetor com diferentes formatos de datas abaixo, que se
tento tirar a média não funciona e se tento explicitar um
format=%d/%m/%Y", acabo deixando de fora o %d-%m-%Y e %d.%m.%Y. Aonde
pergunto é possível trabalhar com um vetor de datas em diferentes formatos?
ttps://www.researchgate.net/profile/Alexandre_Santos10
LinkedIn:https://br.linkedin.com/in/alexandre-dos-santos-87961635
==
Em 28/12/2015 16:22, ASANTOS escreveu:
require(raster)
require(sp)
# RasterLayer inven
tudo que
não é número por '/':
datas<-c("12-10-2011","10.03.2013","05/06/2016" )
gsub('[^0-9]', '/', datas) # Apenas para ver o passo anterior ao as.Date()
as.Date(gsub('[^0-9]', '/', datas), '%d/%m/%Y')
2016-02-03 15:58 GMT-02:00 ASANTOS <alexandresanto...@
Obrigado Éder, resolveu o meu problema.
Preciso começar a programar de maneira mais "limpa", valeu
pelas dicas,
Abraços,
Segue solução:
## Função para leitura da tabela HTML
readFE <- function(url0){
require(RCurl); require(XML)
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)",
Caros Listeiros,
Desenvolvi uma função que extrai dentre várias informações de uma
tabela, a menor e a maior data, meu problema é que mesmo especificando a
data como as.Date(), ela fica numérica após a execução da função, alguém
poderia me dar uma luz?
Segue CRM:
## Função para
Muito obrigado Éder,
Tem razão, vou deixar as filtragens para fora da função,
Abraços,
--
==
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Obrigado Paulo,
Tinham inconsistências no meu código que foram corrigidos com
suas dicas, porém a segunda função results<-subset(results,!(latitude ==
"0." | longitude == "0.")) ele não roda e continua a
aparecer coordenadas 0, sendo:
###
require(RCurl);
ropboxusercontent.com/content_link/tkauy9obP7pgxKYpb9j5ZR2LCSUTe2iJpaULTWEN4RzdfR6AtirbNWGtt8q9Ncex/file?dl=1;\r\nyou
should be redirected automatically.\r\n\r\n\r\n\r\nWSGI
Server\r\n \r\n\r\n"
Abraços,
Paulo
Em 30 de janeiro de 2016 12:16, ASANTOS
<alexandres
Bom dia Éder,
Tentei criar uma função com os comandos de leitura da tabela em
HTML e também não funfou, posso pedir novamente sua ajuda, Obrigado,
## Função de leitura da tabela
readFE<- function (x, URL = ""){
page <- getURL(URL)
classes <- c(rep("factor", 6), rep("numeric", 4),
Muito obrigado Éder!!!
Problema resolvido!!!
Abraços,
--
==
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
Boa noite Éder,
Tentei transformar a rotina criada por você em função e não
funcionou e não sei porque, poderia me ajudar?
Segue CRM:
###
require(RCurl); require(XML)
url0 <- "https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1;
url1 <-
Mauro,
O problema esta na separação existente nessa sentença, tente
fazer:
srdf=SpatialPolygonsDataFrame(sr,data.frame(row.names=c('1','2','3','4'), PIDS=1:4))
Solução completa conferida:
###
require(rgdal)
require(maptools)
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)
Fantástico Éder!!
Na verdade só tinha um errinho em um mycoords que era my.coords,
Muito obrigado pela solução.
Segue problema resolvido:
###
require(rgdal)
require(maptools)
#---
#Crio 4 polígonos
sr
nello
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 21 de janeiro de 2016 17:55, Manoel Galdino <mcz@gmail.com
<mailto:mcz@gmail.com>> es
Caros listeiros,
Estou tentando criar uma função aggPestFE que para uma primeira
variável se for "Formiga", vai tirar a media da coluna 5, mas se for
"Besouros" ou "Barata" vai tira a média da coluna 4. Sendo que quero o
resultado dado em forma de list, ficando o meu resultado:
[[1]]
15Abre Campo 0 23.8
Barata 73 Volta Redonda 25 0.0
Formiga 15 Vitoria 0 5.3
Besouros 73Abre Campo 25 0.0
Formiga 74 Volta Redonda 0 2.0
Formiga 74 Vitoria 0 11.3
Mas seus resultad
0 1.5
Besouros 73 Volta Redonda 50 0.0
Barata 15 Vitoria 25 0.0
Formiga 15Abre Campo 0 23.8
Barata 73 Volta Redonda 25 0.0
Formiga 15 Vitoria 0 5.3
Besouros 73Abre Campo 25 0.0
49.0'W]
Em 21 de janeiro de 2016 17:55, Manoel Galdino <mcz@gmail.com
<mailto:mcz@gmail.com>> escreveu:
Nem consigo executar sua função de begar o banco, diz q não existe GET
cheguei a carrega o pacote XML, mas tbm não funfou
2016-01-21 18:28 GMT-0
Prezados Listeiros,
Gostaria de realizar a conversão de uma matriz em raster
georeferenciado com duas informações, a representação de plantas em uma
matriz (B) e juntar as informações geográficas conhecendo-se o
espaçamento entre plantas (d1), no entanto, gostaria de saber se
Prezados Listeiros,
Gostaria de criar uma função com múltiplas funções em seu
interior, no meu caso gostaria de criar uma função denominada MYsummary,
com três funções no interior dela, sendo que à partir de banco de dados
artificial:
##Banco de dados artificial
ails:alexandresanto...@yahoo.com.br
alexandre.san...@cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/-0001-8232-6722
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-879616
Caros Listeiros
Eu criei um shapefile POLY e gostaria de lançar alguns pontos
aleatórios (objeto pts) e depois classifica-los com a função over() para
saber em qual polígono esta contido cada ponto, no entanto, todas as
modificações que eu faço geram em incompatibilidade na avaliação
Muito obrigado Éder!!
Essa sua solução é ótima quando tenho SpatialPoints(), que
é o meu caso, fiz com planar points do spatstat apenas para montar o CMR.
Valeu pela solução alternativa!!
--
==
Alexandre dos
Obrigado Elias!!
Fiz de um outro jeito que também funcionou, sendo:
RES<-NULL
for (i in 1:length(contorno_line_X$PIDS)){
RES<-rbind(RES, c(contorno_line_X$PIDS[i],length(pts$b[[i]]$x)))
}
--
==
Alexandre dos Santos
961635
==
Em 13/01/2016 16:59, Marcos Silva escreveu:
substr(db, 4, 6)
[1] "002" "003" "016" "014" "004" "020" "002" "023" "027"
>
Em 13 de janeiro de 2016 17:50, ASANTOS
<alexandresanto...@yahoo.c
Prezados Listeiros,
Tenho um vetor de dados
db<-c(201002,486003,486016,486014,486004,486020,486002,486023,486027) e
gostaria de extrair somente os três últimos dígitos de cada valor. Isso
de uma maneira que eu tenha um novo vetor de dados sendo newdb:
002 003 016 014 004 020 002 023
Prezados Listeiros,
Estou tentando ler uma tabela em HTML que hospedei no dropbox,
porém a função readHTMLTable() parece não funcionar se o arquivo esta no
dropbox, alguém poderia me ajudar? Segue CRM:
##Leitura de uma tabela em HTML usando httr e XML
##Pacotes
require(httr)
1 - 100 de 392 matches
Mail list logo