diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/readData.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/readData.R b/R/readData.R index e9004e6..ab8b4a9 100644 --- a/R/readData.R +++ b/R/readData.R @@ -38,9 +38,9 @@ read.idframe <- function(data,freqData=FALSE,ninputs=NULL, outIndex <- 1:dim(data)[2]; inputs <- NULL if(!is.null(ninputs)){ inputs <- data[,1:ninputs,drop=F] - outIndex <- seq(ninputs+1,dim(data)[2] + outIndex <- seq(ninputs+1,dim(data)[2],by=1) } - outputs <- data[,outIndex,by=1),drop=F] + outputs <- data[,outIndex,drop=F] out <- idframe(output=outputs,input=inputs,type=type,Ts=Ts,tUnit=tUnit) } |