#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.