Novembro 2014 - R-br

Verificação de tendência
by Felinto COSTA 10 Nov '14

10 Nov '14

Prezados. Se os variogramas experimentais contruídos para várias direções mostram sempre um patamar e alcances bem definidos (ie, a semivariância não prossegue aumentando indefinidamente com a distância), isso é condição necessária e suficiente para afastar a existência de tendência? Pergunto isso porque é o caso dos meus dados, embora apresente as condições acima, também mostra ao plotarmos a variável vs. os eixos <plot.geodata> a linha da função lowess como um arco com max ao centro das coordenadas. Obrigado pela ajuda.

3 4

Ajuste de um semivariograma
by Tiago Souza Marçal 09 Nov '14

09 Nov '14

Boa tarde pessoal, gostaria de saber como faço para manipular os pares de pontos no semivariograma ? Att. Tiago. ################################################################# Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas #################################################################

2 1

Off
by Edson Lira 09 Nov '14

09 Nov '14

2 2

Re: [R-br] Erro ao rodar Wibugs/Openbugs
by Alisson Lucrécio 08 Nov '14

08 Nov '14

Victor, Minha sugestão é que vc sustituia o código rbug por rstan, o rbug é muito problemático e ineficente, mande um CMR. Vc conseguiu rodar o rstar? Att. 2014-11-08 15:52 GMT-02:00 Alisson Lucrécio < alisson.lucrecio(a)ifgoiano.edu.br>: > Victor, > > Minha sugestão é que vc sustituia o código rbug por rstan, o rbug é muito > problemático e ineficente, mande um CRM. Vc conseguiu rodar o rstar? > Att. > > 2014-11-08 15:38 GMT-02:00 Victor Eduardo [via R-br] < > ml-node+s2285057n4663486h2(a)n4.nabble.com>: > > Não rodou aqui. =/ >> >> O erro que tinha incialmente eu consegui arrumar, só que agora surgiu >> outro >> >> Error in handleRes(res) : NA >> >> >> Só que não tem NA na minha base de dados >> >> 2014-11-08 14:10 GMT-02:00 Alisson Lucrécio <[hidden email] >> <http://user/SendEmail.jtp?type=node&node=4663486&i=0>>: >> >>> Caro Victor, >>> >>> Se der certo teste esse exemplo. >>> >>> library(rstan) >>> >>> treatment_level <- c("0", "5", "10", "15") >>> repetition_number <- 20 >>> response_mean <- c(100, 94, 88, 82) >>> >>> treatment <- gl(n = length(treatment_level), k = repetition_number, >>> labels = treatment_level) >>> str_error <- 2 >>> >>> response_temp <- sapply(response_mean, function(x){ >>> response <- rnorm(n = repetition_number, mean = x, sd = str_error) >>> }) >>> >>> response <- c(response_temp) >>> >>> plot(response ~ treatment) >>> >>> summary(lm(response ~ treatment -1)) >>> >>> mean(response) >>> sd(response) >>> >>> stan_data <- list(N = length(response), I = length(treatment_level), >>> Treatment=as.numeric(treatment), Response = response) >>> >>> # Bayesian method for estimate mean and standard error by treatment >>> >>> stan_modelcode <- " >>> data { // data setup >>> int<lower=0> N; // sample size >>> int<lower=1> I; // number of treatments >>> real Response[N]; // Response >>> int<lower=1, upper=I> Treatment[N]; // Treatment >>> } >>> >>> parameters { >>> real mu[I]; >>> real<lower=0, upper=100> sigma[I]; >>> } >>> >>> model { >>> //Priors >>> mu ~ normal(0, 100); >>> sigma ~ uniform(0, 100); >>> //Likelihood >>> for(i in 1:N) { >>> Response[i] ~ normal(mu[Treatment[i]], sigma[Treatment[i]]); >>> } >>> } >>> " >>> >>> fit <- stan(model_code = stan_modelcode, data = stan_data, iter = 1000, >>> chains = 3, >>> verbose = TRUE) >>> >>> plot(fit) >>> >>> 2014-11-08 14:09 GMT-02:00 Alisson Lucrécio <[hidden email] >>> <http://user/SendEmail.jtp?type=node&node=4663486&i=1>>: >>> >>> Use esse código. >>>> >>>> Sys.setenv(MAKEFLAGS = "-j4") >>>> source('http://mc-stan.org/rstan/install.R', echo = TRUE, >>>> max.deparse.length = 2000) >>>> install_rstan() >>>> >>>> 2014-11-08 13:41 GMT-02:00 Victor Eduardo [via R-br] <[hidden email] >>>> <http://user/SendEmail.jtp?type=node&node=4663486&i=2>>: >>>> >>>>> Oi Alisson, o pacote deu erro para instalar. Tanto pelo arquivo quando >>>>> pelo código install.packages >>>>> >>>>> >>>>> Esse erro que está acontecendo comigo é no modelo? Porque >>>>> aparentemente está tudo ok com ele. >>>>> >>>>> Em 8 de novembro de 2014 13:01, Alisson Lucrécio <[hidden email] >>>>> <http://user/SendEmail.jtp?type=node&node=4663483&i=0>> escreveu: >>>>> >>>>>> Victor, >>>>>> >>>>>> Boa tarde. >>>>>> >>>>>> Use o pacote rstan. >>>>>> >>>>>> Att. >>>>>> >>>>>> >>>>>> 2014-11-08 12:53 GMT-02:00 Victor Eduardo [via R-br] <[hidden email] >>>>>> <http://user/SendEmail.jtp?type=node&node=4663483&i=1>>: >>>>>> >>>>>> Pessoal, estou rodando um modelo de regressão pelo Openbugs. Na hora >>>>>>> de rodar ele da o seguinte erro durante o processo >>>>>>> >>>>>>> >>>>>>> Error in BRugs::samplesSet(parametersToSave) : >>>>>>> model must be initialized before monitors used >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> O que seria exatamente isso? Já mexi em tudo quanto é configuração >>>>>>> e código do meu modelo e nada até agora >>>>>>> >>>>>>> >>>>>>> >>>>>>> Atenciosamente, >>>>>>> >>>>>>> >>>>>>> Victor Eduardo >>>>>>> >>>>>>> _______________________________________________ >>>>>>> R-br mailing list >>>>>>> [hidden email] >>>>>>> <http://user/SendEmail.jtp?type=node&node=4663480&i=0> >>>>>>> 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. >>>>>>> >>>>>>> ------------------------------ >>>>>>> If you reply to this email, your message will be added to the >>>>>>> discussion below: >>>>>>> >>>>>>> http://r-br.2285057.n4.nabble.com/R-br-Erro-ao-rodar-Wibugs-Openbugs-tp4663… >>>>>>> To unsubscribe from R-br, click here. >>>>>>> NAML >>>>>>> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view…> >>>>>>> >>>>>> >>>>>> >>>>>> >>>>>> -- >>>>>> Alisson Lucrecio da Costa >>>>>> >>>>>> _______________________________________________ >>>>>> R-br mailing list >>>>>> [hidden email] <http://user/SendEmail.jtp?type=node&node=4663483&i=2> >>>>>> 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 >>>>> [hidden email] <http://user/SendEmail.jtp?type=node&node=4663483&i=3> >>>>> 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. >>>>> >>>>> ------------------------------ >>>>> If you reply to this email, your message will be added to the >>>>> discussion below: >>>>> >>>>> http://r-br.2285057.n4.nabble.com/R-br-Erro-ao-rodar-Wibugs-Openbugs-tp4663… >>>>> To unsubscribe from R-br, click here. >>>>> NAML >>>>> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view…> >>>>> >>>> >>>> >>>> >>>> -- >>>> Alisson Lucrecio da Costa >>>> >>> >>> >>> >>> -- >>> Alisson Lucrecio da Costa >>> >>> _______________________________________________ >>> R-br mailing list >>> [hidden email] <http://user/SendEmail.jtp?type=node&node=4663486&i=3> >>> 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 >> [hidden email] <http://user/SendEmail.jtp?type=node&node=4663486&i=4> >> 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. >> >> ------------------------------ >> If you reply to this email, your message will be added to the >> discussion below: >> >> http://r-br.2285057.n4.nabble.com/R-br-Erro-ao-rodar-Wibugs-Openbugs-tp4663… >> To unsubscribe from R-br, click here >> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscrib…> >> . >> NAML >> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_view…> >> > > > > -- > Alisson Lucrecio da Costa > -- Alisson Lucrecio da Costa

2 1

Erro ao rodar Wibugs/Openbugs
by Victor Eduardo 08 Nov '14

08 Nov '14

Pessoal, estou rodando um modelo de regressão pelo Openbugs. Na hora de rodar ele da o seguinte erro durante o processo Error in BRugs::samplesSet(parametersToSave) : model must be initialized before monitors used O que seria exatamente isso? Já mexi em tudo quanto é configuração e código do meu modelo e nada até agora Atenciosamente, Victor Eduardo

2 6

Desdobrar interação dupla e tripla com glm
by Maurício Lordêlo 07 Nov '14

07 Nov '14

Saudações a todos! No mês passado, solicitei um auxílio sobre como analisar os dados de um experimento realizado com explantes de bananeiras considerando três fatores. Na ocasião descrevi o problema mais ou menos da seguinte forma (ocorreram algumas mudanças): "*Experimento realizado com explantes de bananeiras considerando três fatores:* *1. Genótipo, com dois níveis;* *2. Meio, com sete níveis;* *3. Tipo de corte, com oito níveis.* *O objetivo é verificar qual tipo de corte induziu melhor o explante na formação do embrião considerando os setes meios e os dois genótipos.* *Para isso foram preparadas duas placas (caracterizando o número de repetições) com uma quantidade de explantes idênticos de acordo com o corte e o genótipo (esta quantidade de explantes em cada placa variou de 6 a 11). Cada placa com estes explantes foi introduzida nos sete diferentes meios. As respostas foram obtidas registrando-se, em relação ao total de cada placa, quantos explantes oxidaram, quantos formaram calos, quantos não desenvolveram, etc.* *Os dados com uma variável resposta está neste link:* *https://www.dropbox.com/s/ci4u8c4vn4cmk4l/dados.txt?dl=0 <https://www.dropbox.com/s/ci4u8c4vn4cmk4l/dados.txt?dl=0> *" Obtive retorno do Walmes que contribui com valiosas sugestões. *O que preciso agora é realizar o desdobramento de interações duplas e triplas utilizando "glm"*. No CRM abaixo, apenas a interação dupla foi significativa. Porém, tenho outras variáveis neste experimento cuja interação tripla foi significativa e será necessário também desdobrar. Na busca que fiz, encontrei apenas comandos de desdobramentos para modelos ajustados com "aov". Antecipadamente, agradeço quem possa contribuir. Maurício dados = read.table("dados.txt",header=TRUE, sep="\t") str(dados) attach(dados) # Modelo fatorial completo, glm (quasi)binomial para variável resposta "n_ex_ox" model1 = glm(cbind(good=n_ex_ox, bad=n_explant-n_ex_ox)~genotipo*meio*tipo, data=dados, family=quasibinomial) anova(model1,test="F") summary(model1)

2 4

Fatorial no R
by Andre Oliveira 06 Nov '14

06 Nov '14

Pessoas,como posso otimizar este cálculo? Com 365 o R nem faz o cálculo! Alguma sugestão? Obrigado! n=40np=factorial(365)/((365^n)*factorial(365-n))1-np André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES

5 4

GeoXp <variocloudmap>
by Felinto COSTA 05 Nov '14

05 Nov '14

Prezados. Não consigo rodar a função acima sobre minha base de dados (1 variável/648 posições). O GeoXp só consegue retornar a nuvem/mapa/quadro de comando se eu eliminar cerca de 200 dados. Acima de 450 dados ele começa a retornar a mensagem: "não é possível alocar vetor com mais de xGB" (para 500 dados o x é de 3.8GB, para 648 dados o x é de 11GB). Tanto meu PC quanto o notebook possuem 8GB de RAM e trabalha em 64b (sistema e R). Minha dúvida é se esse problema se trata da arquitetura do pacote (insanável até atualização por parte do autor), de meu PC (8GB são tão pouco assim?) ou se o tamanho dos meus dados é grande (não creio). Há algum outro pacote que associe à nuvem o mapa da distribuição dos dados para identificação pontual? Abs. e obrigado pela colaboração.

2 1

Dúvida
by Vanessa Felix 04 Nov '14

04 Nov '14

Alguém poderia me ajudar a passar esse comando de SAS pra R, tem que usar mtos if's e não tô conseguindo acertar. SELECT; WHEN(V0602=2) DO; *(FREQUENTA A ESCOLA); SELECT; WHEN(V6003=1) DO; *(REGULAR DE PRIMEIRO GRAU); SELECT; WHEN (V6030=1) DO;*(DURAÇÃO DO ENSINO FUNDAMENTAL = 8 ANOS); SELECT; WHEN(V0605=1) EDUCA3=0; WHEN(V0605=2) EDUCA3=1; WHEN(V0605=3) EDUCA3=2; WHEN(V0605=4) EDUCA3=3; WHEN(V0605=5) EDUCA3=4; WHEN(V0605=6) EDUCA3=5; WHEN(V0605=7) EDUCA3=6; WHEN(V0605=8) EDUCA3=7; OTHERWISE EDUCA3=100; Desde já obrigada, -- ------------------------------------------------------------------------------------------ Vanessa Felix do Nascimento Sergio Graduada em Estatística - ICE/UFJF Mestranda em Saúde Coletiva - IMS/UERJ Assistente de pesquisa I - Instituto de Pesquisa Econômica Aplicada – IPEA (32) 8854-4881 / 9142-8428 (21) 97656-3448 -------------------------------------------------------------------------------------------

3 4

Função likfitBGCCM e predict
by Jacqueline Cantú 04 Nov '14

04 Nov '14

Caros,Usando os comando que seguem (os quais estão disponíveis em: http://www.leg.ufpr.br/geoR/tutorials/CCM.R)Gostaria de saber como proceder para obter a predição espacial para a segunda variável (y2), uma vez que essa rotina me fornece apenas os valores da predição da primeira variável (y1). require(geoR)set.seed(30)all.coords <- round(cbind(runif(200), runif(200)), dig=3)set.seed(111); ind1 <- sample(1:200, 120) coords1 <- all.coords[ind1,]set.seed(222); ind2 <- sample(1:200, 80) coords2 <- all.coords[ind2,] ## Model parameters:mu1 <- 10; mu2 <- 50sigma01 <- 2; sigma1 <- 1.5; sigma02 <- 8; sigma2 <- 6phi0 <- 0.2; phi1 <- 0.15; phi2 <- 0.25 ## Model parameters (reparametrised)sigma <- sigma01nu1 <- sigma1/sigmaeta <- sigma02/sigma; nu2 <- sigma2/sigma ## Simulating model componentsS0 <- grf(grid=all.coords, cov.pars=c(sigma, phi0))$dataS1 <- grf(grid=coords1, cov.pars=c(sigma1, phi1))$dataS2 <- grf(grid=coords2, cov.pars=c(sigma2, phi2))$data ## Y1 and Y2 datay1 <- as.geodata(cbind(coords1,10+S0[ind1]+S1))y2 <- as.geodata(cbind(coords2,50+S0[ind2]+S2)) ## maximum likelihood estimationfit12 <- likfitBGCCM(y1, y2, ini.s=c(2,1.5,8,6), ini.phi=c(.2,.15,.25), control=list(trace=T))fit12 ## Predictionlocs <- cbind(c(0.2, 0.5, 0.7, 0.2), c(0.3, 0.5, 0.2, 0.8))pred12 <- predict(fit12, loc=locs) Att, Jacqueline.

3 3