diff options
| -rw-r--r-- | R/idframe.R | 2 | ||||
| -rw-r--r-- | R/readData.R | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/R/idframe.R b/R/idframe.R index 6cc0483..e6ad6d3 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -22,7 +22,7 @@ #' @export idframe <- function(output=NULL,input=NULL,Ts = 1,start=0,end=NULL, unit = c("seconds","minutes","hours", - "days","hours")[1]){ + "days")[1]){ l <- list(output,input) l2 <- lapply(l,data.frame) 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) |