diff options
| -rw-r--r-- | R/readData.R | 23 |
1 files changed, 23 insertions, 0 deletions
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 |