diff options
| author | Suraj Yerramilli | 2015-08-20 15:57:53 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-08-20 15:57:53 +0530 |
| commit | ca1ea6a6c2e6424d3a0fa435522dce9064782600 (patch) | |
| tree | 20aa547482d11c1d8f11ce82620b92f4a83f810c /R/readData.R | |
| parent | 5d780892acecd9273510537835209520a696f2dd (diff) | |
| download | SysID-R-code-ca1ea6a6c2e6424d3a0fa435522dce9064782600.tar.gz SysID-R-code-ca1ea6a6c2e6424d3a0fa435522dce9064782600.tar.bz2 SysID-R-code-ca1ea6a6c2e6424d3a0fa435522dce9064782600.zip | |
Removed repetitions
Diffstat (limited to 'R/readData.R')
| -rw-r--r-- | R/readData.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/readData.R b/R/readData.R index b66eeb6..372013a 100644 --- a/R/readData.R +++ b/R/readData.R @@ -16,7 +16,7 @@ #' @export read.idframe <- function(data,ninputs=NULL,Ts = 1, unit=c("seconds","minutes","hours", - "days","hours")[1]){ + "days")[1]){ outIndex <- 1:dim(data)[2]; inputs <- NULL if(ninputs==0){ inputs <- data[,1:ninputs,drop=F] @@ -62,7 +62,7 @@ read.idframe <- function(data,ninputs=NULL,Ts = 1, #' @export read.table.idframe <- function(file,header=TRUE,sep=",",ninputs=0, Ts = 1,unit=c("seconds","minutes","hours", - "days","hours")[1],...){ + "days")[1],...){ # Read from file (default: csv file) dat <- read.table(file=file,header=header,sep=sep,...) @@ -105,7 +105,7 @@ read.table.idframe <- function(file,header=TRUE,sep=",",ninputs=0, #' @export read.xls.idframe <- function(file,sheetName,header=TRUE,ninputs=0, Ts = 1,unit=c("seconds","minutes","hours", - "days","hours")[1],...){ + "days")[1],...){ require(xlsx) |