diff options
| -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)){ |