- R-br - DINF UFPR

Re: [R-br] Coeficiente de Variação! Modelos não lineares!
by Thiago De paula protásio 25 Abr '11

25 Abr '11

Ok Walmes... Compreendo o seu ponto de vista..... Na verdade estou procurando um maneira de comparar modelos polinomiais com modelos não lineares. Não sei se o R² pode ser utilizado para esse fim, pois na obtenção do R² de modelos não lineares utilizamos a SQ total corrigida e geralmente o R² fica maior se compararmos com o método dos mínimos quadrados ordinários. O que vc recomenda? Thiago de Paula Protásio Acadêmico de Engenharia Florestal Universidade Federal de Lavras Laboratório de Energia da Biomassa Florestal Laboratório de Biomateriais (035) 9183-2246

2 1

Coeficiente de Variação! Modelos não lineares!
by Thiago De paula protásio 25 Abr '11

25 Abr '11

Pessoal; Gostaria de perguntar a vcs se existe algum comando no R para determinarmos o coeficiente de variação de modelos não lineares. Para modelos lineares temos a função cv.model() do pacote agricolae.........mas não consegui encontrar um comando semelhante para os modelos não lineares. Qualquer ajuda é de grande valia! Muito obrigado! A disposição! Thiago de Paula Protásio Acadêmico de Engenharia Florestal Universidade Federal de Lavras Laboratório de Energia da Biomassa Florestal Laboratório de Biomateriais (035) 9183-2246

2 1

Fatorial com reptições perdidas
by Edson Lira 25 Abr '11

25 Abr '11

Boa Páscoa a todos, estou analizando um experimento fatorial como variáveis respostas altura, diâmetro do peito, número de galhos, mdida da copa da árvore, os fatores são tipo de plantio (puro e mista) e aração (arado e aarado). Cada medida tem 3 repetições, o problema é que em alguns casos, a árvore morreu, estou com um impasse, não sei se considero zero, fato que infuenciaria na média ou resposta perdida "missing" (NA). Fiz uma tentativa usando o NA, rodei o modelo com aov, verifiquei os pressupostos, fiz o desdobramento das interações, quando tentei rodar o tukey, o R me deu a mensagem dizendo que x e y não tem a mesma dimensão. Alguem poderia me sugerir o que fazer com a arvore morta? Caso tenha que dropar os NA's como proceder? Edson Lira Estatístico Manaus-Amazonas

2 4

Retornando médias de tabela para tabela no R
by Emmanuel Arnhold 25 Abr '11

25 Abr '11

Pessoal, se eu tenho um objeto no R (tabela lida de um read.table) onde a primeira coluna são fatores (tratamentos) e as demais os dados (numéricos). Qual a maneira mais fácil ou se existe uma função para retornar a média das culunas numéricas dentro de cada categoria do fator. Gostaria de saber se é possível retornar as médias em tabela semelhante a forma original, mas somente com as médias (sem as repetições de tratamentos) dentro de cada categoria de meu fator. Agradeço desde já qualquer dica. Emmanuel

3 3

Problema com sample()
by Alexandre dos Santos 25 Abr '11

25 Abr '11

Bom Dia Pessoal, Tenho um banco de dados com três variáveis parc (número da parcela), mont2(número de insetos), dead2 (mortalidade), com 108 dados, estou tentando fazer uma amostragem com a função sample(), para um n da amostra igual a 30, ate ai tudo bem, mas quando repito a função sample() para um número de vezes superior ao n da amostra começam a aparecer NA nos sorteio, porque isso poderia estar acontecendo, uma vez que estou utilizando a função com reposição, fiz: > nde<-read.table("Tout_NDE.txt",header=T)# Todos os dados > # > dead2<-nde$Mortalite[nde$Temps==2]-nde$Mortalite[nde$Temps==1]# Mortalidade no segundo mês > mont2<-nde$Monticules[nde$Temps==2]-nde$Monticules[nde$Temps==1]# Número de insetos no segundo mês > parc<-1:108 # Número da parcela no campo > mois2<-cbind(parc,mont2,dead2) > # > nparc=30# Tamanho da amostra independente a ser sorteada com sample () > Nsim=31# Numero de simulações da função sample > > RES=NULL > > for(i in 1:Nsim){ + + res=NULL + spl=sample(parc,nparc, replace = TRUE) + resspl=mois2[spl[1:30],] + my.mont=mean(resspl[,2][i]) + my.dead=mean(resspl[,3][i]) + result=rbind(res,c(my.mont,my.dead,i)) + #print(result) + RES=rbind(RES,result) + colnames(RES)=c("monticule","mortalite","simulation") + } > print(RES) monticule mortalite simulation [1,] 5 4.000000 1 [2,] 0 0.000000 2 [3,] 1 12.000000 3 [4,] 1 5.263158 4 [5,] 0 0.000000 5 [6,] 0 0.000000 6 [7,] 2 9.090909 7 [8,] 0 0.000000 8 [9,] 1 0.000000 9 [10,] 0 0.000000 10 [11,] 1 11.764706 11 [12,] 3 6.451613 12 [13,] 3 12.000000 13 [14,] 3 4.545455 14 [15,] 1 3.225806 15 [16,] 0 0.000000 16 [17,] 3 4.545455 17 [18,] 1 0.000000 18 [19,] 5 13.636364 19 [20,] 2 12.121212 20 [21,] 2 6.896552 21 [22,] 1 5.263158 22 [23,] 2 0.000000 23 [24,] 10 8.333333 24 [25,] 5 14.285714 25 [26,] 8 10.000000 26 [27,] 8 10.000000 27 [28,] 3 4.761905 28 [29,] 0 0.000000 29 [30,] 1 3.571429 30 [31,] NA NA 31 > Obrigado, Alexandre dos Santos Ingenieur forestier, Msc. INRA- Biostatistique et Processus Spatiaux (BioSP) Domaine Saint-Paul Site Agroparc 84914 - Avignon - France Tél. : +33 (0)6 87 95 16 29

3 6

(sem assunto)
by Juraci Mendes Moreira 25 Abr '11

25 Abr '11

Estou tentando rodar esta rotina no R mas esta dando este erro e tambem ele não esta estimando b2, poderiam me ajudar? lrp.fit<-nls(cv ~ (b0 + b1*x + b2*I(x^2))*(x<=x0p) +(b0 + b1*x0p + b2*x0p^2)*(x>x0p), start=list(b0=10, b1=7, b2=15, x0p=5), trace=F) Erro em nls(cv ~ (b0 + b1 * x + b2 * I(x^2)) * (x <= x0p) + (b0 + b1 * : gradiente singular

2 1

dificuldade em ajustar um quadratica a um plato de resposta linear
by Juraci Mendes Moreira 25 Abr '11

25 Abr '11

Estou tentando rodar esta rotina no R mas esta dando este erro e tambem ele não esta estimando b2, poderiam me ajudar? lrp.fit<-nls(cv ~ (b0 + b1*x + b2*I(x^2))*(x<=x0p) +(b0 + b1*x0p + b2*x0p^2)*(x>x0p), start=list(b0=10, b1=7, b2=15, x0p=5), trace=F) Erro em nls(cv ~ (b0 + b1 * x + b2 * I(x^2)) * (x <= x0p) + (b0 + b1 * : gradiente singular

1 0

Re: [R-br] Fatorial com reptições perdidas
by Thiago De paula protásio 24 Abr '11

24 Abr '11

Ok Walmes........ Rodei aqui e deu td certo!!! Vou estudar os seus comandos com calma.......... Abraço! Thiago de Paula Protásio Acadêmico de Engenharia Florestal Universidade Federal de Lavras Laboratório de Energia da Biomassa Florestal Laboratório de Biomateriais (035) 9183-2246

1 0

Re: [R-br] Fatorial com reptições perdidas
by Thiago De paula protásio 24 Abr '11

24 Abr '11

Walmes; Eu não estou conseguindo reproduzir o exemplo que vc indicou na página do LEG! Dê uma olhada no erro que apareceu....... Obrigado!!! Este exemplo será muito útil, pois tb tenho que avaliar um experimento com repetições perdidas....... # lista com as matrizes dos contrastes que específicam o desdobramento A dentro de B > > c.X <- sapply(jj, simplify=FALSE, + function(j){ + sapply(1:nrow(p.contr), + function(i){ + c.contr <- contrast(m0, + list(A=p.contr[i,1], B=j), + list(A=p.contr[i,2], B=j)) + c.contr$X + })}) Erro em library(sandwich) : não há nenhum pacote chamado 'sandwich' > c.X Erro: objeto 'c.X' não encontrado > > #------------------------------------------------------------------------------------------ > # usando a glht para desdobrar, cada entrada da lista é um nível de B > > mc.contr <- sapply(c.X, simplify=FALSE, + function(X){ + summary(glht(m0, linfct=t(X))) + }) Erro em is.vector(X) : objeto 'c.X' não encontrado > mc.contr Erro: objeto 'mc.contr' não encontrado > Thiago de Paula Protásio Acadêmico de Engenharia Florestal Universidade Federal de Lavras Laboratório de Energia da Biomassa Florestal Laboratório de Biomateriais (035) 9183-2246

2 1

Axelrod's Tournaments
by Augusto Ribas 24 Abr '11

24 Abr '11

Alguem saberia dizer se existe uma função para o R que replica o Axelrod's Tournaments? Ele vem do artigo: Robert Axelrod & William D. Hamilton 1981, "The Evolution of Cooperation", Science 211: 1390–96 Naquele documentario da BBC Nice Guys Finish First falam bastante desse artigo. Eu vi um programa que replica o torneio: http://www2.econ.iastate.edu/tesfatsi/demos/axelrod/axelrodt.htm Mas dei uma procurada e não encontrei nenhuma função pronta no R. -- Grato Augusto C. A. Ribas Site Pessoal: http://augustoribas.heliohost.org/ http://dhost.info/augusto/ Lattes: http://lattes.cnpq.br/7355685961127056

1 0