Added skeleton for the idframe class

1 files changed, 26 insertions, 0 deletions

diff --git a/R/idframe.R b/R/idframe.R
new file mode 100644
index 0000000..522f351
--- /dev/null
+++ b/R/idframe.R
@@ -0,0 +1,26 @@
+# class idframe
+idframe <- function(output=data.frame(numeric(0)),input=data.frame(numeric(0)),
+                     type=c("time","freq")[1],Ts = 1,
+                     outputnames = colnames(output),inputnames = colnames(input),
+                     t.start=0,t.end=NA, timeUnit = "seconds", 
+                     frequencies = NA, freqUnit= NA){
+  out <- list(output=output,input=input,type=type,Ts=Ts)
+  class(out) <- "idframe"
+  return(out)
+}
+
+# print method for idframe class
+print.idframe <- function(object,...){
+  
+}
+
+# plot method for idframe object
+plot.idframe <- function(object,...){
+  
+}
+
+# summary method for idframe object
+summary.idframe <- function(object,...){
+  
+}
+