[R-br] Ajuda com a criação de um looping
Rubem Kaipper Ceratti
rubem_ceratti em yahoo.com.br
Segunda Janeiro 19 16:31:38 BRST 2015
Falha minha:
aggregate(producao ~ n_vaca + dia_ciclo, a21, mean)
*Acho* que está tudo certo agora...
De: Simone D. Sartorio <sisartorio em yahoo.com.br>
Para: Rubem Kaipper Ceratti <rubem_ceratti em yahoo.com.br>; "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br>
Enviadas: Segunda-feira, 19 de Janeiro de 2015 16:29
Assunto: Re: [R-br] Ajuda com a criação de um looping
Rubem, mas eu preciso das médias por vaca e por dia do ciclo e não a média geral!
Como poderia usar essa função?! Pelo que entendi ela tem a mesma função do tapply()
obrigadaSi
Em Segunda-feira, 19 de Janeiro de 2015 16:22, Rubem Kaipper Ceratti <rubem_ceratti em yahoo.com.br> escreveu:
Nesse caso, talvez seja melhor usa a função 'aggregate':
aggregate(producao ~ dia_ciclo, a21, mean)
Att.,Rubem
De: Simone D. Sartorio <sisartorio em yahoo.com.br>
Para: "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br>
Enviadas: Segunda-feira, 19 de Janeiro de 2015 16:12
Assunto: [R-br] Ajuda com a criação de um looping
Pessoal, preciso de uma ajuda...
Meus dados são esses "a21", nele tenho a observação de 219 vacas (n_vaca), que estão numeradas de maneira aleatória. As vacas foram separadas em 3 grupos, onde em cada grupo aplicaram um tratamento diferente. Esse tratamento foi aplicado em forma de injeções (17 injeções) e entre uma injeção e outra, temos 14 dias de intervalo. A variável de interesse é "producao"> head(a21) n_vaca n_lactacao trat pri_multiparas n_injecao dia_ciclo dia_exp producao saude8 1731 3 1 2 0 1 -13 45.1 healthy9 1731 3 1 2 0 2 -12 47.8 healthy10 1731 3 1 2 0 3 -11 45.5 healthy11 1731 3 1 2 0 4 -10 45.2 healthy12 1731 3 1 2 0 5 -9 47.4 enrollment13 1731 3 1 2 0 6 -8 48.3 enrollment
# Aqui estou criando um subconjunto, onde tenho todas as informações da vaca 1731:> (vaca1731<- subset(a21, a21$n_vaca==1731)); dim(vaca1731) n_vaca n_lactacao trat pri_multiparas n_injecao dia_ciclo dia_exp producao saude8 1731 3 1 2 0 1 -13 45.1 healthy9 1731 3 1 2 0 2 -12 47.8 healthy10 1731 3 1 2 0 3 -11 45.5 healthy11 1731 3 1 2 0 4 -10 45.2 healthy12 1731 3 1 2 0 5 -9 47.4 enrollment13 1731 3 1 2 0 6 -8 48.3 enrollment14 1731 3 1 2 0 7 -7 46.4 enrollment15 1731 3 1 2 0 8 -6 47.9 enrollment16 1731 3 1 2 0 9 -5 50.3 enrollment17 1731 3 1 2 0 10 -4 50.8 enrollment18 1731 3 1 2 0 11 -3 47.9 enrollment19 1731 3 1 2 0 12 -2 46.2 heat20 1731 3 1 2 0 13 -1 50.8 healthy21 1731 3 1 2 0 14 0 45.8 healthy22 1731 3 1 2 1 1 1 50.5 healthy23 1731 3 1 2 1 2 2 49.0 healthy24 1731 3 1 2 1 3 3 48.8 healthy25 1731 3 1 2 1 4 4 53.9 healthy26 1731 3 1 2 1 5 5 45.4 healthy27 1731 3 1 2 1 6 6 38.6 healthy28 1731 3 1 2 1 7 7 41.3 healthy29 1731 3 1 2 1 8 8 50.2 healthy30 1731 3 1 2 1 9 9 50.2 healthy31 1731 3 1 2 1 10 10 50.4 healthy32 1731 3 1 2 1 11 11 49.9 healthy33 1731 3 1 2 1 12 12 50.1 healthy34 1731 3 1 2 1 13 13 52.0 healthy35 1731 3 1 2 1 14 14 47.8 healthy36 1731 3 1 2 2 1 15 50.0 healthy37 1731 3 1 2 2 2 16 49.7 healthy38 1731 3 1 2 2 3 17 50.4 healthy39 1731 3 1 2 2 4 18 48.9 healthy40 1731 3 1 2 2 5 19 49.5 healthy41 1731 3 1 2 2 6 20 48.8 healthy42 1731 3 1 2 2 7 21 56.3 healthy43 1731 3 1 2 2 8 22 52.1 healthy44 1731 3 1 2 2 9 23 51.6 healthy45 1731 3 1 2 2 10 24 50.5 healthy46 1731 3 1 2 2 11 25 46.0 healthy47 1731 3 1 2 2 12 26 53.7 healthy48 1731 3 1 2 2 13 27 51.7 healthy49 1731 3 1 2 2 14 28 49.1 healthy50 1731 3 1 2 3 1 29 51.9 healthy51 1731 3 1 2 3 2 30 51.4 healthy...256 1731 3 1 2 17 11 235 21.2 lamness257 1731 3 1 2 17 12 236 19.4 lamness258 1731 3 1 2 17 13 237 23.5 lamness259 1731 3 1 2 17 14 238 19.9 lamness[1] 251 9
# Para simplificar, considere que temos apenas 10 vacas:#--------------------------------------------> vacas <- c(1731, 2090, 2652, 2945, 2946, 3246, 3413, 3593, 3878, 3882) # é a numeração das vacas
# O que eu quero fazer com esses dados é o seguinte:v1<- subset(a21, a21$n_vaca==vacas[1]); dim(v1)
v2<- subset(a21, a21$n_vaca==vacas[2]); dim(v2)v3<- subset(a21, a21$n_vaca==vacas[3]); dim(v3)v4<- subset(a21, a21$n_vaca==vacas[4]); dim(v4)v5<- subset(a21, a21$n_vaca==vacas[5]); dim(v5)v6<- subset(a21, a21$n_vaca==vacas[6]); dim(v6)v7<- subset(a21, a21$n_vaca==vacas[7]); dim(v7)v8<- subset(a21, a21$n_vaca==vacas[8]); dim(v8)v9<- subset(a21, a21$n_vaca==vacas[9]); dim(v9)v10<- subset(a21, a21$n_vaca==vacas[10]); dim(v10)
b<- c(tapply(v1$producao, v1$dia_ciclo, mean),tapply(v2$producao, v2$dia_ciclo, mean),tapply(v3$producao, v3$dia_ciclo, mean),tapply(v4$producao, v4$dia_ciclo, mean),tapply(v5$producao, v5$dia_ciclo, mean),tapply(v6$producao, v6$dia_ciclo, mean),tapply(v7$producao, v7$dia_ciclo, mean),tapply(v8$producao, v8$dia_ciclo, mean),tapply(v9$producao, v9$dia_ciclo, mean),tapply(v10$producao, v10$dia_ciclo, mean))#--------------------------------------------
Ainda estou engatinhando em questão de programação no R, como poderia fazer um looping com essas linhas de comando, pois preciso fazer isso para as 219 vacas!
desde já, muito obrigada!Simone ***---***---***---***---***---***---***---***---***---***---***---***---**** Simone Daniela Sartorio* Professora Adjunta I no CCA/UFSCar, Araras/SP.* Doutora e Mestre em Estatística e Experimentação Agronômica - ESALQ/USP.* Licenciada em Matemática - UNESP/Rio Claro.***---***---***---***---***---***---***---***---***---***---***---***---***
Tenha um bom dia! ;)
_______________________________________________
R-br mailing list
R-br em 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/20150119/b857dc53/attachment.html>
Mais detalhes sobre a lista de discussão R-br