diff options
| author | Suraj Yerramilli | 2015-01-19 16:17:43 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-19 16:17:43 +0530 |
| commit | f69cc92eee8038f35f405c246364303a91f22cd2 (patch) | |
| tree | 7437b1585ddf251b0e151182c8b068c8f535f4d5 /R/idframe.R | |
| parent | af1fcee01da6994b2d49b44142bc4829c8012e2c (diff) | |
| download | SysID-R-code-f69cc92eee8038f35f405c246364303a91f22cd2.tar.gz SysID-R-code-f69cc92eee8038f35f405c246364303a91f22cd2.tar.bz2 SysID-R-code-f69cc92eee8038f35f405c246364303a91f22cd2.zip | |
Corrected errors
Diffstat (limited to 'R/idframe.R')
| -rw-r--r-- | R/idframe.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R index 8be4d67..be25184 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -18,10 +18,10 @@ idframe <- function(output=data.frame(numeric(0)),input=data.frame(numeric(0)), p <- dim(output)[2];m <- dim(input)[2] if(outputnames==NULL) - outputnames <- sapply(1:p,FUN=function(x){paste("y",as.character(x),sep="")}}) + outputnames <- sapply(1:p,FUN=function(x){paste("y",as.character(x),sep="")}) if(inputnames==NULL) - inputnames <- sapply(1:m,FUN=function(x){paste("u",as.character(x),sep="")}}) + inputnames <- sapply(1:m,FUN=function(x){paste("u",as.character(x),sep="")}) colnames(dat$output) <- outputnames colnames(dat$input) <- inputnames |