Add methods to convert between data.frame and twdtwTimeSeries

NAMESPACE

@@ -31,7 +31,9 @@ export(twdtwApplyParallel)
 export(twdtwClassify)
 exportMethods("[")
 exportMethods("[[")
+exportMethods(as.data.frame)
 exportMethods(as.list)
+exportMethods(as.twdtwTimeSeries)
 exportMethods(bands)
 exportMethods(coordinates)
 exportMethods(coverages)
@@ -84,6 +86,7 @@ import(zoo)
 importFrom(RColorBrewer,brewer.pal)
 importFrom(Rdpack,reprompt)
 importFrom(caret,createDataPartition)
+importFrom(data.table,rbindlist)
 importFrom(dtw,asymmetric)
 importFrom(dtw,rabinerJuangStepPattern)
 importFrom(dtw,symmetric1)

R/methods.R

@@ -18,6 +18,9 @@ setGeneric("layers",
 setGeneric("coverages", 
            function(x) standardGeneric("coverages"))
 
+setGeneric("as.twdtwTimeSeries", 
+           function(x) standardGeneric("as.twdtwTimeSeries"))
+
 setGeneric("bands", 
            function(x) standardGeneric("bands"))
 
@@ -33,6 +36,14 @@ setGeneric("is.twdtwRaster",
 setGeneric("projecttwdtwRaster", 
            function(x, ...) standardGeneric("projecttwdtwRaster"))
 
+as.data.frame.twdtwTimeSeries <- function(x){
+  lapply(x[], function(y){
+    out <- data.frame(date = index(y), y)
+    rownames(out) <- NULL
+    return(out)
+  })
+}
+
 as.list.twdtwTimeSeries = function(x) lapply(seq_along(x), function(i) 
   new("twdtwTimeSeries", x[[i]], labels(x)[i]) )
 
@@ -296,6 +307,11 @@ setMethod("as.list", "twdtwMatches", as.list.twdtwMatches)
 #' @export
 setMethod("as.list", "twdtwRaster", as.list.twdtwRaster)
 
+#' @inheritParams twdtwTimeSeries-class
+#' @rdname twdtwTimeSeries-class
+#' @export
+setMethod("as.data.frame", "twdtwTimeSeries", as.data.frame.twdtwTimeSeries)
+
 #' @inheritParams twdtwTimeSeries-class
 #' @param i indices of the time series.
 #' @rdname twdtwTimeSeries-class
@@ -575,6 +591,13 @@ setMethod(f = "show", "twdtwMatches",
 setMethod(f = "show", "twdtwRaster",
           definition = show.twdtwRaster)
 
+#' @aliases as.twdtwTimeSeries
+#' @inheritParams twdtwTimeSeries-class
+#' @describeIn twdtwTimeSeries convert list of data.frame to class twdtwTimeSeries.
+#' @export
+setMethod("as.twdtwTimeSeries", "ANY", 
+          function(x) twdtwTimeSeries(lapply(x[], function(y) zoo(y[, names(y)!="date"], order.by = y$date))))
+
 #' @aliases is.twdtwTimeSeries
 #' @inheritParams twdtwTimeSeries-class
 #' @describeIn twdtwTimeSeries Check if the object belongs to the class twdtwTimeSeries.