R/freqFun.R

In ick003/SpTMixture: Mixture models with spatio-temporal dependencies

#' Conversion from a long dataframe to a sptm object
#'
#' This function allows you to calculate a Gaussian process kernel
#' @param agg aggregation unit
#' @param seasonality seasonality period
#' @keywords data conversion
#' @export
#' @examples
#' data("wq_analysis_week2")
#' SPTMData(wq.raw.obs, frequency = "quarter")
freqFun = function(agg, seasonality){

    if("decade"%in% seasonality){
      freq = 1
    }
    if("5-years"%in% seasonality){
      freq = 1
    }
    if("2-years"%in% seasonality){
      freq=1
    }
    if("year"%in% seasonality){
      freq=1
    }
    if("quarter"%in% seasonality){
      freq=1
      }
    if("month"%in% seasonality){
      freq = 1
    }
    if("week"%in% seasonality){
      freq=1
    }
    if("day"%in% seasonality){
      freq=1
    }

  if(agg == "6-months"){
    freq = freq * 2
  }
  if(agg == "4-months"){
   freq = freq*3
  }
  if(agg == "quarter"){
    freq = freq*4
  }
  if(agg == "month"){
   freq = freq * 12
  }
  if(agg == "week"){
    freq = freq * 52
  }
  if(agg == "day"){
    freq = freq * 365
  }

return(freq)

}