diff options
| author | Suraj Yerramilli | 2015-01-27 10:41:01 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-27 10:41:01 +0530 |
| commit | 01e0f7454eea708474c59c88d7ab05105df74b42 (patch) | |
| tree | f453930484ef65966c646c2a57daf281823dc5e0 /R/idframe.R | |
| parent | 1b063f1a662fc1c053c237017c1b048b2be6ad86 (diff) | |
| download | SysID-R-code-01e0f7454eea708474c59c88d7ab05105df74b42.tar.gz SysID-R-code-01e0f7454eea708474c59c88d7ab05105df74b42.tar.bz2 SysID-R-code-01e0f7454eea708474c59c88d7ab05105df74b42.zip | |
Condensed variable names for different units
Diffstat (limited to 'R/idframe.R')
| -rw-r--r-- | R/idframe.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/idframe.R b/R/idframe.R index 2b8cae7..1e21cb5 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -2,8 +2,8 @@ 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, timeUnit = "seconds", - frequencies = NA, freqUnit= "Hz"){ + t.start=0,t.end=NA, tUnit = "seconds", + frequencies = NA, fUnit= "Hz"){ ## Input Validation if(!(type %in% c("time","freq"))) # type validation @@ -35,7 +35,7 @@ idframe <- function(output=numeric(0),input=numeric(0), } dat$frequencies <- frequencies - dat$freqUnit <- freqUnit + dat$fUnit <- fUnit } else { @@ -46,7 +46,7 @@ idframe <- function(output=numeric(0),input=numeric(0), } dat$tStart <- t.start; dat$tEnd <- t.end - dat$timeUnit <- timeUnit + dat$tUnit <- tUnit } class(dat) <- "idframe" |