Tenho meu banco de dados proveniente do pacote hflights
do R, que mostra uma quantidade de voos nos EUA. Preciso calcular a média da distância percorrida (Distance
) para cada dia da semana (variável DayofWeek
) entre os voos com atraso maior que 60 e entre os com atraso menor que 60 (variavel DepDelay
). É necessário usar um único tapply
.
Tentei algo parecido com isso, mas está errado:
y=(c(which(sapply(dados,is.numeric))))y
apply(as.matrix(y),1,function(x){tapply(dados[,x],list(dados$DayofWeek,dados$DepDelay>60),mean)})