R/updateSPTMdata.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 SPTMdata sptm dataframe
#' @param seasonality.keep index of temporal funcitons to keep.
#' @keywords data conversion
#' @export
#' @examples
#' data("wq_analysis_week2")
#' SPTMData(wq.raw.obs, frequency = "quarter")
updateSPTMData = function(SPTMdata, seasonality.keep = "all", debug=F){
  if(seasonality.keep== "all"){
    SPTMdata = SPTMdata
  }else{
    SPTMdata$season = SPTMdata$season[,seasonality.keep,]
  }
  return(SPTMdata)
  }