diff options
| author | Suraj Yerramilli | 2015-06-05 15:39:55 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-05 15:39:55 +0530 |
| commit | 10587682a7ed3389f36c61ddb8d8feef1b08c4d3 (patch) | |
| tree | 56f5bc0bdad9868e4aa36149d37c6b829e184d28 | |
| parent | 6dee73302e3bd1c59f617b43fabc6cb611321650 (diff) | |
| download | SysID-R-code-10587682a7ed3389f36c61ddb8d8feef1b08c4d3.tar.gz SysID-R-code-10587682a7ed3389f36c61ddb8d8feef1b08c4d3.tar.bz2 SysID-R-code-10587682a7ed3389f36c61ddb8d8feef1b08c4d3.zip | |
Minor Corrections
| -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) } |