times()        package:BIE5782             R Documentation


 An�lise Explorat�ria de Dados Temporais 

Description:

     A partir de um data frame com dados temporais e um vetor de fatores, a fun��o realiza an�lises explorat�rias descritivas de intervalos de tempo selecionados pelo usu�rio, em fun��o dos fatores ~~

Usage:

     times(fator, tempos, periodos, unidade)

Arguments:

fator: Vetor da classe fator com as categorias a serem analisadas. 

tempos: data frame com dados temporais, datas e/ou hor�rios  em um dos seguintes formatos: "POSIXlt", "POSIXt", �dates�, ou �times.

Per�odos: Especifica��o dos per�odos a serem calculados, com tr�s elementos para cada per�odo, separados por �-�. O primeiro e o segundo elementos representam os tempos que ser�o comparados (devem fazer referencia aos nomes de colunas do argumento tempos). O terceiro elemento representa o nome que o usu�rio utilizar� para nomear cada per�odo. Veja mais em Details e nos exemplos ao final.


unidade:  unidade de medida de tempo em que ser�o calculados os per�odos.


Details:

     Detalhes sobre o argumento periodos:
      Pode-se solicitar intervalos de tempo entre qualquer dos momentos do DF �tempos�. 
      Exemplo de uso:  "Tempo_2 - Tempo_1 - Periodo I", desta forma ir� ser calculado o intervalo entre Tempo_2 e Tempo_1, e o resultado ser� nomeado de Per�odo I. 

Value:

      comp1 : Data frame com os per�odos solicitados na entrada da fun��o. Neste data frame consta os intervalos de tempo solicitados, referentes a cada linha observa��o, ou seja, referentes � cada linha do DF de entrada �tempos�, ligadas aos respectivos fatores.

      comp2 : Data frame com as m�dias de cada per�odo em fun��o do fator.
      
      comp3: Data frame com os desvios padr�o de cada per�odo em fun��o do fator.  
      
      comp4: Data frame com os intervalos de confian�a de 95% de todos os per�odos solicitados em fun��o do fator.

	Sa�das gr�ficas com Boxplots de cada per�odo em fun��o dos fatores.


Warning:
     
Note:

Author(s):

Caio Filipe da Motta Lima

References:

See Also:

Examples:

#### EXEMPLO 1 ####

# Dados referentes � compara��o de dois protocolos anest�sicos (Protocolo A e Protocolo B) em um esp�cie animal.

# CRIANDO OS DADOS #
Aplicacao.A <-  strptime("10:00", "%H:%M")
Decubito.A <- Aplicacao.A + trunc(rnorm(30, 300, 90)) 
Retorno.A <- Decubito.A + trunc(rnorm (30, 2400,600))
Recuperacao.A <- Retorno.A + trunc(rnorm (30, 3600,1200))

Aplicacao.B <-  strptime("10:00", "%H:%M")
Decubito.B <- Aplicacao.A + trunc(rnorm(30, 120, 60)) 
Retorno.B <- Decubito.A + trunc(rnorm (30, 3600, 600))
Recuperacao.B <- Retorno.A + trunc(rnorm (30, 13000, 3600))

Protocolos <- as.factor(c(rep("Protocolo A", 30), rep("Protocolo B", 30)))

Aplicacao <- c(Aplicacao.A, Aplicacao.B)
Decubito <- c(Decubito.A, Decubito.B)
Retorno <- c(Retorno.A, Retorno.B)
Recuperacao <- c(Recuperacao.A, Recuperacao.B)

DF_anestesia <- data.frame(Aplicacao, Decubito, Retorno, Recuperacao)

# APLICANDO A FUN��O #

times(fator = Protocolos, tempos = DF_anestesia, 
      periodos = c(
      'Decubito - Aplicacao - Periodo de Latencia', 
          'Retorno - Decubito - Periodo de Manutencao',
          'Recuperacao - Aplicacao - Periodo de Recuperacao'),
      
      unidade = "min")


#### EXEMPLO 2 ####

# Dados referentes � compara��o de duas linhagens de su�nos (Linhagem A e Linhagem B).

# CRIANDO OS DADOS #

library(chron)

nascimento.A <- dates ("01/01/2017") + trunc(50 * rnorm(30))
maturidade.A <- nascimento.A + trunc(rnorm(30, 200, 20)) 
primeiro_parto.A <- maturidade.A + trunc(rnorm (30, 115,10))
segundo_parto.A <- primeiro_parto.A + trunc(rnorm (30, 160,25))  
abate.A <- segundo_parto.A + trunc(rnorm (30, 90, 15))  

nascimento.B <- dates("01/01/2017") + trunc(50 * rnorm(30))
maturidade.B <- nascimento.B + trunc(rnorm(30, 250, 20)) 
primeiro_parto.B <- maturidade.B + trunc(rnorm (30, 145,10))
segundo_parto.B <- primeiro_parto.B + trunc(rnorm (30, 200,25))  
abate.B <- segundo_parto.B + trunc(rnorm (30, 100, 15))  

linhagem <- as.factor(c(rep("Linhagem A", 30), rep("Linhagem B", 30)))

Nascimento <- c(nascimento.A, nascimento.B)
Maturidade <- c(maturidade.A, maturidade.B)
Primeiro_parto <- c(primeiro_parto.A, primeiro_parto.B)
Segundo_parto <- c(segundo_parto.A, segundo_parto.B)
Abate <- c(abate.A, abate.B)

DF_suinos <- data.frame(Nascimento, Maturidade, Primeiro_parto, Segundo_parto, Abate)

# APLICANDO A FUNCAO #
times(fator = linhagem, tempos = DF_suinos, 
      periodos = c(
      'Maturidade - Nascimento - Maturidade Sexual',
          'Primeiro_parto - Nascimento - Primeiro Parto',
          'Segundo_parto - Primeiro_parto - Intervalo entre Partos',
          'Abate - Nascimento - Tempo de Produ��o'),
     
       unidade = "days")



#### EXEMPLO 3 ####

# Dados referentes � compara��o de tr�s tipos de solo (�mido, Argiloso e Arenoso) em rela��o ao desenvolvimento de dada planta.

# CRIANDO OS DADOS #

library(chron)

Plantacao.A <- dates ("01/01/1980") + trunc(50 * rnorm(20))
CAP_0.5_metro.A <- Plantacao.A + trunc(rnorm(20, 100, 10)) 
Morte.A <- Plantacao.A + trunc(rnorm(20, 300, 20))   


Plantacao.B <- dates ("01/01/1980") + trunc(50 * rnorm(20))
CAP_0.5_metro.B <- Plantacao.B + trunc(rnorm(20, 150, 12)) 
Morte.B <- Plantacao.B + trunc(rnorm(20, 275, 10))   


Plantacao.C <- dates ("01/01/1980") + trunc(20 * rnorm(20))
CAP_0.5_metro.C <- Plantacao.C + trunc(rnorm(20, 200, 10)) 
Morte.C <- Plantacao.C + trunc(rnorm(20, 250, 10))   


solos <- as.factor(c(rep("Umido", 20), rep("Argiloso", 20), rep("Arenoso", 20)))

Plantacao <- c(Plantacao.A, Plantacao.B, Plantacao.C)
CAP_0.5_metro <- c(CAP_0.5_metro.A, CAP_0.5_metro.B, CAP_0.5_metro.C)
Morte <- c(Morte.A, Morte.B, Morte.C)

DF_solos <- data.frame(Plantacao, CAP_0.5_metro, Morte)

# APLICANDO A FUN��O # 
times(fator = solos, tempos = DF_solos, 
      periodos = c(
'CAP_0.5_metro - Plantacao - Tempo de crescimento',
     'Morte - Plantacao - Tempo de vida'),
      unidade = "weeks")