Obrigado Tiago, bem didático em sua explicação!


Att.
André

Em 15/10/2012 21:46, tiago souza marçal < tiagosouzamarcal@hotmail.com > escreveu:
André de uma olhada se as aplicações dos comandos tapply() e lapply()que estou lhe enviando e o que você esta procurando.
 
Assim que possível vou te enviar um exemplo onde você conseguirá desdobrar interações da anova de um experimento fatorial ou aplicar um teste 
 
de media para o desdobramento de uma interação. 
 
tratamentos<-c(rep("A",5),rep("B",5),rep("C",5),rep("D",5),rep("E",5)) #Criando um vetor para os tratamentos
 
tratamentos<-factor(tratamentos)
 
resposta1<-c(rnorm(5,46,3),rnorm(5,39,3),rnorm(5,33,3),rnorm(5,26,3),rnorm(5,17,3)) #Criando um vetor para a primeira caracteristica
 
resposta2<-c(rnorm(5,33,3),rnorm(5,22,3),rnorm(5,17,3),rnorm(5,13,3),rnorm(5,5,3)) #Criando um vetor para a segunda caracteristica
 
dados<-data.frame(tratamentos,resposta1,resposta2) #Criando o arquivo de dados
 
 
# Função tapply()
 
tapply(resposta1,tratamentos,mean) #Calculo da media da resposta1 para cada tratamento
 
tapply(resposta1,tratamentos,sd) #Calculo do desvio padrao da resposta1 para cada tratamento 
 
tapply(resposta1,tratamentos,median) #Calculo da mediana da resposta1 para cada tratamento
 
#Utilizando o comando tapply() voce pode aplicar qualquer função sobre os seus tratamentos
 
 
# Função lapply()
 
anova<-lapply(2:3,function(i){aov(dados[,i]~tratamentos)}) #Calculando a anova para as duas respostas
 
lapply(anova,summary)
 
Att.
 
Tiago   

 

Date: Mon, 15 Oct 2012 20:19:35 -0300
From: andrebvs@bol.com.br
To: r-br@listas.c3sl.ufpr.br
Subject: [R-br] Família APPLY...

Olá colegas!
 
Percebo que a familia APPLY é bastante utilizada pelos Rsistas (usuários do R), inclusive, as vezes também chego a utilizar.
Porém, gostaria de saber melhor em quais situações devo usar tais funções abaixo? Qual a idéia de usar tais funções?
Alguém aqui, poderia nos dar exemplos curtos para se ter uma noção do uso de cada uma dessas funções?
 
Funções:  sapply() lapply() apply() mapply() tapply() rapply() dapply()
 
desde já agradeço!
 
Att.
André

_______________________________________________ R-br mailing list R-br@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.