diff options
| author | Suraj Yerramilli | 2015-01-27 11:42:51 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-27 11:43:37 +0530 |
| commit | 74d70bf3774579ae1e9ff9bd9515b1631baa6685 (patch) | |
| tree | d4fe7c53df56797f210446c42754bb301f9479ad /R | |
| parent | 01e0f7454eea708474c59c88d7ab05105df74b42 (diff) | |
| download | SysID-R-code-74d70bf3774579ae1e9ff9bd9515b1631baa6685.tar.gz SysID-R-code-74d70bf3774579ae1e9ff9bd9515b1631baa6685.tar.bz2 SysID-R-code-74d70bf3774579ae1e9ff9bd9515b1631baa6685.zip | |
Removed buggy code concerning column names
Diffstat (limited to 'R')
| -rw-r--r-- | R/idframe.R | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/R/idframe.R b/R/idframe.R index 1e21cb5..a5a3b6e 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -1,7 +1,6 @@ # class idframe idframe <- function(output=numeric(0),input=numeric(0), type=c("time","freq")[1],Ts = 1, - outputnames = colnames(output),inputnames = colnames(input), t.start=0,t.end=NA, tUnit = "seconds", frequencies = NA, fUnit= "Hz"){ @@ -19,15 +18,6 @@ idframe <- function(output=numeric(0),input=numeric(0), n <- dim(output)[1] p <- dim(output)[2];m <- dim(input)[2] - if(outputnames==NULL && length(output)!=0) - outputnames <- sapply(1:p,FUN=function(x){paste("y",as.character(x),sep="")}) - - if(inputnames==NULL && length(input)!=0) - inputnames <- sapply(1:m,FUN=function(x){paste("u",as.character(x),sep="")}) - - colnames(dat$output) <- outputnames - colnames(dat$input) <- inputnames - if(type=="freq"){ if(is.na(frequencies)){ |