From c2b6c8c1598880d27cc2fdd40409e574e8022fe3 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Mon, 19 Jan 2015 16:40:54 +0530
Subject: Added function to read data from tabular files

---
 R/readData.R | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 R/readData.R

diff --git a/R/readData.R b/R/readData.R
new file mode 100644
index 0000000..4893b6f
--- /dev/null
+++ b/R/readData.R
@@ -0,0 +1,23 @@
+# Reading from table-formatted files
+read.idframe(file,header=TRUE,sep=",",ninputs=1,
+             type=c("time","freq")[1],Ts = 1,freqData=FALSE...){
+  # Read from file (default: csv file)
+  dat <- read.table(file=file,header=header,sep=sep,...)
+  
+  if((type=="freq") && (freqData)){
+    
+    frequencies <- dat[,1] # the first column must contain frequencies
+    inputs <- dat[,seq(2,length.out=ninputs,by=1)]
+    outputs <- dat[,seq((ninputs+1),dim(dat)[2],by=1)]
+    
+    out <- idframe(output=outputs,input=inputs,type=type,Ts=Ts,
+                   frequencies=frequencies)
+    
+  } else{
+    
+    inputs <- dat[,1:ninputs]
+    outputs <- dat[,seq(ninputs,dim(dat)[2],by=1)]
+    
+    out <- idframe(output=outputs,input=inputs,type=type,Ts=Ts)
+  }
+}
\ No newline at end of file
-- 
cgit