- R-br - DINF UFPR

Exportando objeto tipo table para Word usando officer
by Jobenil Luiz Magalhães Júnior 09 Out '18

09 Out '18

Prezados(as) Criei um objeto tipo "table" usando xtabs e estou tentando exportá-lo no mesmo formato para Word usando officer. > tp filiais q01 f1 f2 f3 f4 f5 f6 f7 f8 Total Sim 19.2 21.8 11.8 11.3 20.6 25.0 30.0 16.3 19.1 Não 80.8 78.2 88.2 88.7 79.4 75.0 70.0 83.7 80.9 Total 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 Estou usando os seguintes comandos doc <- doc %>% body_add_par("Você exerce função de chefia?", style = "heading 1") %>% body_add_table(as.data.frame(tp), style = "Table Professional", header = FALSE) print(doc, target = "teste.docx") O "officer" me obriga a transformar o objeto tp em dataframe e como resultado a tabela fica desconfigurada. Desejo manter o mesmo formato do objeto tp no relatório exportado. Alguém já passou por isso ou sabe como resolver o problema? Agradeço qualquer orientação que puderem me oferecer. At. Jobenil Júnior

2 2

Codificar nomes
by Amiko Bh 05 Out '18

05 Out '18

Pessoal: Não consegui achar instruções a respeito. Quero codificar (criar id?) nomes em um enorme banco de dados. Há vários nomes que se repetem. Estes teriam que ter a mesma identificação. Exemplo: Deste banco: Nome: Alexandre Aguiar Parreiras Alexandre Aguiar Parreiras Breno Pereira Galvão Carlos Daniel Pereira de Souza Daniel Prates Andrade Daniel Prates Andrade Elian Kanaan dos Santos Érick Daniel Sena de Jesus Quero ter este: Nome: ID Alexandre Aguiar Parreiras 1 Alexandre Aguiar Parreiras 1 Breno Pereira Galvão 2 Carlos Daniel Pereira de Souza 3 Daniel Prates Andrade 4 Daniel Prates Andrade 4 Elian Kanaan dos Santos 5 Érick Daniel Sena de Jesus 6 Muito Obrigado.

5 4

Gráfico em Linha com Marcações nas Amostras
by Leslie Watter 04 Out '18

04 Out '18

Olá a todos, Alguém sabe como faço um gráfico como o anexo usando o R? O meu objetivo é poder colocar o valor das amostras junto a elas no gráfico em linha. Obrigado LEslie -- Leslie H. Watter

2 2

Re: [R-br] Diferenças entre sistemas operacionais (geoR)
by Yury Duarte 04 Out '18

04 Out '18

Sim, Thiago. Até o último passo os resultados são iguais. A mesma grade com o mesmo número de pontos é gerada. As mesmas informações são passadas como parâmetro para a função, mas os resultados não batem. Nem mesmo em casos onde a função não quebra, os valores gerados no Ubuntu não batem com os valores gerados em Windows. Isso está me intrigando muito. Em qui, 4 de out de 2018 17:23, Thiago V. dos Santos < thi_veloso(a)yahoo.com.br> escreveu: > Nao deveria ser assim. > > O seu codigo produz resultados identicos ate o momento em que voce roda a > krige.conv? > > Em caso positivo, acho que seria uma boa ideia reportar esse erro ao Paulo > (paulojus(a)ufpr.br) ou ao Peter (p.diggle(a)lancaster.ac.uk) > > Greetings, > -- Thiago V. dos Santos > > Postdoctoral Research Fellow > Department of Climate and Space Science and Engineering > University of Michigan > > > On Thursday, October 4, 2018, 3:42:35 PM EDT, Yury Duarte via R-br < > r-br(a)listas.c3sl.ufpr.br> wrote: > > > Boa tarde a todos os coleas! > > Fiz um código simples para interpolar valores que tenho em uma grade que > construo dentro do próprio código. Para isso, estou utilizando um modelo > esférico de interpolação por krigagem através da função krige.conv(). > Estou achando muito estranho o fato de que, quando rodo o script em > ambiente Windows, não tenho problemas e meu script gera as saídas > exatamente como o esperado, entretanto, quando rodo o mesmo script (com o > mesmo banco de dados) em ambiente Linux (Ubuntu), a função krige.conv() > corrompe e o erro gerado é: > krige.control: micro.scale must be in the interval [0, nugget] > > Não encontrei nada em outros fóruns que pudesse me ajudar para explicar > isso. > Caso alguém tenha interesse em testar exatamente o mesmo conjunto de dados > que estou utilizando, informem que passo um link no google drive, já que o > código e os dados de entrada são grandes demais para serem anexados no > corpo do e-mail/nos anexos. > > Desde já, agradeço a atenção e a ajuda de todos! > > Yury Duarte > Engenheiro Agrônomo - ESALQ/USP > _______________________________________________ > 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. >

4 4

Diferenças entre sistemas operacionais (geoR)
by Yury Duarte 04 Out '18

04 Out '18

Boa tarde a todos os coleas! Fiz um código simples para interpolar valores que tenho em uma grade que construo dentro do próprio código. Para isso, estou utilizando um modelo esférico de interpolação por krigagem através da função krige.conv(). Estou achando muito estranho o fato de que, quando rodo o script em ambiente Windows, não tenho problemas e meu script gera as saídas exatamente como o esperado, entretanto, quando rodo o mesmo script (com o mesmo banco de dados) em ambiente Linux (Ubuntu), a função krige.conv() corrompe e o erro gerado é: krige.control: micro.scale must be in the interval [0, nugget] Não encontrei nada em outros fóruns que pudesse me ajudar para explicar isso. Caso alguém tenha interesse em testar exatamente o mesmo conjunto de dados que estou utilizando, informem que passo um link no google drive, já que o código e os dados de entrada são grandes demais para serem anexados no corpo do e-mail/nos anexos. Desde já, agradeço a atenção e a ajuda de todos! Yury Duarte Engenheiro Agrônomo - ESALQ/USP

1 0

Rmarkdown
by Edimeire Alexandra Pinto 03 Out '18

03 Out '18

Oi gente. Para aqueles que usam o rmarkdown: Existe algum alguma função que leia um arquivo em word? O que eu quero é o seguinte: a pessoa com um click consiga baixar um doc ( que não está na rede e sim no computador) para leitura, por exemplo, coloco um link ou crio um botão (como no shiny) e quando a pessoa da o click se consegue baixar um arquivo em word, sem desformatá-lo, que está numa pasta local no computador. Quero como se fosse uma função read.table que importa arquivos em csv, mas no meu caso é docx. Valeu gente!!!

2 3

Gráfico Linha com Valores intermediários e Legenda para Símbolos
by Leslie Watter 02 Out '18

02 Out '18

Senhores(as) da lista, Gostaria de saber se alguém de vocês sabe como fazer um gráfico no R semelhante ao anexo (grafico-linha-com-anotacoes.png). Hoje eu coloco no grafico mlog-func-odometro-motos.png essas anotações exatamente no ponto onde elas ocorrem usando o annotate do ggplot2, mas para 2 ou mais eventos muito próximos o gráfico fica poluído (arquivo anexo mlog-func-odometro-motos.png). Tentei usar o ggrepel para inserir as anotações como alternativa, mas não entendi direito como combinar as anotações do ggrepel com os gráficos de linha. Imaginei então em utilizar as marcações de números vistas no gráfico-linha-com-anotações associadas a cores/símbolos para anotar os eventos que tenho de manutenções. O símbolo apareceria no gráfico de linha e uma legenda lateral indica o tipo de ocorrência. Agradeço sugestões de como chegar no grafico-linha-com-anotacoes-motos.png (em anexo) [ ]s Leslie -- Leslie H. Watter

1 0

Comparando Curvas [HELP]
by Diego Vieira 01 Out '18

01 Out '18

Boa tarde pessoal, Estou querendo fazer a comparação de duas curvas ajustadas utilizando a função "nlsLM" do pacote "minpack.lm". No entanto, não consigo ajustar as duas curvas em um único nlsLM, para depois usar a anova para realizar um teste da razão de verossimilhança para testar a restrição em A, B e C. Alguém pode me ajudar a solucionar esse problema. Desde já agradeço muito a todas as sugestões. Além disso, preciso usar esse pacote por causa do algoritmo de Levenberg-Marquardt. Segue o script reproduzível. if(!require("minpack.lm")){install.packages("minpack.lm",dependencies=T);require("minpack.lm")} if(!require("lattice")){install.packages("lattice",dependencies=T);require("lattice")} d <- expand.grid(parA=c(1,1.99,3,4,5,6,6), sistema = factor(c("TRAT1","TRAT2"))) d$diversidade <- c(55.000, 19.572, 10.231, 7.225, 6.004, 5.4022, 5.0566, 62.000, 31.6952, 21.4178, 17.6125, 15.7654, 14.7072, 14.0334) #ajusta as duas curvas em um unico nlsLM n0 <- nlsLM(diversidade ~ A[sistema]/(1+B[sistema]*exp(-C[sistema]*parA)), data = d, start = list(A = c(-2.790,11.106), B = c(-1.050,-0.821), C = c(-0.090, 0.248))) #Mensagem de erro: # Error in dimnames(x) <- dn : # length of 'dimnames' [2] not equal to array extent # In addition: Warning message: # In matrix(out$hessian, nrow = length(unlist(par))) : # data length [9] is not a sub-multiple or multiple of the number of rows [6] #ajusta o modelo em que A, B e C seja comum aos dois tratamentos n1 <- nlsLM(diversidade ~ A/(1+B*exp(-C*parA)), data = d, start = list(A = 4.158, B = -0.9355, C = 0.079)) anova(n0,n1)

1 0

Unir Shapefiles
by Yury Duarte 28 Set '18

28 Set '18

Boa tarde colegas listeiros! Gostaria de uma ajuda para unir diferentes objetos espaciais num único objeto, afim de salvar um único shapefile ao final do meu processamento. Estou trabalhando com dois objetos do tipo 'SpatialPolygonsDataFrame' e gostaria de uni-los num único 'SpatialPolygonsDataFrame', sem perder as informações setadas no campo '@data'. Se alguém souber uma forma de fazer isso, ajudaria imensamente! Obrigado! Yury Duarte Engenheiro Agrônomo - ESALQ/USP

2 2

Inscrições abertas para mestrado e doutorado em Estatística na USP
by Alexandre Galvão Patriota 27 Set '18

27 Set '18

Prezados, *Inscrições abertas para mestrado e doutorado em Estatística na USP* Segue link para anúncio veiculado pelo Jornal da USP: https://jornal.usp.br/universidade/inscricoes-abertas-para-mestrado-e-douto… att Prof. Dr. Alexandre G. Patriota, Department of Statistics, Institute of Mathematics and Statistics, University of São Paulo, Brazil.

1 0