R/SPTModel.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 df.sptm entry points
#' @param df.lu land use dataframe
#' @param coordinates coordinates of the sites
#' @param cov site specific covariates
#' @keywords data conversion
#' @export
#' @examples
#' data("wq_analysis_week2")
#' SPTMData(wq.raw.obs, frequency = "quarter")
SPTModel = function(df.sptm, df.lu, coordinates, cov = NULL){


  sptm.model = list(data = df.sptm,
                    lu = df.lu,
                    coord = coordinates,
                    covariates = cov)

class(sptm.model) <- 'stpmod'
return(sptm.model)

  }